code:

---

:COMPUTERS
  Dim $computernames, $computer, $remoteroot, $macaddress, $waitseconds, $counter, $maxwait

  if exist($SCRIPTINI)
    $computernames=readprofilestring($SCRIPTINI,'','')
  

---

code:

---

function LoadFile($file)
;this function will load the contents of a text file into an array
;you can use a ";" in the test file for commenting and those lines will 
;not be loaded
	dim $nul, $count
	dim $temp[5]

	$nul = open(1,$file)
	while not @error
		$temp[$count] = readline(1)
		if substr($temp[$count],1,1) <> ";" and $temp[$count] <> ""
			$count = $count+1
		endif
		if $count > ubound($temp)
			redim preserve $temp[ubound($temp)+10]
		endif
	loop
	if $count > 0
		redim preserve $temp[$count - 1]
	else
		$temp = ""
	endif
	$loadfile = $temp
	$ = close(1)
endfunction

---

code:

---

for each $computer in $computerlist
  ;do stuff
next

---

code:

---

$infile="c:\machines.txt" ; <-- contains your machine names, one per line
    ; read the input file for the computer(s) to be queried
    If Open(3, "$infile") = 0
       $computerlist = Ucase(Trim(ReadLine(3)))
       While @error = 0      
          For Each $computer in $computerlist  
          	Gosub main ;do stuff
          Next
          $computer = Ucase(Trim(ReadLine(3)))
       Loop
       If Close (3) = 0
       EndIf
    EndIf
  

---

code:

---

$infile="c:\machines.txt" ; <-- contains your machine names, one per line
; read the input file for the computer(s) to be queried
If Open(3, "$infile") = 0
 $computer = Ucase(Trim(ReadLine(3)))
 While @error = 0 
  Gosub main ;do stuff
  $computer = Ucase(Trim(ReadLine(3)))
 Loop
 $nul=Close(3)
EndIf

---

code:

---

  Gosub main ;do stuff
  $computer = Ucase(Trim(ReadLine(3)))
 Loop
 $nul=Close(3)
EndIf

; script main
:main
[code]

and the return at the end of main.
then, before the exit put these lines back:
 [CODE]
  $computer = Ucase(Trim(ReadLine(3)))
 Loop
 $nul=Close(3)
EndIf

---