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
快速修改 Windows 登录密码，适用 Windows XP、Windows Vita 和 Windows7 系统
GoogleSupport · Dec 17, 2015 · 2962 viewsThis topic created in 3801 days ago, the information mentioned may be changed or developed.
 |
1
GoogleSupport OP 没有需要吗？
|
 |
2
oott123 Dec 17, 2015 via Android
没有。
|
 |
3
chinvo Dec 17, 2015
没有
|
 |
4
rainy3636 Dec 17, 2015 via Android
没有⁴
|
|
5
GoogleSupport OP 这段代码的应用场景是什么？
|
 |
6
dant Dec 17, 2015 via Android
这跟用 net 命令和 lusrmgr.msc 里修改是一样的，被修改密码的用户会丢失所有保存的敏感数据（证书、密码等）
|
Select Language