ip del equipo

Dim localIp As String = ""
        For Each address As System.Net.IPAddress In System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList
            If address.AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then
                localIp = address.ToString()
                Exit For
            End If
        Next

fuente