Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
msgbox ping("localhost") 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 1000 " & Target) results = exec.StdOut.ReadAll Ping = InStr(1,results, "reply from",vbtextcompare) > 0 End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Powershell Script to read AD attribute, then send email based on value of attribute||9||126|
|Adding a countdown to HTA||12||116|
|Having trouble with a VB Script||17||36|
can you please explain this Set objUser = GetObject("LDAP://CN=Some Users,OU=Some OU,DC=Your,DC=Domain,DC=lo
Join the community of 500,000 technology professionals and ask your questions.