用VBScript批量安装网络打印机和设置默认打印机

打开记事本，编辑如下内容，保存扩展名为.vbs的文件，双击执行运行。

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置1"
WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置2"
WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置3"
WshNetwork.SetDefaultPrinter "\\你要设置默认网络打印机的位置"

一段示例

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\10.1.9.243\Agile-Printer-A4"
WshNetwork.AddWindowsPrinterConnection "\\10.1.9.243\Agile-Printer-A4-Single"
WshNetwork.AddWindowsPrinterConnection "\\10.1.9.243\Agile_Printer_A5"
WshNetwork.AddWindowsPrinterConnection "\\10.1.9.243\Agile-Printer-A3"
WshNetwork.SetDefaultPrinter "\\10.1.9.243\Agile-Printer-A4"
msgbox "Finished"