Set Network = CreateObject("Wscript.Network")
compname = network.computername
room = left(compname,3)
Select Case room
Case "DP1"
Network.AddWindowsPrinterConnection "\\server1\DP1Laser"
Network.SetDefaultPrinter "\\server1\DP1Laser"
Case "DP2"
Network.AddWindowsPrinterConnection "\\server1\DP2Laser"
Network.SetDefaultPrinter "\\server1\DP2Laser"
case else
End Select