' 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"