vbscript - VBScript更改windows管理员密码

Question

我需要一个可以更改用户输入的Windows本地管理员密码（无需询问前一个）的VBScript ...

我找到了可以重置密码的脚本，但是这个脚本没有要求输入密码...... :(

请在这个问题上帮助我...在此先感谢...

Answer 1

This might help:

strComputer = "." ' Local Computer
strUser = "Admin"

SET objUser = GETOBJECT("WinNT://" & strComputer & "/" & strUser)
objUser.Put "PasswordExpired", 1
objUser.SetInfo

strComputer = "." ' Local Computer
strUser = "Administrator"

SET objUser = GETOBJECT("WinNT://" & strComputer & "/" & strUser)
objUser.Put "PasswordExpired", 1
objUser.SetInfo