'So gibt's alle IP's
    Public Shared Function GetAllIps() As Net.IPAddress()
        Dim host As Net.IPHostEntry = Net.Dns.GetHostByName(Net.Dns.GetHostName)
        Return host.AddressList
    End Function
 
    'So gibt die dynamische IP'
    Public Shared Function GetPublicIp() As Net.IPAddress
        Dim name As String
        Dim host As Net.IPHostEntry
        Dim sock As New Net.Sockets.Socket( _
          Net.Sockets.AddressFamily.InterNetwork, _
          Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)
        name = "google.de"
        Try
            host = Net.Dns.Resolve(name)
            Dim ep As New Net.IPEndPoint(host.AddressList(0), 80)
            sock.Connect(ep)
            Dim ret As Net.IPAddress = CType(sock.LocalEndPoint, _
              Net.IPEndPoint).Address
            sock.Close()
            Return ret
        Catch
            Return Net.IPAddress.None
        End Try
 
    End Function