vbscript - Windows管理者パスワードを変更するVBScript

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