通过VBS脚本添加网络打印机需要用户名称和密码

Question

 

Dim net,struser,strpassword
struser = "abc" 
strpassword = "123"
Const PrinterShare = "\\192.168.100.66\FX DocuPrint C2090 FS Printer 39"
Set Net = CreateObject("Wscript.Network")
net.AddWindowsPrinterConnection PrinterShare,struser,strpassword
Net.SetDefaultPrinter PrinterShare

工作组中的一台计算机想添加域中的共享打印机，可是每次连接都需要输入域用户和密码，所以写了上面的代码添加为登录脚本，运行确提示没有权限  。谢谢。

Answer 1

如果是xp和win2003 ,

C:\WINDOWS\system32\prnmngr.vbs
有个工具，里面有代码

语法如下：
cscript prnmngr.vbs -a -p PrinterName [-s RemoteComputer] -m DriverName -r PortName [-u UserName -w Password]

详细请参考

Answer 2

http://technet.microsoft.com/zh-cn/library/bb490974(en-us).aspx

Answer 3

feiyun0112 写:

http://technet.microsoft.com/zh-cn/library/bb490974(en-us).aspx

 

客户端是win2000系统，不知是否可行。

 

能否通过以上代码解决，谢谢。

Answer 4

 

要不先运行这个试试

 

Code Snippet

set ws=WScript.CreateObject("wscript.shell")
ws.run "net use \\hostname\print$ /user:username password"

 

Answer 5

feiyun0112 写:

要不先运行这个试试   Code Snippet set ws=WScript.CreateObject("wscript.shell") ws.run "net use \\hostname\print$ /user:username password"

 

运行后，访问服务器添加打印机就不需要输入用户和密码

 

on error resume next
set ws =wscript.createobject("wscript.shell")
ws.run "net use \\sfprinter\print$ /[e-mail] mlktek2008***"
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\sfprinter\FX DocuPrint C2090 FS Printer 39"

能否这样执行，先建立连接，然后接着添加打印机。

刚执行第一次提示没权限，执行第二此就已经添加好了，帮忙看以上代码执行顺序是否有问题谢谢。

Answer 6

你这是先创建一个用户，需要一点时间更新，可以加一个延时

Answer 7

孟宪会 写:

你这是先创建一个用户，需要一点时间更新，可以加一个延时

 

试过了也不行

 

代码如下：

 

on error resume next
set ws =wscript.createobject("wscript.shell")
ws.run "net use \\sfprinter\print$ /[e-mail] mlktek2008***"

wscript.sleep 10000
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\sfprinter\FX DocuPrint C2090 FS Printer 39"

 

 

不好意思，时间延迟久了，出来了，谢谢。

Answer 8

孟宪会 写:

你这是先创建一个用户，需要一点时间更新，可以加一个延时

看错了