自動ログオンを解除するVBスクリプトを作りたい

質問

社内のPC管理をしております。
今春の個人情報保護法施行にむけての対策を行っています。

社内のPCで自動ログオンが有効になっているものが多数あり、それを制御するVBスクリプトを作成したいと思うのですが、うまくいきません。

言い方を変えると、
ファイル名を指定して実行で
control userpasswords2
を実行した際の、
ユーザがこのコンピュータを使うには、ユーザ名とパスワードの入力が必要のチェックをVBスクリプトで入れたいのです。
ユーザにはワンクリックでこの作業を終えさせたいということなのですが…

' WSHShellオブジェクトを作成する
Set WSH = CreateObject("WScript.Shell")
WSH.RegWrite "HKLM\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\DisableCAD", 0, "REG_DWORD"

これじゃダメなのでしょうか。うまくできませんでした…
詳しい方、ご教授いただけませんでしょうか。
宜しくお願いいたします。

回答No.1

taka_tetsu · ベストアンサー

DisableCADって、Ctrl+Alt+Delを必要とするかしないかですよね？
自動ログオンとは違いますよ。

自動ログオンは、
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon

の、
AutoAdminLogonが1かどうかです。
http://www.atmarkit.co.jp/fwin2k/win2ktips/064deflogon2/deflogon2.html

お礼

回答ありがとうございます。

おお、そうなんですね。
Option Explicit
Dim WSH, RegData, Msg

Set WSH = CreateObject("WScript.Shell")

WSH.Regwrite "HKLM\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\winlogon\AutoAdminLogon", 0, "REG_SZ"

これでやってみましたが、出来ませんでした。。
こういうことではないんでしょうか…
VBスクリプトよくわからなくて…

回答No.2

taka_tetsu

>"HKLM\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\winlogon\AutoAdminLogon", 0, "REG_SZ"

WindowsNT
じゃないですよ。

Windows NT
ですよ。

お礼

ありがとうございます。
出来ました！

凡ミスですネ…
失礼しました。

ありがとうございました。