Direccion ip Local

En VB 2003 ó VB 2002:

Imports System.Net

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim host As IPHostEntry = Dns.GetHostByName(Dns.GetHostName())
MessageBox.Show(host.AddressList(0).ToString())
End Sub
End Class


En VB 2005:

Imports System.Net

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim host As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName())
MessageBox.Show(host.AddressList(0).ToString())
End Sub
End Class


Un saludo.

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"JOSE DAVID GALVIZ M" wrote:

En Vb.Net, como hallo la IP de la maquina Local.


Gracias, compañeros.




JOSE DAVID GALVIZ MUÑOZ
MCAD - DCE 5 Estrella

Gracias Eugenio :)



JOSE DAVID GALVIZ MUÑOZ
MCAD - DCE 5 Estrella


"Jorge Serrano [MVP VB]"
escribió
en el mensaje news:
En VB 2003 ó VB 2002:

Imports System.Net

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim host As IPHostEntry = Dns.GetHostByName(Dns.GetHostName())
MessageBox.Show(host.AddressList(0).ToString())
End Sub
End Class


En VB 2005:

Imports System.Net

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim host As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName())
MessageBox.Show(host.AddressList(0).ToString())
End Sub
End Class


Un saludo.

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"JOSE DAVID GALVIZ M" wrote:

En Vb.Net, como hallo la IP de la maquina Local.


Gracias, compañeros.




JOSE DAVID GALVIZ MUÑOZ
MCAD - DCE 5 Estrella