Obtener la dirección IP de cualquier Host de tu red TCPIP
[VB.NET; VS.NET 2003]

Fecha: 06/Nov/2004 (04/11/2004)
Autor: Anil Pillay ( anilpillay@rocketmail.com)

 


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



ir al índice