$sessiontype = SessionType()
If $sessiontype = "ICA"
$computerprt = left ("%XDClientName%", 6)
else
$computerprt = left (@wksta, 6)
endif
select
case $computerprt = "LA-FAC"
AddPrinterConnection ("\\printserver\printer1")
SetDefaultPrinter("\\printserver\printer1")
case $computerprt = "LA-OFF"
AddPrinterConnection ("\\printserver\printer2")
SetDefaultPrinter("\\printserver\printer2")
case $computerprt = "CA-REC"
AddPrinterConnection ("\\printserver\printer3")
SetDefaultPrinter("\\printserver\printer3")
case $computerprt = "CA-ROO"
AddPrinterConnection ("\\printserver\printer4")
AddPrinterConnection ("\\printserver\printer1")
SetDefaultPrinter("\\printserver\printer4")
endselect