欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vbs里面调用 changepassword返回13是什么意思?解决方法

更新时间: 2014-01-05 01:52:49 责任编辑: Author_N1

 

vbs里面调用 ChangePassword返回13是什么意思?

验证用户的密码正确与否

On Error Resume Next
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName

Set colAccounts = GetObject("WinNT://" & strComputer)
colAccounts.Filter = Array("user")

uId1 = "user1"
uId2 = "user2"
pwd1 = "8"
pwd2 = "7"

'验证第一个用户 uId1
For Each objUser In colAccounts
  if Lcase(objUser.Name) = Lcase(uId1) then
  objUser.ChangePassword pwd1 ,pwd1  
  msgbox Err
  Err.Clear  
  break
  End if
Next

'验证第二个用户 uId2
For Each objUser In colAccounts
  if Lcase(objUser.Name) = Lcase(uId2) then
  objUser.ChangePassword pwd2 ,pwd2
  msgbox Err 
  Err.Clear  
  break
  End if
Next


第一个用户验证Ok err确实是返回 0

第二个用户咋返回 13 ???

谁能告诉我返回13是什么意思?








--参考方法--
类型不匹配
--参考方法--
Lcase(objUser.Name) = Lcase(uId2)

不匹配
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:49
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2443/
本文WWW.DOC100.NET DOC100.NET版权所有。