VB.NET controllo IP Address del PC in uso

Applicazione VB.NET di tipo console.
Questo codice restituisce  la lista degli indirizzi ip relativi al pc in uso.
E' utile per recuperare l'indirizzo di un pc quando è in una VPN



Imports System
Imports System.Net
Imports System.Net.Sockets

Module mainmod
    Sub main()
        Try
            'Recupero il nome host e le relative informazioni
            Dim hostInfo As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName())

            Console.WriteLine(("Host name : " + hostInfo.HostName))
            Console.WriteLine("IP address List : ")
            Dim index As Integer
            For index = 0 To hostInfo.AddressList.Length - 1
                Console.WriteLine(hostInfo.AddressList(index))
            Next index

        Catch e As Exception
            Console.WriteLine("Exception caught!!!")
            Console.WriteLine(("Source : " + e.Source))
            Console.WriteLine(("Message : " + e.Message))
        End Try
        Console.ReadLine()
    End Sub 'GetIpAddressList
End Module