怎么让 windows 系统登录密码自动更换啊

这个方法只是能实现动态密码，但不是个好方法，用硬件支持才是最好的选择。

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

上面代码存成.vbs.它可以根据日期的变化,从文本文件password.txt中

选择一个单词做为开机密码。文本中的密码应该是一行一个。

将写好的脚本程序和密码文本库放在一起，再将脚本程序添加到Windows

的“启动项”。这样每次开机的时间都会根据当天的日期改变开机密码

并有一个对话框显示单词，如果没记住密码下次开机的时候就进不去

了。所以密码原文最好另成一份藏到一个隐蔽的地方备用。

你要的自动更换是什么意思？
是你自己放N个密码在那，让系统自己选？

还是你是在公司的机子上，每个月都要重新设置密码？
如果是这种情况的话，一般是为了安全，系统管理员不会让你们不改密码的。

自动更换密码是一个很不安全也很不实用的功能，所以没有哪个技术员会做出这个功能。

我们想一下，电脑使用者想让电脑做自动更换密码的话，是不是要设置几个循环密码，以供更换呢。 而如果电脑被黑的话，那么多密码可能一次性被拿走。
并且时间久了。我们