Break On
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('NoMacrosInStrings','On')
 
Dim $List,$Computer,$Computers
$List = @ScriptDir+'\'+'computers.txt'
$Computers = ReadFile($List)
For Each $Computer In $Computers
  If $Computer
    'Computer name: ' + $Computer ?
    ;instead of example above you would put in something like this 
    ;SHELL '%comspec /c NETDOM  <commands you need> ' 
  EndIf
Next
 
Function ReadFile($file)
  Dim $lf, $f, $_, $t
  $lf=CHR(10)
  $f=FreeFileHandle
  $_=Open($f,$file)
    If @ERROR Exit @ERROR EndIf
    Do $t=$t+$lf+ReadLine($f) Until @ERROR
    $_=Close($f)
  $ReadFile=Split(SubStr($t,2),$lf)
EndFunction