code:

---

 
$junkfile = "%temp%\winscl.xxx"
del $junkfile

shell '%comspec% /c ping -n 2 216.239.33.100 > $junkfile'
$filehandle = FreeFileHandle ( )
If Open ($filehandle, $junkfile) = 0
   $line = ReadLine ($filehandle)
   While @Error = 0
      If InStr ($line, "Reply from")
         $replies = 1
      Endif
      $line = ReadLine ($filehandle)
   Loop
Endif
$null = Close ($filehandle)
del $junkfile

If $replies < 1
   ? "Server not responding at this time"
Else
   ? "The server is up"
Endif

get $
 

---