Set WSHNetwork = CreateObject("WScript.Network") WSHNetwork.SetDefaultPrinter "HP Printer"