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