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
 

Private Sub Form_Load()
MsgBox WMIDetect
End Sub