Foro de elhacker.net

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...

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é...

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??

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