' Begin callout A
	Option Explicit
	Dim oNetwork, sPrintPath
' End callout A


' Begin callout B
	Set oNetwork = CreateObject("WScript.Network")
' End callout B


' Begin callout C
	sPrintPath = "\\server\printer"
' End callout C


' Begin callout D
	oNetwork.AddWindowsPrinterConnection sPrintPath
	oNetwork.SetDefaultPrinter sPrintPath
' End callout D