Try this:
[code]Dim ns As New Shell
ns.Execute(“ping -c 2 192.168.1.255”)
ns.Execute(“arp -a”)
Dim items() As String = ns.Result.Split(EndOfLine)
Dim ips() As String
Dim rightSide As String
For Each item As String In items
rightSide = NthField(item,"(",2)
ips.Append NthField(rightSide,")",1)
Next[/code]
The ips array will contain all the detected (responding) IPs on that subnetwork.
Javier