SetDefaultPrinter_vbs.vbs
' VBScript source code
' Simple Example to Set Default Network Printer
' By Josh Santomieri
' http://www.santsys.com

Dim NetPrinter
Set NetPrinter = CreateObject("WScript.Network")
NetPrinter.SetDefaultPrinter "\\MyServer\MyPrinter"