Pequeña función que muestra cómo conseguir las direcciones IP de un ordenador o de un dominio. Hay que tener en cuenta que un dominio o equipo puede tener varias direcciones IP
El código del ejemplo, nos mostrará las distintas IP que tiene un equipo. Básicamente usaremos dos clases la primera es IPAddress y la segunda es Dns, ambas clases pertenecen al espacio de nombres System.Net.
La función rellena las IP en la clase IPAddress mediante el método GetHostAddresses de la clase Dns que nos retorna las distintas direcciones IP del equipo indicado y mediante For..Each iremos obteniendo las distintas IP del equipo o dominio que hayamos elegido y finalmente mostramos las IP en pantalla.
Para usar esta función, solo tenemos que pasar un dominio, por ejemplo google.com
''' <summary> ''' Saber la dirección IP de un dominio o de un equipo a partir de su nombre ''' </summary> ''' <param name="valorIP">Cadena con un dominio por ejemplo Google.com</param> ''' <remarks> ''' <code>http://www.bitarray.info/2011/01/vb-c-net-saber-la-direccion-ip-de-un-dominio-o-de-un-equipo-a-partir-de-su-nombre/</code> '''</remarks> Function IPs(ByVal valorIP As String) As String 'Usamos "Try – Catch" por si existe algún error, y lo mostramos en pantalla. Try 'Mediante el método GetHostAddresses de la clase DNS obtenemos las distintas IP del dominio Dim MisIp As System.Net.IPAddress() = System.Net.Dns.GetHostAddresses(valorIP) 'Recorremos MisIp y almacenamos cada una de ellas en MiIP y las mostramos en pantalla. For Each MiIp As System.Net.IPAddress In MisIp Console.WriteLine(MiIp) Next Console.ReadKey() Catch ex As Exception 'Si existe algún error lo mostramos en pantalla. Console.WriteLine("ERROR: " & ex.Message) Console.ReadKey() End Try Return String.Empty End Function