VBScript更改Windows管理员密码

Question

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

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

请帮我解决这个问题...... 提前谢谢......

Answer 1

这可能会有所帮助：

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