code:

---

;******************************** Déclaration des vairables  *********************************
;
GLOBAL
$ddl,$ddl1,$bdl1,$bdl2,$ping_file,$ping,$reponse,$scf,$scf2
;
$scf="machine1"
$scf="machine2"
$scf2="machine3"
$ddl="machine4"
$bdl1="machine5"
$bdl2="machine6"
$ping_file=c:\temp\ping.txt			;fichier de sauvegarde pour les pings
$ping=""					;variable de la ligne en cours de lecture
;
;*************************************** Vérification des réponses  *************************
;
CLS
? "Pinging the $scf, please wait a moment"
shell '%comspec% /c "ping $scf >> $ping_file"'
IF Open (1,$ping_file)=0
	$ping=ReadLine(1)
	WHILE @ERROR = 0
		SELECT
		 CASE INSTR($ping,"de la")
			$reponse = "The $scf down"
		CASE INSTR($ping,"TTL")
			$reponse = "The $scf is Alive"
		ENDSELECT
	$ping=ReadLine(1)
	LOOP
$nul=close(1)
del $ping_file
ENDIF
? $reponse

---

code:

---

DIM $Array(0)		
DIM $ddl,$ddl1,$bdl1,$bdl2,$scf,$scf2
$z=7
ReDIM $array($z)
	CLS
	? "Pinging the $Array($z), please wait a moment"
	shell '%comspec% /c "ping $Array($z) >> $ping_file"'

---

quote:

---

? "Pinging the $Array[$z], please wait a moment".

---

quote:

---

Note: Unlike regular variables, arrays can not be used inside strings and can also not be assigned a value on the command line.

---

code:

---

$array=$machine1,$machine2,$machine3,$machine4
FOR EACH $element in $array
	? "Pinging $element, please wait a moment"
	shell '%comspec% /c "ping $element >> $ping_file"'
...
...
...
NEXT

---

code:

---

$array='machine1, machine2'
for each $comp in $array
  if not ping($comp)
    ? 'The computer '+$comp+' is not PINGable.'
  endif
next

---