parm IPAddr="192.1.1.1"
#
# Doug Werth          Beechglen Development Inc.
# doug@beechglen.com           Cincinnati, Ohio
#
setvar InvVid,chr(27) + "&dB"
purge pingout,temp >$null
if finfo("PINGOUT","EXISTS") = false
   build pingout;rec=-80,,f,ascii
endif
file pingout,old;dev=disc
ping.net.sys "!IPAddr,3,64" >*PINGOUT
grep.hpbin.sys "'100 % packet loss' PINGOUT" >$null
if cjcw = 0 then
   echo !InvVId!IPAddr not found
else
   grep.hpbin.sys "'Unknown node' PINGOUT" >$null
   if cjcw = 0 then
      echo !InvVId!IPAddr not found
   else
      comment !IPAddr is a good address.
   endif
endif