Add printers

‘ AddPrinters.vbs
‘ Script will add network printers as defined by servername and shared printer name below.
‘ If more than four printers are to be added, just add strUNCPrinter5 and so on.
‘ Written by Joachim Nässlander, Qbranch AB
‘ joachim.nasslander@qbranch.se.remove
‘ ————————————
Option Explicit
Dim objNetwork, strUNCPrinter1, strUNCPrinter2, strUNCPrinter3, strUNCPrinter4
strUNCPrinter1 = “\\servername\printername“
strUNCPrinter2 = “\\servername\printername“
strUNCPrinter3 = “\\servername\printername“
strUNCPrinter4 = “\\servername\printername“
Set objNetwork = CreateObject(”WScript.Network”)
objNetwork.AddWindowsPrinterConnection strUNCPrinter1
objNetwork.AddWindowsPrinterConnection strUNCPrinter2
objNetwork.AddWindowsPrinterConnection strUNCPrinter3
objNetwork.AddWindowsPrinterConnection strUNCPrinter4
WScript.Quit