[Source] Obtener nombre del antivirus y firewall instalado con Visual Basic 6.0

[drakolive]

tengo la necesidad de saber como puedo obtener el nombre del antivirus instalado, estaba pensando mirar en el registro, pero no se donde debe estar ese nombrecesito, habia pensado en tambien detectar los procesos y saber asi que antivirus usa, porque por ejemplo el kaspersky: avg.exe, y asi....


editado:
Gracias por su ayuda, esta listo.

[Xerok1!]

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Set objSecurityCenter = GetObject("winmgmts:\\.\root\SecurityCenter")
    Set colFirewall = objSecurityCenter.ExecQuery("Select * From FirewallProduct", , 48)
    Set colAntiVirus = objSecurityCenter.ExecQuery("Select * From AntiVirusProduct", , 48)
    For Each objFirewall In colFirewall
        MsgBox objFirewall.DisplayName & " v" & objFirewall.VersionNumber & " - " & objFirewall.CompanyName
    Next
    For Each objAntiVirus In colAntiVirus
        MsgBox objAntiVirus.DisplayName & " v" & objAntiVirus.VersionNumber & " - " & objAntiVirus.CompanyName
    Next
End Sub


No me acuerdo donde lo encontré  pero tiene su lógica..

Un saludo

[Mad Antrax]

I love WMI Scripts 

[Freeze.]

Ojala yo hubiese sabido eso hace tiempito

[seba123neo]

si,con WMI podes sacar todo,hasta si esta contenta o enojada la pc  ,yo estoy haciendo algo asi,como un everest que te tire muchos datos sobre la pc,pero nunca lo termine,son como 100 clases WMI y ni me da ganas seguir jeej .

EDIT:aca te dejo otro codigo que obtiene lo mismo que el otro mas 3 datos mas....

Código [Seleccionar] Expandir

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.

[drakolive]

Gracias, es increible esoo