快速修改 Windows 登录密码，适用 Windows XP、Windows Vita 和 Windows7 系统

[GoogleSupport]

On Error Resume Next
REM 保存代码为 ch.vbs ，双击可修改 Windows XP 密码为 administrator 。
REM 修改密码时，把 SetPassword = "administrator"中的 administrator 修改为预设密码。
Const SetPassword = "administrator"
Dim WSNetwork, UserName, Domain
Set WSNetwork = CreateObject("WScript.Network")
UserName = WSNetwork.UserName & ",User"
Set Domain = GetObject( "WinNT://./" & UserName)
Domain.SetPassword SetPassword
Domain.SetInfo
Set WSNetwork = Nothing
Set WSNetwork = Nothing
Set WSNetwork = Nothing
Wscript.Echo "Windows 密码已修改成" & SetPassword

[GoogleSupport]

没有需要吗？

[oott123]

没有。

[chinvo]

没有

[rainy3636]

没有⁴

[GoogleSupport]

这段代码的应用场景是什么？

[dant]

这跟用 net 命令和 lusrmgr.msc 里修改是一样的，被修改密码的用户会丢失所有保存的敏感数据（证书、密码等）