Public Function GetIP(Optional ByVal strAdapter As String = Nothing) As _
      String()
        Dim oBuff As New ArrayList()
 
        Dim Registry As Microsoft.Win32.Registry = Nothing
        Dim strBaseKey As String = _
            "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
        Dim objRootKey As Microsoft.Win32.RegistryKey = _
            Registry.LocalMachine.OpenSubKey(strBaseKey, False)
        Dim objKey As Microsoft.Win32.RegistryKey
 
        Dim sInterface As String
        Dim arrInterface As String() = objRootKey.GetSubKeyNames()
 
        For Each sInterface In arrInterface
            If (sInterface = strAdapter) Or (strAdapter = Nothing) Then
                objKey = Registry.LocalMachine.OpenSubKey(strBaseKey & _
                  sInterface & "\", False)
 
                If Not objKey Is Nothing Then
                    If objKey.GetValue("EnableDCHP", False) Then
                        'wenn die IP per DHCP zugewiesen wird...
                        '....
                    Else
                        oBuff.Add("Interface: " & sInterface)
                        For Each objName As Object In objKey.GetValueNames
                            'alle Einträge durchlaufen....
                            If objName.ToString.ToLower = "ipaddress" Then
                                'Auslesen der IP-Adresse
                                Dim arrIPAddress As String() = objKey.GetValue( _
                                  objName, "")
                                Dim x As Integer
                                For x = 0 To UBound(arrIPAddress)
                                    If arrIPAddress(x).Length > 0 Then
                                        oBuff.Add("IP-Adresse " & x + 1 & ": " _
                                          & arrIPAddress(x))
                                    Else
                                        oBuff.Add("IP-Adresse " & x + 1 & ": " _
                                          & "0.0.0.0")
                                    End If
                                Next
                            ElseIf objName.ToString.ToLower = "subnetmask" Then
                                'Auslesen der Subnetmaske
                                Dim arrIPAddress As String() = objKey.GetValue( _
                                  objName, "")
                                Dim x As Integer
                                For x = 0 To UBound(arrIPAddress)
                                    If arrIPAddress(x).Length > 0 Then
                                        oBuff.Add("SubnetMask" & x + 1 & ": " & _
                                          arrIPAddress(x))
                                    Else
                                        oBuff.Add("SubnetMask" & x + 1 & ": " & _
                                          "0.0.0.0")
                                    End If
                                Next
                            ElseIf objName.ToString.ToLower = "defaultgateway" _
                              Then
                                'Auslesen des DefaultGateway
                                Dim arrIPAddress As String() = objKey.GetValue( _
                                  objName, "")
                                Dim x As Integer
                                For x = 0 To UBound(arrIPAddress)
                                    If arrIPAddress(x).Length > 0 Then
                                        oBuff.Add("DefaultGateway" & x + 1 & ":" & _
                                          "" & arrIPAddress(x))
                                    Else
                                        oBuff.Add("DefaultGateway" & x + 1 & ":" & _
                                          "" & "0.0.0.0")
                                    End If
                                Next
                            ElseIf objName.ToString.ToLower = "nameserver" Then
                                'Auslesen der zwei DNS-Server
                                Dim DnsIp() As String = New String( _
                                  objKey.GetValue(objName, _
                                    "").ToString).Split(",".ToCharArray)
                                Dim x As Integer
                                For x = 0 To UBound(DnsIp)
                                    If DnsIp(x).Length > 0 Then
                                        oBuff.Add("DNS-Server" & x + 1 & ": " & _
                                          DnsIp(x))
                                    Else
                                        oBuff.Add("DNS-Server" & x + 1 & ": " & _
                                          "0.0.0.0")
                                    End If
                                Next
                            End If
                        Next
                    End If
                End If
            End If
        Next
 
        Registry.LocalMachine.Close()
        Return oBuff.ToArray(Type.GetType("System.String"))
    End Function