Code:
if NOT @LOGONMODE
Break On
EndIf

Dim $SO,$DO
$SO = SetOption("Explicit","On")
$SO = SetOption("NoVarsInStrings","On")
$SO = SetOption("NoMacrosInStrings","On")

$DO = OSPing(”ftp.sunet.se”)

Function OSPing($sComputer)
Shell '"'+%COMSPEC%+'" /c ping -n 1 '+$sComputer+' |find /C "TTL=" >nul'
$OSPing = NOT @ERROR
EndFunction
_________________________
as long as it works - why fix it?
If it doesn't work - kix-it!