10-4 James,
Mac,
here we go [posted this @home .. very rare]
this fits NT (9x isn't supported by me but should run too )
code:

BREAK ON
$timeout = 5000 		;in milliseconds
$Server = "ServerName"
$Share = "ShareName"
SHELL "%Comspec% /e:1024 /C ping " + $Server + " -n 1 -w " + $timeout + " | find /C " + CHR(34) + "TTL=" + CHR(34) +" > nul"
IF @error = 0
	;USE K: '\\$Server\$Share'  OR 
	 USE K: "\\" + $Server + "\" + $Share
		IF @error = 0
			;do nothing
		ELSE
			? "Error - [" + @ERROR + "]" + " - " + @SERROR
		ENDIF
ELSE 
    ?"no reply from " + $Server
ENDIF
USE List  ; for test purposes
get $x
Exit

for the loop[inputfile] thought you need it for administrative scripts or something ...

Please share yer experiences with us

Bye
Jochen

b.t.w.: Carpe Diem !

_________________________