Public Function WMI_Installed() As Boolean
  Dim WMI As Object
  On Error Resume Next
  Set WMI = GetObject("winmgmts:")  ' WMI-Objekt erstellen
  WMI_Installed = (Err.Number = 0)  ' Kein Fehler? Dann ist WMI verfügbar!
  If WMI_Installed Then Set WMI = Nothing
End Function