windows基于词典自动修改密码（vbs脚本）



写一个vbs脚本，内容瑞啊：

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("password.txt", 1)
for i=1 to date()-CDate("December 6, 2007")
 ts.SkipLine()
next
s=ts.ReadLine()
WScript.Echo s
set WsShell=wscript.createobject("wscript.shell")
WsShell.run("cmd /c net user administrator "&s)
ts.Close

创建password.txt的密码词典文件。

gpedit.msc
“组策略”选择“计算机配置”-->“Windows设置”-->“脚本（启动/关机）”

无法找到脚本引擎"vbscript"的解决方法:
1）找到文件:　C:/WINDOWS/inf/wsh.inf，右键“安装”；<inf 为隐藏文件夹>
2）开始→运行行里输入: regsvr32 urlmon.dll shdocvw.dll jscript.dll vbscript.dll /s