Set WshNetwork = CreateObject(«WScript.Network») WshNetwork.AddWindowsPrinterConnection "\\comp\hp" WshNetwork.SetDefaultPrinter "\\comp\hp"