windows-xp – 如何在不进行域管理的情况下更改当前用户的域密码

我已经看到了很多关于如何通过运行重置用户密码的文档

net user <username> * /domain

或在当地

net user <username> <new_password>

但我不是当前域的域管理员,因此我不允许通过net user< my_username>更改密码. * / domain(访问被拒绝).

我可以做的是点击CTRL ALT DEL并点击“更改密码”,我必须重新输入我当前的密码并提供一个新密码：

问题：我该如何编写脚本？我想通过命令行更改我的密码.可能？

额外信息：我在Windows XP SP3计算机上.

注意：公司政策是让用户每两周更改一次密码.并且你不能使用你的最后24个密码…因为我不想永远记住新密码我只是手动迭代“password1”…“password24”,最后我回到我的旧密码.用小批量而不是手动方式来做这件事会很棒.

Dim UserName
Dim UserDomain
UserDomain = InputBox("Enter the user's login domain name")
UserName = InputBox("Enter the user's login name")
Set User = GetObject("WinNT://"& UserDomain &"/"& UserName &"",user)


Dim NewPassword
NewPassword = InputBox("Enter new password")
Call User.SetPassword(NewPassword)

If err.number = 0 Then
        Wscript.Echo "The password change was successful."
Else
        Wscript.Echo "The password change failed!"
End if

检查这个http://technet.microsoft.com/en-us/library/cc780332%28WS.10%29.aspx！

（编辑：ASP站长网）