Dynamische IP-Adresse schnell ermittelt - dank WMI Mit dem WMI-Objekt (Windows Management Instrumentation) lässt sich die dynamische IP-Adresse schnell ermitteln - und vieles mehr...
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  13.434
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Die dynamische IP-Adresse Ihres Rechners lässt sich dank der Windows Management Instrumentation (kurz: WMI) sehr leicht ermitteln, wie nachfolgender Tipp auch zeigen wird.

Ob Ihr System WMI unterstützt, kann leicht geprüft werden: Wenn das Windows-Systemverzeichnis das Verzeichnis WBEM kennt, so unterstützt das Betriebssystem WMI. Am besten Sie fügen beim Versuch das WMI-Objekt anzusprechen immer eine entsprechende Fehlerbehandlung in den Code ein.

Per WMI-Zugriff listet der nachfolgende Code blitzschnell alles auf, womit Ihre Netzwerkkarte gerade beschäftigt ist. Darunter natürlich auch die dynamische IP-Adresse.

Private Sub GetIPAdresses()
  ' Fehlerbehandlung aktivieren
  On Error Goto ErrHandler
 
  ' Objekt-Deklaration
  Dim oWMI As Object
  Dim sSQL As String
  Dim oIPConfigSet As Object
  Dim oIPConfig As Object
  Dim i As Long
 
  ' WMI-Objekt erstellen
  Set oWMI = GetObject("winmgmts:root/CIMV2")
 
  ' Abfragestring - just like SQL ;-)
  sSQL = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE"
 
  ' WMI-SQL ausführen
  Set oIPConfigSet = oWMI.ExecQuery(sSQL)
 
  ' IP-ConfigSet durchlaufen
  For Each oIPConfig In oIPConfigSet
    ' alle ermittelten IP-Adressen in einer
    ' ListBox auflisten
    If Not IsNull(oIPConfig.IPAddress) Then
      For i = 0 To UBound(oIPConfig.IPAddress)
        List1.AddItem oIPConfig.IPAddress(I)
      Next i
    End If
  Next
 
  ' Objekte "zerstören"
  Set oIPConfigSet = Nothing
  Set oWMI = Nothing
  Exit Sub
 
ErrHandler:
  MsgBox "System unterstützt kein WMI!"
End Sub

Hinweis:
Ihre dynamische IP-Adresse finden Sie in der ListBox als allerersten Eintrag ganz oben.