If all computernames have a - between room and pc-number then you could do something like (kix 4.x):

code:
break on
$room=split(@wksta,"-")[0]
 
select
 case S1==ucase($room)
  ;enable/disable internet
 
 case S2==ucase($room)
  ;enable/disable internet
 
 case S3==ucase($room)
  ;enable/disable internet
 
 case S4==ucase($room)
  ;enable/disable internet
 
 case S5==ucase($room)
  ;enable/disable internet
 
 case 1
  ;do nothing
 
endselect
_________________________
Greetz,
Patrick Rutten

- We'll either find a way or make one...
- Knowledge is power; knowing how to find it is more powerful...
- Problems don't exist; they are challenges...