Select
Case InGroup( 'Logon A' )
  $sPrinterList='\\apple\BW \\apple\BW colour'
 Case 1						; catch all, clear printerlist
  $sPrinterList = ''
EndSelect

If $sPrinterList				; if sPrinterList is defined, perform this logic
  For Each $sPrinter in Split($sPrinterList)
    'Checking printer ' + $sPrinter + @CRLF
    If PriMapState($sPrinter)
      '  Already connected' + @CRLF
    Else
      '  Connecting...' + @CRLF
      If AddPrinterConnection($sPrinter)
         '   **Error connecting: [' + @ERROR + '] ' + @SERROR + @CRLF
      Else
         '   Success!' + @CRLF
      EndIf
    EndIf
  Next
EndIf

Exit 0

$sPrinterList='\\apple\BW','\\apple\BW colour'
..
..
..
For Each $sPrinter in $sPrinterList

$string1 = "printer1","printer2"
$string2 = "printer1" "printer2"
$array1 = Split($string1,",")
$array2 = Split($string2," ")

;Region Check printer logfile
;Set printer log file name
$printerlog = "C:\somefolder\Printers.ini"
;Check if the printer log file exists.
If Exist ($printerlog)
	;Delete old printer log file.
	Del $printerlog
	;Create printer log file.
	$rc = CreateFile($printerlog)
Else
	;Create printer log file.
	$rc = CreateFile($printerlog)
EndIf
;endregion

;Region Set variables
;Set name of the printerserver
$printerserver = "Server"
;Get all installed network printers.
;Set the key that should be enumerated.
$key = "HKCU\Printers\Connections"
;Enumerate network printers key.
$oldprinters = ArrayEnumKey($key)
;Do stuff for each value
For Each $value in $oldprinters
	;Split the value on the comma.
	$value = Split($value, ",")
	;Put the value back together so that is represents the correct path to the printer.
	$value1 = "\\"+ $value[2] + "\" + $value[3]
	;Add the created value to a variable to be writiine to the printer log file.
	$oldprinter = $oldprinter + "~" + $value1
Next
;Write all old printers to the printer log file.
$rc = WriteProfileString($printerlog, "Printers", "OldPrinters", $oldprinter)
$currentprinters = Split($oldprinter, "~")
;endregion

;Region Add printers
;Set printer name.
$printer = "\\" + $printerserver + "\Printer"
;Check group membership.
If InGroup("SomeName-Default") Or InGroup("SomeName-Extra")
	;Check if the printer is already installed.
	If Not PriMapState($printer)
		;Printer is not installed. Add printer.		
		$rc = AddPrinterConnection($printer)
	EndIf
	;Read all so far installed printers from the printer log file.
	$connected = ReadProfileString($printerlog, "Printers", "NewPrinters")
	;Add the printer name to a variable to be written to the printer log file.
	$connected = $connected + "~" + $printer
	;Write the new printers value to the printers log file.
	$rc = WriteProfileString($printerlog, "Printers","NewPrinters",$connected)
EndIf

;Region Set default printer
;Check group membership.
If InGroup("SomeName-Default")
	$printer = "\\" + $printerserver + "\Printer"
	;Check if the printer is already set as default.
	If PriMapState($printer) <> "2"
		;Set default printer.
		$rc = SetDefaultPrinter($printer)
	EndIf
EndIf

;Region Clean printers
;Read all old network printers from the printer log file.
$oldprinters = ReadProfileString($printerlog, "Printers", "OldPrinters")
;Check if there are any old printers in the list.
If $oldprinters <> ""
	;Split the old printers on the ~ character
	$oldprinters = Split($oldprinters, "~")
EndIf
;Check each element of the array.
For $i = 0 to UBound($oldprinters)
	;Remove extra ~ characters.
	$oldprinters[$i] = Join(Split($oldprinters[$i], "~"),"")
Next

;Read all new printers from the printer log file.
$newprinters = ReadProfileString($printerlog, "Printers", "NewPrinters")
;Check if there are any new printers in the list.
If $newprinters <> ""
	;Split the new printers on the ~ character
	$newprinters = Split($newprinters, "~")
EndIf
;Check each element of the array.
For $i = 0 to UBound($newprinters)
	;Remove extra ~ characters.
	$newprinters[$i] = Join(Split($newprinters[$i], "~"), "")
Next

;Compare the list of old and new printers.
$tobedeletedprinters = ArrayComp($newprinters, $oldprinters)
;Check if there are any printers that should be deleted.
If UBound($tobedeletedprinters) > -1
	For Each $tobedeletedprinter in $tobedeletedprinters
		;Delete each printer that should be deleted.
		$rc = DelPrinterConnection($tobedeletedprinter)
	Next
EndIf
;endregion

Function CreateFile($file)
	Dim $newFolder, $NewFile, $fso
	$fso = CreateObject("Scripting.FileSystemObject")
	$NewFile = $fso.CreateTextFile($file, True)
	$NewFile.Close
EndFunction