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