Map network printers and set default printer in Windows 7

set-default-printer-windows.vbs

Option Explicit

Dim objNetwork, strLocal

Dim strUNCPrinter1 
Dim strUNCPrinter2
Dim strUNCPrinter3
Dim strUNCPrinter4
Dim strUNCPrinter5
Dim strUNCPrinter6

strUNCPrinter1 = "\\<servername>\<printername>"
strUNCPrinter2 = "\\<servername>\<printername>"
strUNCPrinter3 = "\\<servername>\<printername>"
strUNCPrinter4 = "\\<servername>\<printername>"
strUNCPrinter5 = "\\<servername>\<printername>"
strUNCPrinter6 = "\\<servername>\<printername>"

Set objNetwork = CreateObject("WScript.Network")

objNetwork.AddWindowsPrinterConnection strUNCPrinter1
objNetwork.AddWindowsPrinterConnection strUNCPrinter2
objNetwork.AddWindowsPrinterConnection strUNCPrinter3
objNetwork.AddWindowsPrinterConnection strUNCPrinter4
objNetwork.AddWindowsPrinterConnection strUNCPrinter5
objNetwork.AddWindowsPrinterConnection strUNCPrinter6

objNetwork.SetDefaultPrinter strUNCPrinter1

WScript.Quit