配置windows自动修改密码和自动登录

2021-04-20 17:27

阅读：543

标签：自动化改密

日常运维多台服务器，每季度要修改一次密码，非常麻烦，现做一个VBS脚本，每季度第一天定时运行，则可解决该问题，具体实现脚本如下：
autochg_pwd.vbs

ystr=year(Now)
mstr=Month(Now)
if len(mstr)dstr=day(Now)
if mstr="01" then mstr="!"
if mstr="02" then mstr="!"
if mstr="03" then mstr="!"
if mstr="04" then mstr="@"
if mstr="05" then mstr="@"
if mstr="06" then mstr="@"
if mstr="07" then mstr="#"
if mstr="08" then mstr="#"
if mstr="09" then mstr="#"
if mstr="10" then mstr="$"
if mstr="11" then mstr="$"
if mstr="12" then mstr="$"
pwdstr="testpwd"&ystr&mstr

strComputer="."

Set objUser=GetObject("WinNT://" & strComputer & "/Administrator")

objUser.SetPassword pwdstr

objUser.SetInfo

Dim OperationReGIStry
Set OperationRegistry=WScript.CreateObject("WScript.Shell")
Default=OperationRegistry.RegRead("HKLM\")
OperationRegistry.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword",pwdstr

具体部分脚本需要根据实际情况修改，以上是在windows2012上测试通过（2012修改密码不影响计划任务），实际在windows2003上要注意，由于自动修改密码会导致计划任务异常，不一定适用。

配置windows自动修改密码和自动登录

标签：自动化改密

原文地址：http://blog.51cto.com/lysweb/2088941

上一篇：用vsstudio 设计Winform 高分屏上布局错乱的问题

下一篇：C# 设置Word文档保护（加密、解密、权限设置）

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：配置windows自动修改密码和自动登录
文章链接：http://soscw.com/index.php/essay/77229.html

亲，登录后才可以留言！

配置windows自动修改密码和自动登录

评论

热门文章

推荐文章

最新文章

置顶文章