IT備忘録

Windows2000及びWindowsXPにおいて、下記のレジストリを変更すると
指定したユーザーにて起動時、自動ログインをします。

HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\

AutoAdminLogon 値：1
DefaultDomainName 値：ドメイン名
DefaultUserName 値：ユーザー名
DefaultPassword 値：パスワード

これらをWSHを使ってスクリプト化すると下記の通りです。

auto-logon.vbs　
----
Dim Prompt, WshShell, UserName, UserPasswd, UserDomain
set WshShell = WScript.CreateObject("WScript.Shell")

' get user name
Prompt = "ユーザー名を入力してください"
UserName = InputBox(Prompt, Title, "")

' get password
Prompt = "パスワードを入力してください " & UserName
UserPasswd = InputBox(Prompt, Title, "")

' get domain
Prompt = "ドメイン名を入力してください " & UserName
Userdomain = InputBox(Prompt, Title, "")

' set these in the registry
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon","1","REG_SZ"
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName", UserDomain, "REG_SZ"
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", UserName, "REG_SZ"
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword", UserPasswd, "REG_SZ"

' ensure the change is persistent!
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\ForceAutoLogon", "1", "REG_SZ"
----

no-auto-logon.vbs　（自動ログオン　キー削除）
----
Option Explicit
On Error Resume Next

Dim Prompt, WshShell
set WshShell = WScript.CreateObject("WScript.Shell")

' delete the relevant keys
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon"
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName"
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName"
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword"
----

なお、WSHは下記のページより最新版をインストールしておきましょう。

--Windows Script
http://www.microsoft.com/japan/msdn/scripting/default.asp

--参考図書
WINDOWSサーバー HACKS

←クリック一票