Conocer las pcs de una intranet - Manejo de System.Net.NetworkInformation.Ping

Me respondo a mi mismo:

For i = 1 To 254

Dim p As New System.Net.NetworkInformation.Ping

Dim control As System.Net.NetworkInformation.PingReply

pc = "xx.xxx.x." & i

control = p.Send(pc)

If control.Status() = System.Net.NetworkInformation.IPStatus.Success Then

'Agregar pc al listado

pc = ""

End If

Next i

"Rodrigo Barrere Brezina"
escribió en el mensaje news:

Hola grupo:

quisiera saber como se puede saber que pcs estan conectadas a una red LAN.
He intentado con Ping.Send, pero no se donde debo ver el resultado del

Ping,

si alguien tiene un ejemplo del uso del ping se lo voy a agradecer.

Saludos.

Rodrigo Barrere Brezina
Dpto. Sistemas - Aguas del Valle S.A.
Tel: 430003 - int 233
S.F.del V. de Catamarca - ARGENTINA