LISTING 2: Script to Create a Computer-Specific Printer Connection
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\printer3"
End Select
' End Callout A
oNetwork.AddWindowsPrinterConnection sPrintPath
oNetwork.SetDefaultPrinter sPrintPath