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.
« Última modificación: 05 Junio 2008, 23:48 por drakolive »
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
En línea
[Firma]Esperando haber si acaba el concurso de firmas y la pongo[/Firma]
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:
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.
« Última modificación: 05 Junio 2008, 23:22 por seba123neo »
En línea
Todos somos ignorantes;lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein
Autor
En línea
pero tiene su lógica..
,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 
