$ComputerPrt = Left(@wksta, 6)
If $ComputerPrt = "VA-CTX"
$index = 0
$keyname = EnumKey("HKLM\software\citrix\PortICA\uxpersistence\", $index)
While @ERROR = 0
Select
Case InStr($keyname, "LA-DOC")
$client = Left($keyname, 6)
Case InStr($keyname, "LA-ROO")
$client = Left($keyname, 6)
Case InStr($keyname, "aaaaaa")
$client = Left($keyname, 6)
EndSelect
$Index = $Index + 1
$keyname = EnumKey("HKLM\software\citrix\PortICA\uxpersistence\", $index)
Loop
Select
Case $client = "LA-ROO"
$rc = AddPrinterConnection("\\VA-PRN-001\printer1")
$rc = SetDefaultPrinter("\\VA-PRN-001\printer1")
Case $client = "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