Option Explicit

Dim strComputer As String

Private Sub Form_Load()
  strComputer = getComputerName()
  Me.Caption = Me.Caption & " [" & strComputer & "]"
End Sub


Private Sub cmdGetAllIP_Click()
  On Error GoTo err_handler

  Dim i As Integer
  Dim objWMI As Object, IPConfigSet As Object, IPConfig As Object

  txtIPInfo.Text = ""

  Set objWMI = _
        GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

  Set IPConfigSet = objWMI.ExecQuery( _
        "SELECT Index, IPAddress, Description, MACAddress " & _
        "FROM Win32_NetworkAdapterConfiguration " & _
        "WHERE IPEnabled=TRUE")

  For Each IPConfig In IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then
      For i = LBound(IPConfig.IPAddress) To _
            UBound(IPConfig.IPAddress)
        txtIPInfo.Text = txtIPInfo.Text & "Adapter " & _
              IPConfig.Index & vbCrLf
        txtIPInfo.Text = txtIPInfo.Text & "Beschreibung: " & _
              IPConfig.Description(i) & vbCrLf
        txtIPInfo.Text = txtIPInfo.Text & "IP Adresse: " & _
              IPConfig.IPAddress(i) & vbCrLf
        txtIPInfo.Text = txtIPInfo.Text & "MAC Adresse: " & _
              IPConfig.MACAddress(i) & vbCrLf & vbCrLf
      Next i
    End If
  Next

  Exit Sub

err_handler:
  txtIPInfo.Text = "Fehler " & Err.Number & " ist aufgetreten:" & _
        vbCrLf & Err.Description
End Sub

Private Function getComputerName()
  Dim NetworkInfoSet As Object

  Set NetworkInfoSet = CreateObject("Wscript.Network")
  getComputerName = NetworkInfoSet.ComputerName
End Function