script to select default printer
Posted on 2007-03-27
i am trying to get a script to offer the user a choice of which printer to have as their default depending on which office they happen to be. i think i am almost there but it does not work.
Dim objNetwork, sPrintPath, sLocate
set objNetwork = CreateObject("WScript.Network")
sLocate = InputBox("Which office are you in? Type 'B', 'M', 'N', 'R', 'T'.")
Select Case sLocate
sPrintPath = "\\jjfox1\BombayChicken"
sPrintPath = "\\jjfox1\MeatSamosa"
sPrintPath = "\\Newcastles\Navratan"
sPrintPath = "\\jjfox1\Raita"
sPrintPath = "\\jjfox1\tandoorichicken"
any help greatly appreciated