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