如何使用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

具体方法如下：

1.鼠标点击win7开始菜单中的“设备和打印机”。

2.打开“设备和打印机”界面后，点击上方的“添加打印机”。

3.再点击d出界面中的“添加网络、无线或 Bluetooth打印机”。

4.此时系统会自动在网络上搜索已联网的打印机，并且列出查找结果。在查找结果中点击要添加的打印机型号，再点击“下一步”按钮。

5.点击后，如果电脑中预装有该型号打印机的驱动程序，则会d出正在安装打印机的提示。此时等待后根据提示进行 *** 作即可。

---