I just gave an example.
I will elaborate on the list of printers you are mapping.

\\A01\LJ4250NPS
\\A01\LJ4250TN
\\A01\LJ4250TN2

Is that 1 printer with 3 print queues with different drivers?
If yes, delete 2!
Stick to your preferred driver.

I.e. we prefer Pcl5 drivers for HP printers as they print faster
For Canon copiers, we prefer UFR drivers

 Code:
; ===========================================================================================
;
; 	Script Information
;	
;	Title:       
;	Author:      Wim Rotty
;	Date:        
;	Description: 
;	
;
; ===========================================================================================

;;;;;;;;;;;;;;;;;;
; Script Options ;
;;;;;;;;;;;;;;;;;;

If Not @LOGONMODE
	Break On
Else
	Break Off
EndIf
Dim $RC
$RC = SetOption("Explicit", "On")
$RC = SetOption("NoMacrosInStrings", "On")
$RC = SetOption("NoVarsInStrings", "On")
If @SCRIPTEXE = "KIX32.EXE"
	$RC = SetOption("WrapAtEOL", "On")
EndIf

;;;;;;;;;;;;;;;;;;;;;
; Declare variables ;
;;;;;;;;;;;;;;;;;;;;;

Dim $Printers, $Printer

;;;;;;;;;;;;;;;;;;;;;;;;
; Initialize variables ;
;;;;;;;;;;;;;;;;;;;;;;;;

$Printers = Split(''
	+ '\\A01\X7665FIN'   + '|'
	+ '\\A01\X7665MEM'   + '|'
	+ '\\A01\LJC2550PS3' + '|'
	+ '\\A01\LJC3800PS'  + '|'
	+ '\\A01\LJ4250NPS'  + '|'
	+ '\\A01\LJ4250TN'   + '|'
	+ '\\A01\LJ4250TN2'  + '|'
	+ '\\A01\LJ8100PCL6' + '|'
	+ '\\A01\LJ8100PS'   + '|'
	+ '\\A01\LJ4300PCL6' + '|'
	+ '\\A01\MCROPLXF24' + '|'
	+ '\\A01\OJ7310'     , '|')

;;;;;;;;
; Code ;
;;;;;;;;

For Each $Printer in $Printers
	If primapstate($Printer) = ''
		$RC = AddPrinterConnection($Printer)
	EndIf
Next

;;;;;;;;;;;;;;;;;;;;;;;;
; Personal UDF Section ;
;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;
; UDF Section ;
;;;;;;;;;;;;;;;

; Do not forget to add the PriMapState UDF