' --- ping the ip adress in the string s_ipaddr, and get
' the response time in the int32 n_response
' imports system.net.networkinformation
Dim ping As New System.Net.NetworkInformation.Ping
Dim reply As System.Net.NetworkInformation.PingReply
reply = ping.Send(s_ipaddr)
If reply.Status = IPStatus.Success Then
' --- handle reachable here
MsgBox("ping time " & reply.RoundtripTime)
Else
' --- handle non reachable here
End If