rundll32 printui.dll,PrintUIEntry /Xs /n "OLDprintername" printername "NEWprintername"

Dim $PrinterName, $NewPrinterName
$PrinterName = "Client\pailles_dom-nns\\\hfdc01pl \laserjet 1320"
$NewPrinterName = Split($PrinterName,"\")[Ubound(Split($PrinterName,"\"))]
? $NewPrinterName

 

Break on

$Count = 0
$PRNKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices"

While @ERROR = 0
     $OldPrinterName = EnumValue ($PRNKey,$Count)
     If  @ERROR Exit 0 EndIf
	   
     $NewPrinterName = Split($OldPrinterName,"\")[Ubound(Split($OldPrinterName,"\"))]
		
     If $NewPrinterName <> $OldPrinterName
       Run '%COMSPEC% /c rundll32 printui.dll,PrintUIEntry /Xs /n "$OldPrinterName" printername "$NewPrinterName"'
     EndIf
     $Count = $Count + 1    
Loop

Exit 0

 

Quote:

---

Client\pailles_dom-nns#\\\HWFDC01PL\hp LaserJet 1320

---

Quote:

---

I still do not understand that name, shouldn't that be
\\Client\pailles_dom-nns#\HWFDC01PL\hp LaserJet 1320

---

Nah, thats ok. Citrix (before PS4) does that, e.g. when connecting a printer shared by another client that is mapped to the client. The syntax is "client\[clientname]\\\[name of client with printer]\[printername]".

Btw. Nazeedah, which Citrix version do you run?

 


Rem Set the local variables
SetLocal

Rem Wait about 15 seconds to let the terminal server map the printer...
Sleep 15

Rem Reads the default printer from the registry
"%SystemRoot%\Application Compatibility Scripts\acregl.exe" DefPrint.cmd DefaultPrinter "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows" "Device" ""

If Not Exist DefPrint.cmd (Call :Error 1) && (Goto EoF)

call DefPrint.cmd
del DefPrint.cmd

If Not Defined DefaultPrinter (Call :Error 2) && (Goto EoF)

Rem 2000 :: DefaultPrinter = HP DeskJet 820CSe on oz/TINMAN/Session 1,winspool,TS001
			
for /f "tokens=1 delims=," %%i in ('"echo %DefaultPrinter%"') do set OldPrinterString=%%i

for /f "tokens=1 delims=\" %%j in ('"echo %DefaultPrinter%"') do set PrinterString=%%j

Rem 2000 :: PrinterString = HP DeskJet 820Cse on oz/%clientname%/session 1
Rem Attempt to rename the printer...

rundll32 printui.dll,PrintUIEntry /Xs /n "%OldPrinterString%" printername "%PrinterString%"

Rem Done!
EndLocal
Goto EoF

:Error
msg %SessionName% /W Your printers were not successfully renamed.  Please notify an administrator.  (Error Code: %1)
EndLocal
Goto EoF

:EoF
 

Dim $ClientName
$ClientName = ExpandEnvironmentVars(%clientname%)
;? "ClientName Environment Variable = " + $ClientName
If $ClientName
	;? "Citrix session"
	;KiX Code here to rename printers
;Else
	;? "No Citrix session"
EndIf