alias icmp {
var %t = $ticks
var %wsh = wsh $+ %t
.comopen %wsh wscript.shell
.comclose %wsh $com(%wsh,run,1,bstr*,% $+ comspec% /c ping $1 >ping $+ %t $+ .txt,uint,0,bool,true)
var %res = $read(ping $+ %t $+ .txt,$calc($lines(ping $+ %t $+ .txt) - 2))
var %r = $iif($remove($gettok(%res,$calc($numtok(%res,32) - 1),32),$chr(40),$chr(37)) < 100,$true,$false)
.remove ping $+ %t $+ .txt
return %r
}