如何使用VBS添加共享打印机

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

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改成你的打印机驱动程序.

---