动态设置Windows开机密码 一天记一个单词

    本人英语不好，又懒得记单词，花了两天时间，查遍了百度和Google终于写出如下一段.VBS：

   Set fso = CreateObject("Scripting.FileSystemObject")
   Set ts = fso.OpenTextFile("CET-4.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

  它可以根据日期的变化,从文本文件CET-4.txt中选择一个单词做为开机密码。程序很简单，我也懒得多解释了。

CET-4.txt的内容片段如下:
academic
academy
accelerate
.
.
.
zero
zone
zoo
也就是一行一个单词

将写好的脚本程序和单词库放在一起，再将脚本程序添加到Windows的“启动项”。这样每次开机的时间都会根据当天的日期改变开机密码并有一个对话框显示单词，如果没记住单词下次开机的时候就进不去了。

如果想关机的时候再显示一次密码可以在“运行”对话框中输入gpedit.msc打开“组策略”选择“计算机配置”-->“Windows设置”-->“脚本（启动/关机）”的“关机”项上添加脚