Obtener la dirección IP de cualquier Host de tu red TCPIP Fecha: 06/Nov/2004 (04/11/2004)
|
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