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
  Dim A$
 
  ' 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
  ListBoxArt.Clear
  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)
        ListBoxArt.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