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:	Views:  20.726
ohne Homepage	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.