New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Function Ping(Target) Dim results On Error Resume Next Set shell = CreateObject("WScript.Shell") ' Send 1 echo request, waiting 2 seconds for result Set exec = shell.Exec("ping -n 1 -w 2000 " & Target) results = LCase(exec.StdOut.ReadAll) Ping = (InStr(results, "reply from") > 0) End Function If Ping("192.168.1.100") Then ' Do something to access the resource End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.