Well this way i can just add the script in one place for all users so it's easy to make changes as i just alter the script, it incures very little overhead to manage them this way.
Set Network = CreateObject("Wscript.Network")
compname = network.computername
room = left(compname,3)
Select Case room
Case "D29"
The D29 bit is the first three charectors of the PC name.