Obtener la dirección IP de un ordenador

1874 vistas


Para obtener la dirección IP de un ordenador tendremos que usar la función Resolve de la clase System.Net.Dns

Veamos un ejemplo:



vbnet
  1. Imports System.Net
  2.  
  3.     Function GetIPaddresses(Optional ByVal computername As String = "localhost") As String()
  4.  
  5.         Dim saddr() As String
  6.         Dim addr() As IPAddress = Dns.Resolve(computername).AddressList()
  7.         Dim i As Integer
  8.         If addr.Length > 0 Then
  9.             saddr = New String(addr.Length - 1) {}
  10.             For i = 0 To addr.Length - 1
  11.                 saddr(i) = addr(i).ToString
  12.             Next
  13.         End If
  14.  
  15.         Return saddr
  16.     End Function