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