Great that at least a part of it is working. The script below should do the trick for adding the printers.
The $rc = in front of the AddPrinterConnection and SetdefaultPrinter lines will catch the return codes of these function so they do not show on the screen.

 Code:
$ComputerPrt = Left(@wksta, 6)
If $ComputerPrt = "VA-CTX"
	Run "\\server\netlogon\XDClientName.exe"
	$client ExpandEnvironmentVars(%xdclientname%)
	Select
		Case Left($client, 6) "LA-ROO"
			$rc = AddPrinterConnection("\\VA-PRN-001\printer1")
			$rc = SetDefaultPrinter("\\VA-PRN-001\printer1")
		Case Left($client, 6) "LA-DOC"
			$rc = AddPrinterConnection("\\VA-PRN-001\printer1")
			$rc = AddPrinterConnection("\\VA-PRN-001\printer2")
			$rc = SetDefaultPrinter("\\VA-PRN-001\printer1")
	EndSelect
Else
	;Not on a xen server.
	;Do stuff for non xen sessions here.
EndIf
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.