Private Sub Info()
 
  Dim oAdapters As Object
  Dim oAdapter As Object
 
  ' Fehlerbehandlung
  On Error GoTo Fehler
 
  ' alle verfügbaren Netzwerk-Adapter mit IP-Adresse
  Set oAdapters = GetObject("winmgmts:").execquery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
  'username
  List1.AddItem "Benutzer:" & vbTab & vbTab & vbTab & Environ$("username")
 
  For Each oAdapter In oAdapters
 
    With oAdapter
 
     'DHCP Server
      List1.AddItem "DHCP Server:" & vbTab & vbTab & .DHCPServer
     'DNS Server
      List1.AddItem "DNS Server:" & vbTab & vbTab & Join(.DNSServerSearchOrder)
     ' DNS Host Name
      List1.AddItem "DNS Host Name:" & vbTab & vbTab & .DNSHostName
     ' MAC-Adresse
      List1.AddItem "MAC:" & vbTab & vbTab & vbTab & .MACAddress
     ' IP-Adresse
      List1.AddItem "IP:" & vbTab & vbTab & vbTab & Join(.IPAddress)
     ' SubNet-Masks
      List1.AddItem "Subnet:" & vbTab & vbTab & vbTab & Join(.IPSubnet)
    ' Default-Gateway
      List1.AddItem "GATEAWAY:" & vbTab & vbTab & Join(.DefaultIPGateway)
 
    End With
  Next
  On Error GoTo 0
  Exit Sub
 
Fehler:
  MsgBox "Fehler: " & Err.Number & vbTab & Err.Description, vbCritical
  Resume Next
End Sub