IF /i ("ping google.com") EQU (1)

THEN

	copy c:\somefile.exe c:\somelocation
ELSE

	exit

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