Hola, con WMI algo asi...

Private Sub Form_Load()
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\SecurityCenter")
Set colItems = oWMI.ExecQuery("Select * from AntiVirusProduct")
For Each objAntiVirusProduct In colItems
msg = msg & "companyName: " & objAntiVirusProduct.CompanyName & vbCrLf
msg = msg & "displayName: " & objAntiVirusProduct.DisplayName & vbCrLf
msg = msg & "instanceGuid: " & objAntiVirusProduct.instanceGuid & vbCrLf
msg = msg & "onAccessScanningEnabled: " & objAntiVirusProduct.onAccessScanningEnabled & vbCrLf
msg = msg & "productUptoDate: " & objAntiVirusProduct.productUptoDate & vbCrLf
msg = msg & "versionNumber: " & objAntiVirusProduct.versionNumber & vbCrLf
msg = msg & vbCrLf
Next
MsgBox msg
End Sub

saludos.

Mira que no sabia como se hacia. Gracias seba. Saludos

Creo que no funciona con ese codigo, me sale    error de automatizacion y al depurar me lleva a la siguiente linea: 
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\SecurityCenter")
 y cuando  uso el wmi con otros codigos como para probar uso de la cpu y  si fuciona el wmi

no se si entendí pero no se podría hacer:
[manera chapucera] mirando los procesos buscando antivirus concretos?[/manera chapucera]

Porque no buscan directamente el ejecutable de cada antivirus con fileexists?

Por ejemplo en pseudocodigo:


La ruta me la he inventao a modo de ejmplo.