Ping Control

<br />
Public Function PingIPAddress(ByVal Destination As String) As Boolean<br />
Dim PingInfo As New System.Diagnostics.ProcessStartInfo("ping")<br />
PingInfo.WindowStyle = ProcessWindowStyle.Hidden<br />
'You can change the attempts at a ping by changing the " -n 1" part to a higher number - e.g. " -n 3"<br />
'also possible to add other options here such as "-l 64" ( send 64 bytes of data)<br />
PingInfo.Arguments = Destination & " -n 1"<br />
PingInfo.CreateNoWindow = True<br />
PingInfo.UseShellExecute = False<br />
PingInfo.RedirectStandardOutput = True<br />
Dim SystemProcess As New System.Diagnostics.Process<br />
SystemProcess.StartInfo = PingInfo<br />
SystemProcess.Start()<br />
SystemProcess.WaitForExit()<br />
Dim tmpResult As String<br />
tmpResult = SystemProcess.StandardOutput.ReadToEnd<br />
If InStr(tmpResult, "Reply from") > 0 Then<br />
'Debug.WriteLine("*******************************************")<br />
'Debug.Write(tmpResult)<br />
'Debug.WriteLine("*******************************************")<br />
Return True<br />
Else<br />
'Debug.WriteLine("*******************************************")<br />
'Debug.Write(tmpResult)<br />
'Debug.WriteLine("*******************************************")<br />
Return False<br />
End If<br />
End Function<br />