Code:

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

Dim $aPrinters, $Printer, $Handle1, $File1
$aPrinters = EnumPrinterConnections2()
$Handle1 = FreeFileHandle()
$File1 = @SCRIPTDIR + "\" + Left(@SCRIPTNAME,Len(@SCRIPTNAME)-4) + ".txt"
If Open($Handle1,$File1,5) = 0
For Each $Printer in $aPrinters
$RC = WriteLine($Handle1,$Printer + @CRLF)
Next
$RC = Close($Handle1)
Else
? "Error opening or creating file: " + $File1
? "Error " + @ERROR + ": " + @SERROR
EndIf