自動化改密

日常運維多臺服務器，每季度要修改一次密碼，非常麻煩，現做一個VBS腳本，每季度第一天定時運行，則可解決該問題，具體實現腳本如下：
autochg_pwd.vbs

ystr=year(Now)
mstr=Month(Now)
if len(mstr)<2 then mstr="0"&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自動修改密碼和自動登錄