Use the attached VBS script to create an easy-to-use user icon/shortcut to quickly reset the default printer. This is handy for users of Quickbooks where the default gets randomly changed to the XPS writer.
For network-based printers:
Option Explicit
Dim objNetwork, strUNCPrinter
strUNCPrinter = "\\SERVER\Printer-Share"
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection strUNCPrinter
' Here is where we set the default printer to strUNCPrinter
objNetwork.SetDefaultPrinter strUNCPrinter
' WScript.Echo "Check the Printers folder for : " & strUNCPrinter
WScript.Quit
For local printers:
Set WSHNetwork = CreateObject("WScript.Network")
WSHNetwork.SetDefaultPrinter "My Exact Printer Name"
Automate this via an icon via cscript. Shortcut will look like "cscript c:\users\me\documents\default_printer_local.vbs"
Attached files: