配置windows自動修改密碼和自動登陸

平常運維多臺服務器，每季度要修改一次密碼，很是麻煩，現作一個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上要注意，因爲自動修改密碼會致使計劃任務異常，不必定適用。

不過以上方法存在必定安全隱患，密碼不能手工設置，如需手工設置，可參考以下腳本：
newchg_pwd.vbs:
Set objArgs = WScript. Arguments
For x = 0 to objArgs.Count - 1
WScript.Echo objArgs(x)
Next

strComputer="."

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

objUser.SetPassword objArgs(0)

objUser.SetInfo

Dim OperationReGIStrySet OperationRegistry=WScript.CreateObject("WScript.Shell") Default=OperationRegistry.RegRead("HKLM\") OperationRegistry.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword",objArgs(0) 執行時候只需運行命令：cscript newchg_pwd.vbs newpasswd。此方法較爲安全，手工操做，配合自動化代理執行，就能夠作到自由設置密碼。