Как узнать какой у пользователя антивирус?

[Raf-9600]

Использую в одной своей програмке oggdec, но некоторые антивирусы его блокируют. Хочу встроить в программу сообщение которое бы появлялось при обнаружении на компе у пользователя параноидального антивиря, но затык возник с тем, что я не знаю как узнать какой антивирь установлен.
Сама винда ведь определяет какой антивирь установлен и установлен ли он вообще (если не установлен, то сообщает что система в опасности), значит есть где-то единое, так сказать "центральное" место куда все антивири себя прописывают. Где оно?

[WinCoder]

Где оно?

В самом неожиданном месте. В РЕЕСТРЕ.

[Raf-9600]

Сообщение от WinCoder

В самом неожиданном месте. В РЕЕСТРЕ.

Не ожидал. Но разве есть единая ветка реестра куда все антивирусы себя пропиывают? Или предлагаете всё содержимое hklm\Software через сито пропускать?

[Stilet]

Или предлагаете всё содержимое hklm\Software через сито пропускать?

Просто выяснить куда какие антивирусы "гадят" и проверять эти ветки.

[Raf-9600]

Сообщение от Stilet

Просто выяснить куда какие антивирусы "гадят" и проверять эти ветки.

Угу, т.е. устанавливать все сто антивирусов по очереди и смотреть в какие ветки они себя прописывают? Заманчивое предложение, но нет

Мне интересно откуда сама винда узнаёт название антивируса. Есть предположение что рас она умеет определять название антивируса, значит они все ей как-то по-одинаковому его сообщают. Значит где-то эта информация централизовано хранится и её можно как-то от туда узнать.

[Stilet]

Есть предположение

Я тебя разочарую: Не все антивирусы сообщают винде о своем присутствии.
А из тех кто сообщает популярных не сто а даже двадцатки не наберется.

[kvitaliy]

Сообщение от Raf-9600

Значит где-то эта информация централизовано хранится и её можно как-то от туда узнать.

Можно узнать. Простой код, сохраните как av.vbs и запустите на исполнение

strComputer = "."
    
Set oWMI = GetObject( _
  "winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\SecurityCenter")
  
Set colItems = oWMI.ExecQuery("Select * from AntiVirusProduct")

For Each objItem in colItems
  With objItem
    WScript.Echo .companyName
    WScript.Echo .displayName
    WScript.Echo .instanceGuid
    WScript.Echo .onAccessScanningEnabled
    WScript.Echo .versionNumber  
  End With
Next

[Sokol1]

Не рекомендую запускать всякие коды из интернета на исполнение

[Serge_Bliznykov]

Сообщение от Sokol1

Не рекомендую запускать всякие коды из интернета на исполнение

И к чему здесь в теме это "мудрое" замечание?!

[Utkin]

Не рекомендую запускать всякие коды из интернета на исполнение

Там обычный запрос на выборку данных. Код только читает и не вносит никаких изменений.