I have the following requirements;
I require a basic ping function that takes a host/ip string and returns a Boolean true if successfully pinged.
*It cannot use GetObject
*it cannot show a cmd prompt
*It cannot use a temporary file
I have the following code which I like, but for a moment it shows the cmd prompt, it hangs even longer if an invalid host name was entered (but this can be avoided by sticking to ips)
Does anyone have a solution that meets the above requirements?
'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