saber la ip de un pc?

"Jose" wrote in message
news:

Como saber la ip de un pc en vb.net 2003

La siguiente rutina escribe todas las IPs del PC (puede tener más de una).
Requiere poner en el proyecto una Referencia a System.Management, y hacer un
Imports System.Management. Contiene dos bucles anidados: el primero recorre
todas las tarjetas de red del PC, y el segundo enumera, por cada tarjeta,
todas las direcciones de esa tarjeta.

Dim query as ManagementObjectSearcher = new _
ManagementObjectSearcher("SELECT * FROM
WIN32_NetworkAdapterConfiguration WHERE IPEnabled = 'TRUE'")
Dim queryCollection as ManagementObjectCollection = query.Get()
Dim mo as ManagementObject
For Each mo In queryCollection
Dim addresses() as string = CType(mo("IPAddress"), string())

Dim ipaddress as string
For Each ipaddress In addresses
Console.WriteLine(" IP Address: {0}", ipaddress)
Next
Next

Gracias Alberto
"Alberto Poblacion"
escribió en el mensaje news:

"Jose" wrote in message
news:

Como saber la ip de un pc en vb.net 2003

La siguiente rutina escribe todas las IPs del PC (puede tener más de una).
Requiere poner en el proyecto una Referencia a System.Management, y hacer
un Imports System.Management. Contiene dos bucles anidados: el primero
recorre todas las tarjetas de red del PC, y el segundo enumera, por cada
tarjeta, todas las direcciones de esa tarjeta.

Dim query as ManagementObjectSearcher = new _
ManagementObjectSearcher("SELECT * FROM
WIN32_NetworkAdapterConfiguration WHERE IPEnabled = 'TRUE'")
Dim queryCollection as ManagementObjectCollection = query.Get()
Dim mo as ManagementObject
For Each mo In queryCollection
Dim addresses() as string = CType(mo("IPAddress"), string())

Dim ipaddress as string
For Each ipaddress In addresses
Console.WriteLine(" IP Address: {0}", ipaddress)
Next
Next