Ping Host From VB.Net

1
2
3
4
5
6
7
8
9
10
11
12
13
14

' --- 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

Leave a Reply