WMI-Installationspfad ermitteln Mit diesem Klassenmodul lässt sich der Installationspfad der WMI-Software (Windows Management Instrumentations) ermitteln.
Autor:   Heinz Prelle	Bewertung:     [ Jetzt bewerten ]	Views:  11.464
www.visual-basic5.de	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit diesem Klassenmodul lässt sich der Installationspfad der WMI-Software (Windows Management Instrumentations) ermitteln.
Erstellen Sie ein neues Windows-Forms Projekt und fügen Sie diesem den Verweis auf "System.Managment" hinzu. Platzieren Sie anschließend einen Button auf die Form und fügen folgenden Code in den Codeteil der Form ein:

Imports System.Management
Imports System.Reflection
 
Public Class Form1

  ''' <summary>
  ''' Ermitteln des WMI Installationspfades
  ''' </summary>
  Public Class WMI
 
    ''' <summary>
    ''' Rückgabe des Windows Management Instrumentations Installationspfades
    ''' </summary>
    Public Shared Function GetWMIInstallationDirectory() As String
      ' Benötigte Rückgabevariable
      Dim Path As String = ""
      ' Fehlerüberwachung einschalten
      Try
        ' Management deklarieren und initialisieren
        Dim query As String = "Select * from Win32_WMISetting"
        Dim sq As SelectQuery = New SelectQuery(query)
        Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher(sq)
        ' Die Eigenschaft <InstallationDirectory> in einer Schleife auswerten
        For Each mbo As ManagementBaseObject In mos.Get()
          ' Die Eigenschaft <InstallationDirectory> beinhaltet den Pfad in dem die 
          ' WMI Software installiert wurde.
          ' Das Standardinstallationsverzeichnis ist: ...\system32\wbem
          Path = mbo("InstallationDirectory").ToString()
        Next
      Catch ex As Exception
        ' Eventuelle auftretenden Fehler abfangen
        ' und eine Fehlermeldung ausgeben
        MessageBox.Show(ex.Message.ToString(), "Info - " & _
          MethodBase.GetCurrentMethod().Name())
      End Try
 
      ' Ergebnisrückgabe
      Return Path
    End Function
  End Class

  Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
 
    ' Funktionsaufruf zur Ermittlung des WMI Software-Installationspfades
    Dim WMIPath As String = WMI.GetWMIInstallationDirectory()
    If WMIPath.Length > 0 Then
      MessageBox.Show(WMIPath, "Info - " & MethodBase.GetCurrentMethod().Name())
    Else
      MessageBox.Show("WMI-Pfad konnte nicht ermittelt werden!")
    End If
  End Sub

End Class