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!!!!
Hola, mira este source...
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
ssccaann43 Muchas graciasssss :D:D:D:D funciona a la perfeccion ademas una velocidad de respuesta asombrosa!!!!!! enserio muchas gracias aqui estoy para lo que necesiteisss
Lamento decir que tu metodo no funcionaria en todos los PCs, ssccaann43....
Hay que descubrir como lo saca el Everest :laugh:
en la mia no Windows 7 x64 con Avira, no devuelve nada...
Cita de: xkiz en 2 Diciembre 2009, 18:43 PM
en la mia no Windows 7 x64 con Avira, no devuelve nada...
Podrias comprobar si el Everest obtiene lo obtiene correctamente?
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é...
Cita de: ssccaann43 en 2 Diciembre 2009, 19:44 PM
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 :P
Vaya :S:S en el unico que no va es en windows 7??
Cita de: s_azazel en 2 Diciembre 2009, 21:37 PM
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...