[madmasles]

saavaage,
Так у меня на Windows XP SP3 определяет антивирус:

Код:

$Output = ""

$objWMIService = ObjGet("winmgmts:\\localhost\root\SecurityCenter")
$colItems = $objWMIService.ExecQuery("SELECT * FROM AntiVirusProduct", "WQL", 48)

If IsObj($colItems) Then
    For $objItem In $colItems
        $Output &= "CompanyName: " & $objItem.CompanyName & @CRLF
        $Output &= "DisplayName: " & $objItem.DisplayName & @CRLF
        $Output &= "VersionNumber: " & $objItem.VersionNumber & @CRLF
        $Output &= "productUpToDate: " & $objItem.productUpToDate & @CRLF
        MsgBox(0, "WMI Output", $Output)
        $Output = ""
    Next
Else
    MsgBox(0, "WMI Output", "No WMI Objects Found for class: AntiVirusProduct")
EndIf

А так - файервол:

Код:

$Output = ""

$objWMIService = ObjGet("winmgmts:\\localhost\root\SecurityCenter")
$colItems = $objWMIService.ExecQuery("SELECT * FROM FireWallProduct", "WQL", 48)

If IsObj($colItems) Then
    For $objItem In $colItems
        $Output &= "CompanyName: " & $objItem.CompanyName & @CRLF
        $Output &= "DisplayName: " & $objItem.DisplayName & @CRLF
        $Output &= "VersionNumber: " & $objItem.VersionNumber & @CRLF
        MsgBox(0, "WMI Output", $Output)
        $Output = ""
    Next
Else
    MsgBox(0, "WMI Output", "No WMI Objects Found for class: FireWallProduct")
EndIf

Источник: WMI - как узнать какой антивирус на компе/
У меня ESET Smart Security 3.0, с другими не пробовал.

[saavaage]

madmasles, смотрел эту ветку, но, нет уверенности, что инфа будет по всем антивирусам, поэтому и решил делать базу названий

файрволл меня только родной XP-шный интересовал. Остальные - личное дело каждого.
Кстати, ваш

ESET Smart Security 3.0 »

определился последней версией?

В принципе, можно будет попробовать на стадии финала. Закину-ка я Ваше предложение в todo (по антивирусам и файрволлам).
Места на форме не хватает (промахнулся с размером)

[madmasles]

определился последней версией? »

Определился.

смотрел эту ветку, но, нет уверенности, что инфа будет по всем антивирусам, поэтому и решил делать базу названий »

А что Вам мешает сделать отдельный модуль, такой, как Software.exe, и люди протестируют, определяются другие антивирусы или нет.

[saavaage]

madmasles, прекрасная идея. Решил так - дорабатываем эту версию до финала и перед финалом, предложу поменять алгоритм. Сейчас главное закрыть глюки. Как только не будет багов, сделаю обязательно.

PS Как думаете, стоит вводить модуль проверки и изменения разрешения экрана (окошко маленькое и на больших расширениях, боюсь, не будет читаться)

[madmasles]

стоит вводить модуль проверки и изменения разрешения экрана »

Проверить до завтра на большом разрешении не могу.

[saavaage]

madmasles, нужны ли какие-нить дополнительные библиотеки к скриптам топика 11?

[FlatX007]

нужны ли какие-нить дополнительные библиотеки к скриптам топика 11 »

Не нужны это же COM.

[saavaage]

FlatX007, у меня не пашет. Ошибка:

Код:

Variable must be of type "Object".:
$colItems = $objWMIService.ExecQuery("SELECT * FROM AntiVirusProduct", "WQL", 48)
$colItems = $objWMIService^ ERROR

Как это прикрутить к autoit? В справке написано, но по английски. Прийдется день убить на просвещение...

[Iska]

[q=saavaage]FlatX007, у меня не пашет. Ошибка…[/quote]
Может у Вас в hosts отсутствует определение localhost? Попробуйте вместо:

Код:

$objWMIService = ObjGet("winmgmts:\\localhost\root\SecurityCenter")

пользовать непосредственно:

Код:

$objWMIService = ObjGet("winmgmts:\\.\root\SecurityCenter")

…нет уверенности, что инфа будет по всем антивирусам…»

Основная масса производителей за восемь лет научилась сообщать Windows о своих продуктах. Насколько я пробовал — для «AntiVirusProduct» сообщают о себе продукты Symantec и Avast, для «FireWallProduct» могу подтвердить только про ZoneAlarm.

[saavaage]

Iska, к сожалению, не помогло. Та же самая ошибка