Это VBScript, который использовала наша компания - он использует WMI, как и решение Niklas B., поэтому он будет работать только на XP SP3 +. В нем используется тот же поставщик, что и в Центре безопасности Windows (который не всегда подхватывает каждое AV-решение! Однако, он предоставляет много информации о AV-решении.
Set objSWbemServices = GetObject("winmgmts:\\.\root\SecurityCenter")
Set colFirewall = objSWbemServices.ExecQuery("Select * From antivirusProduct",,48)
For Each objAntiVirusProduct In colFirewall
WScript.Echo "companyName: " & objAntiVirusProduct.companyName
WScript.Echo "displayName: " & objAntiVirusProduct.displayName
WScript.Echo "instanceGuid: " & objAntiVirusProduct.instanceGuid
WScript.Echo "onAccessScanningEnabled: " & objAntiVirusProduct.onAccessScanningEnabled
WScript.Echo "productUptoDate: " & objAntiVirusProduct.productUptoDate
WScript.Echo "versionNumber: " & objAntiVirusProduct.versionNumber
Next
Удачи и счастливого кодирования!