Foro de elhacker.net

Muchas veces tenemos códigos que usan wmi, pero al llevarlos a otras computadoras sale un "error de automatización". Con este código simple podemos ver si hay WMI en el equipo.

Function WMIDetect() As Boolean
On Error GoTo NOWMI
    Dim WMI As Object
    Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set WMI = Nothing
    WMIDetect = True
    Exit Function
NOWMI:
WMIDetect = False
End Function
 

ejemplo de uso:

Private Sub Form_Load()
MsgBox WMIDetect
End Sub

Hey s E t H, esta bueno el codigo...  :xD

Esta interesante el code lo voy a guardar por si acaso un dia... ;D
un saludo