This is the VBScript used by our company - it uses WMI as a Niklas B. solution, so it will only work on XP SP3 +. It uses the same provider as Windows Security Center (which does not always select every AV solution! However, it does provide a lot of information about the AV solution.
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
Good luck and happy coding!
source share