快速修改 Windows 登录密码，适用 Windows XP、Windows Vita 和 Windows7 系统
GoogleSupport 201-12-17 09:59:57 +08:00 2724 次点击这是一个创建于 3658 天前的主题，其中的信息可能已经有所发展或是发生改变。
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
 | 1 GoogleSupport OP 没有需要吗？ |
 | 2 oott123 2015-12-17 10:35:34 +08:00 via Android 没有。 |
 | 3 chinvo 2015-12-17 10:36:26 +08:00 没有 |
 | 4 rainy3636 2015-12-17 11:24:44 +08:00 via Android 没有 |
| 5 GoogleSupport OP 这段代码的应用场景是什么？ |
 | 6 dant 2015-12-17 12:20:47 +08:00 via Android 这跟用 net 命令和 lusrmgr.msc 里修改是一样的，被修改密码的用户会丢失所有保存的敏感数据（证书、密码等） |