Option Explicit
Dim oNetwork, sPrintPath, sLocate
Set oNetwork = CreateObject("WScript.Network")
' Begin callout A
sLocate = _
	InputBox("Where are you? Type 'Lab', 'Library', or 'Reception'.")
' End callout A
Select Case sLocate
	Case "Lab"
		sPrintPath = "\\server\printerA"
	Case "Library"
		sPrintPath = "\\server\printerB"
	Case "Reception"
		sPrintPath = "\\server\printerC"
	Case Else
	MsgBox("That is not a valid choice. The script will exit.") : WScript.Quit
End Select
oNetwork.AddWindowsPrinterConnection sPrintPath
oNetwork.SetDefaultPrinter sPrintPath