Ustawienie domyślnej drukarki na \\research\l_print1
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.SetDefaultPrinter "\\research\l_print1"
' Connect to \\research\l_print1 i ustawienie jej jako domyślną
Set PrinterPath = "\\research\l_print1"
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
Share Link: 
