hola,podes usar una api todas la veces que sea necesario,pero lo tuyo parece ser otro cosa,la estaras usando mal...por eso se bloquea...
saludos.
saludos.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
,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
.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