; -------------------------------------------------------------------
; Call: EnumPrinterConnections()
; Returns: Array of Printers, format is "printer name","printer port name" ; or empty array
; Requires: Windows Script Host 1.0+ (included in IE5.0+)

? "----------------------------------------------------------"

$printers=EnumPrinterConnections()

GOSUB "doUpgrade"

Exit





; ****************************************
;
; SUBROUTINES
;
; ****************************************


:doUpgrade
	$DefaultPrinter=ReadValue ("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows", "Device")
	$oldprintserver="TYPHOON"
	$newprintserver="HSCXNTFP0101"
	$printers=EnumPrinterConnections()

	For Each $printer in $printers
		? "Attempting to delete "+$printer+"."
		If DelPrinterConnection ("\\"+$oldprintserver+"\"+$printer) = 0
			? "Attempting to add "+$printer+"."
			If AddPrinterConnection ("\\"+$newprintserver+"\"+$printer) = 0
				? $printer+" added successfully."
				If InStr ($DefaultPrinter,$printer)
					$null = SetDefaultPrinter ("\\"+$newprintserver+"\"+$printer)
				Endif
			Else
				? $printer+" was not added successfully."
			Endif
		Else
			? $printer+" did not need to be deleted."
		Endif
		?
	Next
RETURN









; ****************************************
;
; FUNCTIONS
;
; ****************************************

Function EnumPrinterConnections
; return a list of all printer connections
; format: UNC name, port
	Dim $ReturnArray[]
	Dim $WshNetwork, $oPrinters
	Dim $i
	
	$EnumPrinterConnections=""
	$WshNetwork = CreateObject("WScript.Network")
	If @Error=0
		$oPrinters = $WshNetwork.EnumPrinterConnections
		For $i = 0 to $oPrinters.Count-1 Step 2
			; init/enlarge the return array
			If Ubound($ReturnArray)=-1
				ReDim $ReturnArray[0]
			Else
				ReDim Preserve $ReturnArray[Ubound($ReturnArray)+1]
			EndIf
			$ReturnArray[Ubound($ReturnArray)]=$oPrinters.Item($i+1)+","+$oPrinters.Item($i)
		Next
	Else 
		? "Failed to get WScript.Network object."
	EndIf 
	$EnumPrinterConnections=$ReturnArray
EndFunction

   

Quote:

---

----------------------------------------------------------
Attempting to delete \\hscxntfp0101\BA111_1Q,ba111-1q.dhcp.hsc.mb.ca.
\\hscxntfp0101\BA111_1Q,ba111-1q.dhcp.hsc.mb.ca did not need to be deleted.

Attempting to delete \\hscxntfp0101\GC209_1Q,IP_172.16.152.148.
\\hscxntfp0101\GC209_1Q,IP_172.16.152.148 did not need to be deleted.

Attempting to delete \\TYPHOON\BA102_1Q,ba102-1q.dhcp.hsc.mb.ca.
\\TYPHOON\BA102_1Q,ba102-1q.dhcp.hsc.mb.ca did not need to be deleted.

---

Else
	? $printer+" did not need to be deleted."
Endif

Else
	? "\\"+$oldprintserver+"\"+$printer+" did not delete."
	? @error @serror
Endif

 Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\>z:

Z:\>kix32.exe typhoonupgrade.kix

----------------------------------------------------------
Attempting to delete \\hscxntfp0101\BA111_1Q,ba111-1q.dhcp.hsc.mb.ca.
\\TYPHOON\\\hscxntfp0101\BA111_1Q,ba111-1q.dhcp.hsc.mb.ca did not delete.

Attempting to delete \\hscxntfp0101\GC209_1Q,IP_172.16.152.148.
\\TYPHOON\\\hscxntfp0101\GC209_1Q,IP_172.16.152.148 did not delete.

Attempting to delete \\TYPHOON\BA102_1Q,ba102-1q.dhcp.hsc.mb.ca.
\\TYPHOON\\\TYPHOON\BA102_1Q,ba102-1q.dhcp.hsc.mb.ca did not delete.

Z:\> 

cls
break on
; -- USING IDEAS FROM - http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Number=81569
; -- "Default Printer Configuration"
$reg='HKCU\Software\Microsoft\Windows NT\CurrentVersion'
$dev=$reg+'\Devices'
$nprt=split(READVALUE($reg+'\Windows','Device'),',')[0]
$NEW='HSCXNTFP0101'
$OLD='TYPHOON'
; -- CHECK FOR AND SET THE DEFAULT PRINTER
If $nprt<>''
        $srv=SPLIT($nprt,'\')[2] ; SERVER
        IF $srv=$old
           $prn=SPLIT($nprt,'\')[3] ; PRINTER
           $rc=ADDPRINTERCONNECTION('\\'+$new+'\'+$prn)
           $rc=DELPRINTERCONNECTION('\\'+$srv+'\'+$prn)
           $rc=SETDEFAULTPRINTER('\\'$new+'\'+$prn)
        ENDIF
ENDIF
; -- NOW ENUMERATE INSTALLED PRINTERS AND MOVE
$i=0
DO
    IF '\\'=LEFT($x,2)
        $priReg=$priReg+$x
        $srv=SPLIT($dev,'\')[2]
        IF $srv=$old
           $prn=SPLIT($dev,'\')[3]
           $rc=ADDPRINTERCONNECTION('\\'$new+'\'+$prn)
           $rc=DELPRINTERCONNECTION('\\'+$srv+'\'+$prn)
        ENDIF
    ENDIF
    $x=ENUMVALUE($dev,$i)
    $i=$i+1
UNTIL @error

$NewPrint = "newprint01"

$objWMI = GetObject("winmgmts:{impersonationlevel=impersonate}!//" + @WKSTA)
$qryPrinters = "select * from win32_printer where servername is not null"
$colPrinters = $objWMI.ExecQuery($qryPrinters)
For Each $objPrinter In $colPrinters
	$Name = $objPrinter.ShareName
	$Server = $objPrinter.ServerName
	$Attr = $objPrinter.Attributes
	;? "\\" + $Server + "\" + $Name + "          	" + $Attr
	If $Server = "\\oldprint01" Or "\\oldprint02" Or "\\oldprint03"
		$x = DelPrinterConnection($Server + "\" + $Name)
		$x = AddPrinterConnection("\\" + $NewPrint + "\" + $Name)
		If $Attr & 4
		;	? $Name + " is the default printer."
			$x = SetDefaultPrinter("\\" + $NewPrint + "\" + $Name)
		Endif
	Endif
Next
$objWMI = 0
  

cls
break on
; -- USING IDEAS FROM - http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Number=81569
; -- "Default Printer Configuration"
$reg='HKCU\Software\Microsoft\Windows NT\CurrentVersion'
$dev=$reg+'\Devices'
$nprt=split(READVALUE($reg+'\Windows','Device'),',')[0]
$NEW='HSCXNTFP0101'
$OLD='TYPHOON'
; -- CHECK FOR AND SET THE DEFAULT PRINTER
If $nprt<>''
        $srv=SPLIT($nprt,'\')[2] ; SERVER
        IF $srv=$old
           $prn=SPLIT($nprt,'\')[3] ; PRINTER
           $rc=ADDPRINTERCONNECTION('\\'+$new+'\'+$prn)
           $rc=DELPRINTERCONNECTION('\\'+$srv+'\'+$prn)
           $rc=SETDEFAULTPRINTER('\\'$new+'\'+$prn)
        ENDIF
ENDIF
; -- NOW ENUMERATE INSTALLED PRINTERS AND MOVE
$i=0
DO
    IF '\\'=LEFT($x,2)
        $srv=SPLIT($x,'\')[2]
        IF $srv=$old
           $prn=SPLIT($x,'\')[3]
           $rc=ADDPRINTERCONNECTION('\\'$srv+'\'+$prn)
           $rc=DELPRINTERCONNECTION('\\'+$srv+'\'+$prn)
        ENDIF
    ENDIF
    $x=ENUMVALUE($dev,$i)
    $i=$i+1
UNTIL @error

 cls
break on
? "Checking Stuff"
; -- USING IDEAS FROM - http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Number=81569
; -- "Default Printer Configuration"
$reg='HKCU\Software\Microsoft\Windows NT\CurrentVersion'
$dev=$reg+'\Devices'
$nprt=split(READVALUE($reg+'\Windows','Device'),',')[0]
$NEW='HSCXNTFP0101'
$OLD='TYPHOON'
; -- CHECK FOR AND SET THE DEFAULT PRINTER
If $nprt<>''
        $srv=SPLIT($nprt,'\')[2] ; SERVER
        IF $srv=$old
           $prn=SPLIT($nprt,'\')[3] ; PRINTER
           $rc=ADDPRINTERCONNECTION('\\'+$new+'\'+$prn)
           $rc=DELPRINTERCONNECTION('\\'+$srv+'\'+$prn)
           $rc=SETDEFAULTPRINTER('\\'+$new+'\'+$prn)
        ENDIF
ENDIF
; -- NOW ENUMERATE INSTALLED PRINTERS AND MOVE
$i=0
DO
    IF '\\'=LEFT($x,2)
        $srv=SPLIT($x,'\')[2]
        IF $srv=$old
           $prn=SPLIT($x,'\')[3]
           $rc=ADDPRINTERCONNECTION('\\'+$srv+'\'+$prn)
           $rc=DELPRINTERCONNECTION('\\'+$srv+'\'+$prn)
        ENDIF
    ENDIF
    $x=ENUMVALUE($dev,$i)
    $i=$i+1
UNTIL @error

? "Done"

EXIT 

Function fnRemapPrinters($sOldServer,$sNewServer)
	Dim $lIndex,$sPorts,$sServer,$sPrinter,$sPort,$sSplit,$lS,$sShare,$NUL,$Err,$sDevice,$sDefault,$sPrinterPorts
	Dim $sPrinters[100]
	$fnRemapPrinters=0
	$lIndex=0
	If @INWIN=1
		$sPorts="HKCU\Printers\Connections\"
		$sDefault=Split(ReadValue("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows","Device"),",")[0]
		Do
			$sPrinters[$lIndex]=EnumKey($sPorts,$lIndex)
			$lIndex=$lIndex+1
			If Ubound($sPrinters)=$lIndex Redim Preserve $sPrinters[Ubound($sPrinters)+100] EndIf
		Until @ERROR
		Redim Preserve $sPrinters[$lIndex-1]
		For $lIndex = 0 to Ubound($sPrinters)
			$sServer=ReadValue($sPorts+$sPrinters[$lIndex],"Server")
			If SUBSTR($sServer,3,LEN($sServer))=$sOldServer
				$sPrinter=Split($sPrinters[$lIndex],",")[3]
				$NUL=AddPrinterConnection("\\"+$sNewServer+"\"+$sPrinter)
				If @ERROR
					$Err=@ERROR
				Else
					If $sDefault="\\"+$sOldServer+"\"+$sPrinter
						$NUL=SetDefaultPrinter("\\"+$sNewServer+"\"+$sPrinter)
					EndIf
					$NUL=DelPrinterConnection("\\"+$sOldServer+"\"+$sPrinter)
					If @ERROR $Err=@ERROR EndIf
					$fnRemapPrinters=$fnRemapPrinters+1
				EndIf
			EndIf
		Next
	Else
		$sPorts="HKLM\System\CurrentControlSet\control\Print\Printers\"
		Do
			$sPrinters=EnumKey($sPorts,$lIndex)
			If $sPrinters
				$sPort=ReadValue($sPorts+$sPrinters,"Port")
				$sSplit=Split($sPort,"\")
				If $sSplit[2]=$sOldServer
					$lS=Len($sPort)-Len($sOldServer)-2
					$sShare=Right($sPort,$lS)
					$NUL=WriteValue($sPorts+$sPrinters,"Port","\\"+$sNewserver+$sShare,"REG_SZ")
					If @ERROR $Err=@ERROR EndIf
					$sDevice=ReadProfileString ("Win.ini", "Windows", "Device")
					$sDevice=Split($sDevice,",")
					If $sDevice[2]=$sPort
						$NUL=WriteProfileString ("Win.ini", "Windows", "Device", 
							$sDevice[0]+","+$sDevice[1]+","+"\\"+$sNewserver+$sShare)
						If @ERROR $Err=@ERROR EndIf
					EndIf
					$NUL=WriteProfileString ("Win.ini", "Ports", $sPort)
					$NUL=WriteProfileString ("Win.ini", "Ports", "\\"+$sNewserver+$sShare, " ")
					If @ERROR $Err=@ERROR EndIf
					$sPrinterPorts=ReadProfileString ("Win.ini", "PrinterPorts", $sPrinters)
					$sPrinterPorts=Split($sPrinterPorts,",")
					$NUL=WriteProfileString ("Win.ini", "PrinterPorts", $sPrinters, 
						$sPrinterPorts[0]+","+"\\"+$sNewserver+$sShare+","+$sPrinterPorts[2]+","+$sPrinterPorts[3])
					If @ERROR $Err=@ERROR EndIf
					$sDevices=ReadProfileString ("Win.ini", "Devices", $sPrinters)
					$sDevices=Split($sDevices,",")
					$NUL=WriteProfileString ("Win.ini", "Devices", $sPrinters, $sDevices[0]+","+"\\"+$sNewserver+$sShare)
					If @ERROR $Err=@ERROR EndIf
					If Not $Err $fnRemapPrinters=$fnRemapPrinters+1 EndIf
				EndIf
			EndIf
			$lIndex=$lIndex+1
		Until $sPrinters=""
	EndIf
	If Not $Err $Err=0 EndIf
	Exit $Err
EndFunction