You can use the function in kixtart to read the last two number, (I can remember the function, please read the menu)
say,
;************
$wksta=@wksta
$a=function($wksta,5,2) ;take last two char
$what_rm=val($a) ;change to number

if $what_rm > 30
addprinterconnection(\\sever\printer_rm2)
else
addprinterconnection(\\sever\printer_rm1)
endif
;******************
I am work fine in my three location, though I
am not use the number but the initial char of the @wksta.

If any worng in above script, pls correct it.

Gilbert Ng