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

问题
-
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
工作组中的一台计算机想添加域中的共享打印机,可是每次连接都需要输入域用户和密码,所以写了上面的代码添加为登录脚本,运行确提示没有权限 。谢谢。
答案
全部回复
-
-
客户端是win2000系统,不知是否可行。
能否通过以上代码解决,谢谢。
-
feiyun0112 写: 要不先运行这个试试
运行后,访问服务器添加打印机就不需要输入用户和密码
on error resume next
set ws =wscript.createobject("wscript.shell")
ws.run "net use \\sfprinter\print$ /userf10142@sangfei.com mlktek2008***"
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\sfprinter\FX DocuPrint C2090 FS Printer 39"能否这样执行,先建立连接,然后接着添加打印机。
刚执行第一次提示没权限,执行第二此就已经添加好了,帮忙看以上代码执行顺序是否有问题谢谢。
-
孟宪会 写: 你这是先创建一个用户,需要一点时间更新,可以加一个延时 试过了也不行
代码如下:
on error resume next
set ws =wscript.createobject("wscript.shell")
ws.run "net use \\sfprinter\print$ /userf10142@sangfei.com mlktek2008***"wscript.sleep 10000
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\sfprinter\FX DocuPrint C2090 FS Printer 39"不好意思,时间延迟久了,出来了,谢谢。