We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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.