Obtener la dirección IP de un ordenador

Imports System.Net
 
    Function GetIPaddresses(Optional ByVal computername As String = "localhost") As String()
 
        Dim saddr() As String
        Dim addr() As IPAddress = Dns.Resolve(computername).AddressList()
        Dim i As Integer
        If addr.Length > 0 Then
            saddr = New String(addr.Length - 1) {}
            For i = 0 To addr.Length - 1
                saddr(i) = addr(i).ToString
            Next
        End If
 
        Return saddr
    End Function