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

  • 问题

  •  

    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


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

    2008年9月25日 7:01

答案

  •  

    要不先运行这个试试

     

    Code Snippet

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

     

    2008年9月25日 8:02
    版主

全部回复

  • 如果是xp和win2003 ,

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

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

    详细请参考
    2008年9月25日 7:14
    版主
  •  

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

     

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

    2008年9月25日 7:52
  •  

    要不先运行这个试试

     

    Code Snippet

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

     

    2008年9月25日 8:02
    版主
  •  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$ /userTongue Tiedf10142@sangfei.com mlktek2008***"
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    WshNetwork.AddWindowsPrinterConnection "\\sfprinter\FX DocuPrint C2090 FS Printer 39"

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

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

    2008年9月25日 8:22
  • 你这是先创建一个用户,需要一点时间更新,可以加一个延时
    2008年9月25日 8:29
    版主
  •  孟宪会 写:
    你这是先创建一个用户,需要一点时间更新,可以加一个延时

     

    试过了也不行

     

    代码如下:

     

    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"

     

     

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

    2008年9月25日 8:40
  •  孟宪会 写:
    你这是先创建一个用户,需要一点时间更新,可以加一个延时


    看错了
    2008年9月26日 1:37
    版主