Assign a remote printer the role Default Printer.



   strPrinterName : The remote printer's UNC name.


'Set the Default Printer to \\research\library1

Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")    
WshNetwork.SetDefaultPrinter "\\research\library1"

' Connect to \\research\library1  and set it as the default.

Set PrinterPath = "\\research\library1"
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set rc = WshNetwork.AddWindowsPrinterConnection(PrinterPath)
If Not rc then
      WScript.Echo("Printer Connection Failed!")
End If
WshNetwork.SetDefaultPrinter PrinterPath

This method fails when using a DOS-based printer connection.
You cannot use the SetDefaultPrinter method find out the name of the current default printer.

“People think that being famous is just about having your picture taken all the time and being rich rich rich, and you know what?... They're absolutely right” ~ Madonna


Printer, add printer - WshNetwork.AddPrinterConnection
Printer, add Network printer - WshNetwork.AddWindowsPrinterConnection
PRNMNGR - Add, delete, list printers and printer connections.

Copyright © 1999-2023
Some rights reserved