ON ERROR RESUME NEXT Set WSHNetwork = CreateObject("WScript.Network") WSHNetwork.SetDefaultPrinter "wepa BW"