Pinging Network Server

[Gintaras]

Code:

Copy      Help

Wsh.WshShell objShell._create
Wsh.WshExec objScriptExec = objShell.Exec("ping -n 3 -w 1000 www.quickmacros.com")
str s=objScriptExec.StdOut.ReadAll
s.replacerx("[[]]+" "[]")
mes s

To get just time, use IntPing

Code:

Copy      Help

long t1=perf
if(!IntPing("http://www.quickmacros.com")) end "no response"
long t2=perf
int i=t2-t1/1000
out i