I presume this should help to speed up te logon script (I did not test it).
Grabbing the output of the used functions in variables avoids command screen output and enables you using wkix32.exe
 Code:
Dim $RC
Dim $Printers, $Printer
$Printers = EnumPrinterConnections2()
For Each $Printer in $Printers
	;? $Printer
	$Printer = Split($Printer, ',')[0]
	;? $Printer
	;$RC = DelPrinterConnection($Printer)
Next

If PriMapState('\\Zeus\AficioC') = ''
	$RC = AddPrinterConnection('\\Zeus\AficioC')
EndIf
If PriMapState('\\Zeus\AficioB') = ''
	$RC = AddPrinterConnection('\\Zeus\AficioB')
EndIf
;If PriMapState('\\Mars\FinanceLW') = ''
;	$RC = AddPrinterConnection('\\Mars\FinanceLW')
;EndIf
If PriMapState('\\Zeus\Aficio (Mono)') = ''
	$RC = AddPrinterConnection('\\Zeus\Aficio (Mono)')
EndIf
If Not PriMapState('\\Zeus\Aficio (Mono)') = 2
	$RC = SetDefaultPrinter('\\Zeus\Aficio (Mono)')
EndIf