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)

不匹配