如何使用脚本实现共享打印机用户自动添加

WshNetwork.AddWindowsPrinterConnection "\\你们(的)网络打印机位置2"

设置的是打印服务器上的打印机全名还是共享名称？

WshNetwork.AddWindowsPrinterConnection "\\10.20.2.10\HP5100" 对吗？

Option Explicit

On Error Resume Next

Dim objNetwork, strUNCPrinter, bForce, bUpdateProfile

strUNCPrinter = "\\ip地址\共享打印机名"

bForce = "True"

bUpdateProfile = "False"

Set objNetwork = CreateObject("WScript.Network")

objNetwork.RemovePrinterConnection strUNCPrinter, bForce, bUpdateProfile

objNetwork.AddWindowsPrinterConnection strUNCPrinter

objNetwork.SetDefaultPrinter strUNCPrinter

WScript.Echo "已经添加了打印机：" &strUNCPrinter

Wscript.Quit

---