Hola mira lo que yo hago para obtener la ip del equipo:
Código:
Function ObtenerIpLocal() As String
'-------------------------------------------------------------------------------------------
'Descripción: <Obtener la IP del equipo local>
'Parámetros: <Ninguno>
'Regresa: <La direccion IP en forma de cadena>
'Fecha: <06/12/07>
'Programación: <LCI Juan Jesús Hernández Castañeda>
'-------------------------------------------------------------------------------------------
Dim mIpHostEntry As IPHostEntry
mIpHostEntry = Dns.GetHostEntry(My.Computer.Name)
ObtenerIpLocal = mIpHostEntry.AddressList(0).ToString
End Function