配置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