Code:

If NOT @LOGONMODE
	Break On
EndIf
Dim $SO
$SO = SetOption("Explicit","On")
$SO = SetOption("NoMacrosInStrings","On")
$SO = SetOption("NoVarsInStrings","On")
$SO = SetOption("WrapAtEOL","On")

Dim $arrPrts[], $strPrt, $i, $j
$i = -1
$arrPrts = Split("Prt1,Prt2,Prt3",",")
For Each $strPrt In $arrPrts
	$i = $i + 1
	$SO = Execute("Dim $Printer" + $i)
	$SO = Execute("$Printer" + $i + " = " + $strPrt)
Next

For $j = 0 to $i step 1
	$SO = Execute("? $Printer" + $j)
Next