Obtener IP con VB.NET y C#

Fecha: 02/Feb/2005 (01/02/2005)
Autor: Mario Félix Guerrero, mfguerrero@msn.com

 


Esta es una pequeña aplicación de consola para mostrar las IPs de un host, recibe como parametro el nombre del host en la linea de comandos, si no recibe este parametro, despliega las IPs locales, originalmente esta escrito en VB.NET, pero va la traducción a C# tambien :)

Código en Visual Basic:


Imports System.Net
Module Module1
  Sub Main()
    Dim i_cont As Integer
    Dim Host As String
    ' Si no se pasa como parametro un nombre, muestra las ip locales
    If Environment.GetCommandLineArgs().Length > 1 Then
      Host = Environment.GetCommandLineArgs(1)
    Else
      Host = Dns.GetHostName
    End If

    Dim IPs As IPHostEntry = Dns.GetHostByName(Host)
    Dim Direcciones As IPAddress() = IPs.AddressList

    'Se despliega la lista de IP's
    For i_cont = 0 To i_cont = Direcciones.Length
      Console.WriteLine("IP {0}: {1} ", i_cont + 1, Direcciones(i_cont).ToString())
    Next
    Console.Read()
  End Sub
End Module



Código en C#:


using System;
using System.Net;

namespace ip_cs{

class Class1{
[STAThread]
	static void Main(string[] args){
	string Host;
	string[] argumentos;
	//Si no se pasa como parametro un nombre, muestra las ip locales
		if(Environment.GetCommandLineArgs().Length > 1 ){
			argumentos = Environment.GetCommandLineArgs();
			Host = argumentos[1];
		}
		else{
			Host = Dns.GetHostName();
		}

		IPHostEntry IPs = Dns.GetHostByName(Host);
		IPAddress [] Direcciones = IPs.AddressList;

		//Se despliega la lista de IP's
		for(int i_cont = 0 ; i_cont < Direcciones.Length ; i_cont ++){
			Console.WriteLine("IP {0}: {1} ", i_cont + 1, Direcciones[i_cont].ToString());
		}
		Console.Read();
		}
	}
}

Si este código te fue util no olvides darle una calificación en PanoramaBox :)


Espacios de nombres usados en el código de este artículo:

System.Net

 


ir al índice