网络安装打印机脚本

创建一个vbs脚本：

On Error Resume Next

dim objNetwork

Set objNetwork = WScript.CreateObject("WScript.Network")

objNetwork.AddWindowsPrinterConnection "\\共享服务器\共享打印机名"

objNetwork.SetDefaultPrinter("\\共享服务器\共享打印机名")

MsgBox "The printer has been installed."

Set WshNetwork = CreateObject("WScript.Network")

PrinterPath = "\\pserver\pname"

PrinterDriver = "AGFA-AccuSet v52.3"

WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver

WshNetwork.SetDefaultPrinter "\\pserver\pname"

------------------

将这段代码复制到记事本,然后另存为.vbs的文件,放到登录脚本中即可

注意更改打印机的路径\\pserver\pname为共享出的打印机,AGFA-AccuSet v52.3改成你的打印机驱动程序.

---