code:

---

 ? REVPING("1.1.100.229")
? @error
? REVPING("216.239.51.100")
? @error
? "DONE"
get $

FUNCTION REVPING($ipnum)
		 DIM $nameip, $tempfile
		 $tempfile = "%temp%\nameip.txt"
		 
		 SHELL '%Comspec% /Q /E:1024 /C FOR /F "TOKENS=2* DELIMS= " %%i IN ('+ CHR(39)
		 + '"PING -a -n 1 $ipnum | FIND "]""' + CHR(39) + ') DO ECHO %%i >' + $tempfile
		 
		 IF OPEN(10,$tempfile,2) = 0  $nameip = READLINE(10)  
		 ELSE  $nameip = ""  
		 ENDIF
		 IF CLOSE(10) = 0  
		 DEL $tempfile  
		 ENDIF
		 IF $nameip <> "" $revping = TRIM($nameip) 
		 EXIT (0) 
		 ELSE		 $revping = "UNRESOLVED"		 
		 EXIT (1) 
		 ENDIF
ENDFUNCTION 

---

It works just right, but only on a NT platform.

So Hopefully some OLD SCHOOL people can tell me what the hell is the invalid switch.

code:

---

shell '%comspec% /c ping $ip | find "0% loss" >null'
if @error
  "could not ping"
else
 "ping succesfull"
endif

---

code:

---

$ip="0.0.1.1"
shell '%comspec% /c ping $ip | find "(0% loss)" >null'
if @error
  "could not ping"
else
 "ping succesfull"
endif

---