Identificar antivirus instalado

[s_azazel]

Hola a todos!!!!! estoy intenando añadir a mi aplicacion un codigo para identificar k av tiene instalado en la maquina del server me gustaria haber si  me podriais dar alguna idea de por donde c¡podria empezar???

La mejor forma seria identificando los procesos abiertos no????



Graciass!!!!

[ssccaann43 ©]

Hola, mira este source...

Código (vb) [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, vbInformation, "Info Antivirus"
Unload Me
End Sub



[s_azazel]

ssccaann43 Muchas graciasssss :D:D:D funciona a la perfeccion ademas una velocidad de respuesta asombrosa!!!!!! enserio muchas gracias aqui estoy para lo que necesiteisss

[Karcrack]

Lamento decir que tu metodo no funcionaria en todos los PCs, ssccaann43....

Hay que descubrir como lo saca el Everest

[xkiz ™]

en la mia no Windows 7 x64 con Avira, no devuelve nada...

[Karcrack]

en la mia no Windows 7 x64 con Avira, no devuelve nada...

Podrias comprobar si el Everest obtiene lo obtiene correctamente?

[ssccaann43 ©]

Ese es el problema de WMI... Si encuentro algo lo posteo...!

Nota: Ese método no es mío, si mal no recuerdo seba lo bajo de algún sitio no se o lo armó el, y lo posteo. Yo lo tenía por allí y decidí aportarselo al chico que lo necesitaba. Pero indagaré...

[Karcrack]

Ese es el problema de WMI... Si encuentro algo lo posteo...!

Nota: Ese método no es mío, si mal no recuerdo seba lo bajo de algún sitio no se o lo armó el, y lo posteo. Yo lo tenía por allí y decidí aportarselo al chico que lo necesitaba. Pero indagaré...

El problema es que esta el Security Center desactivado/desinstalado... lo que yo me pregunto es ¿¿¿como lo hace el Everest????

Se que no es tuyo, me referia al que has posteado

[s_azazel]

Vaya :S:S en el unico que no va es en windows 7??

[Karcrack]

Vaya :S:S en el unico que no va es en windows 7??

Y en la mayoria de los Windows desatendidos... como el Windows UE...