Utilizando el poder del namespace SYSTEM.NET para devolver la direcci�n Ip, Hostname, DNS etc... del los equipos de tu Red

Funcionamiento

Para obtener la direcci�n IP v4 (no he hecho prueba con la versi�n 6) la primera cosa que hay que hacer es obtener el nombre de HOST del equipo utilizando la funci�n SYSTEM.NET.DNS.GETHOSTBYNAME. Una vez que se tiene el nombre, utiliza el objeto IpHostEntry para devolver una matiz del las direcciones Ip definida en este host.

A continuaci�n sigue c�digo en Visual Basic:

   Option Strict On
   Imports System
   Imports System.Net
   Imports System.Net.Dns
   Module Module1
     Function RetIPAddress(ByVal mStrHost As String) As String
        Dim mIpHostEntry As IPHostEntry = GetHostByName(mStrHost)
        Dim mIpAddLst As IPAddress() = mIpHostEntry.AddressList()
        ' para efecto de este ejemplo y reducir codigo
        ' se devolvera la primera direccion IP y no se
        ' incluira manejo de excepciones
        Return mIpAddLst(0).ToString
     End Function
     Sub Main()
       Console.Write("IP = " & RetIPAddress(GetHostName()))
     End Sub
   End Module

 

Puede cambiar el par�metro GetHostName() de RetIpAddress con el nombre

de cualquier equipo de su red. No olvida de manejar las excepciones

 

Espero que este c�digo les aclara un poco sobre el uso de este Namespace

Anil Pillay