Dim objSWbemServices As Object
            objSWbemServices = GetObject("winmgmts://" + ComputerName + _
              "/root/cimv2")

' Prüfen, ob WMI unterstützt wird
Public Function WMI_Avail(ComputerName as String) As Boolean
  Dim WMI As Object
 
  ' Falls das Objekt nicht erzeugt werden kann, 
  ' wird ein Laufzeitfehler ausgelöst, den es einfach
  ' gilt "abzufangen"
  On Error Resume Next
 
  ' WMI-Objekt erstellen
  Set WMI = GetObject("winmgmts://" & ComputerName & ""))
 
  ' Kein Fehler? Dann ist WMI verfügbar!
  WMI_Avail = (Err.Number = 0)
End Function