Option Explicit
Dim oNetwork, sPrintPath
Set oNetwork = CreateObject("WScript.Network")
' Begin callout A
	Select Case oNetwork.ComputerName
		Case "Gamma"
			sPrintPath = "\\server\printer1"
		Case "Geektoy"
			sPrintPath = "\\server\printer2"
		Case Else
			sPrintPath = "\\server\printer2"
	End Select
' End callout A
oNetwork.AddWindowsPrinterConnection sPrintPath
oNetwork.SetDefaultPrinter sPrintPath