ScriptCentre/wsh/オートログオンとリブート - progtips

オートログオン設定をする。ドメインが必要なければ"domain"のところは空文字にする。

Set wmi = GetObject("winmgmts:root\cimv2")
Set sh = CreateObject("WScript.Shell")

DomainAutologon "domain","user","pass"


Sub DomainAutologon(domain,username,password)
        winlogon = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"
        sh.RegWrite winlogon & "AutoAdminLogon","1","REG_SZ"
        sh.RegWrite winlogon & "DefaultDomainName",domain,"REG_SZ"
        sh.RegWrite winlogon & "DefaultUsername",username,"REG_SZ"
        sh.RegWrite winlogon & "DefaultPassword",password,"REG_SZ"
End Sub