Set WshNetwork = WScript.CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection "\\bcs_pdc\Can_400pcl"
WshNetwork.AddWindowsPrinterConnection "\\bcs_pdc\ColorLaser"
WshNetwork.AddWindowsPrinterConnection "\\bcs_pdc\Library"
WshNetwork.AddWindowsPrinterConnection "\\bcs_pdc\room4"
WshNetwork.AddWindowsPrinterConnection "\\bcs_pdc\room7"
WshNetwork.AddWindowsPrinterConnection "\\bcs_pdc\room10"
WshNetwork.AddWindowsPrinterConnection "\\bcs_pdc\room17"

'If necessary, set the default printer when more than one printer in the domain
WshNetwork.SetDefaultPrinter "\\bcs_pdc\room4"