Detectar si hay WMI (VB6)

[s E t H]

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.

Código (vb) [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
MsgBox WMIDetect
End Sub

[ssccaann43 ©]

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

[WestOn]

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