alrighty!
now, if I understood all the pieces properly, all you need for all classes could be...
Code:
;Room XXX
;wksta: PTExXXXayy
;Printer laser: HPlaserjetXXX
;printer colour: hpXXX
;serveur: PTPServerName
if substr(@wksta,1,3) = "PTE"
$Room = substr(@wksta,4,4)
if substr($Room,1,1) = "0" $Room = substr($Room,2) endif ;if number begins with zero, remove it.
$retval = AddPrinterConnection("\\PTPServerName\HPlaserjet"+$Room)
$retval = AddPrinterConnection("\\PTPServerName\HP"+$Room)
endif
that same code works for all rooms.
now, if you want to make the laser the default (as example), you need to have the name of the printer instead of the sharename.
if your sharename and printername on the server are the same, then simply this will do:
Code:
if substr(@wksta,1,3) = "PTE"
$Room = substr(@wksta,4,4)
if substr($Room,1,1) = "0" $Room = substr($Room,2) endif ;if number begins with zero, remove it.
$retval = AddPrinterConnection("\\PTPServerName\HPlaserjet"+$Room)
$retval = SetDefaultPrinter("\\PTPServerName\HPlaserjet"+$Room)
$retval = AddPrinterConnection("\\PTPServerName\HP"+$Room)
endif
and that's it. there is 7 lines but heck... little extra for 3.xx 
you understand what I did there?
