Ist WMI installiert? Ob WMI auf dem System installiert ist, lässt sich mit ein paar Zeilen Code sehr leicht feststellen.
Autor:   Gerhard Kuklau	Bewertung:     [ Jetzt bewerten ]	Views:  21.291
ohne Homepage	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 23 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit dem WMI-Objekt - oder ausgeschrieben Windows Management Instrumentation lässt sich so gut wie alles über ein System und dessen Austattung in Erfahrung bringen. Ob eine Maschine WMI unterstützt kann leicht geprüft werden: Wenn das Windows-Systemverzeichnis das Verzeichnis WBEM kennt, so unterstützt das Betriebssystem WMI.

Das ganze lässt sich aber auch wie folgt prüfen:

' Prüfen, ob WMI unterstützt wird
Public Function WMI_Avail() 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:")
 
  ' Kein Fehler? Dann ist WMI verfügbar!
  WMI_Avail = (Err.Number = 0)
End Function

Beispiel:

If WMI_Avail() Then
  MsgBox "Das System unterstützt WMI"
Else
  MsgBox "WMI ist nicht installiert!"
End If