VBScript：Windows 2008 Server無法自動登錄

Question

我正在做一些需要重新啟動的自動化工作。 我試圖允許我的服務器使用管理員帳戶自動登錄。 我可以使它在本地運行，但是當我嘗試以域成員的身份進行操作時卻失敗了。

在我看來，它甚至都沒有嘗試執行登錄。 如果我在defaultpassword字段中輸入了無效的密碼（在本地登錄時），它將向我顯示錯誤的密碼消息，就像從鍵盤上鍵入密碼一樣。 如果我對域執行相同的操作，則不會執行任何操作。

這是我正在使用的代碼，已在多個不同站點上找到並使用了這些代碼：

'==========================================
'VBScript: enableAutoLogon.vbs            =
'This VBScript updates the registry to    =
'enable auto-logon.  Modify the three     =
'strings in brackets, under "Define       =
'keys and values".                        =
'Courtesy of Jonathan Almquist            =
'monsterjta @ tek-tips                    =
'==========================================
Option Explicit
'''Declarations'''
Dim objShell
Dim RegLocAutoLogon
Dim keyDefaultDomainName
Dim valDefaultDomainName
Dim keyDefaultUserName
Dim valDefaultUserName
Dim keyDisableCAD
Dim valDisableCAD
Dim keyAutoAdminLogon
Dim valAutoAdminLogon
Dim keyForceAutoLogon
Dim valForceAutoLogon
Dim keyDefaultPassword
Dim valDefaultPassword

''''Define keys and values''''
RegLocAutoLogon = "HKLM\Software\Microsoft\" & 
  _"WindowsNT\CurrentVersion\Winlogon\"
keyDefaultDomainName = "DefaultDomainName"
valDefaultDomainName = "[your domain name here]"
keyDefaultUserName = "DefaultUserName"
valDefaultUserName = "[your default user name here]"
keyDisableCAD = "DisableCAD"
valDisableCAD = 1
keyAutoAdminLogon = "AutoAdminLogon"
valAutoAdminLogon = "1"
keyForceAutoLogon = "ForceAutoLogon"
valForceAutoLogon = "1"
keyDefaultPassword = "DefaultPassword"
valDefaultPassword = "[your password here]"

Set objShell = CreateObject("WScript.Shell")
objShell.RegWrite RegLocAutoLogon & _keyDefaultDomainName, 1, "REG_SZ"
objShell.RegWrite RegLocAutoLogon & _keyDefaultDomainName, valDefaultDomainName, "REG_SZ"
objShell.RegWrite RegLocAutoLogon & _keyDefaultUserName, 1, "REG_SZ"
objShell.RegWrite RegLocAutoLogon & _keyDefaultUserName, valDefaultUserName, "REG_SZ"
objShell.RegWrite RegLocAutoLogon & _keyDisableCAD, 1, "REG_DWORD"
objShell.RegWrite RegLocAutoLogon & _keyDisableCAD, valDisableCAD, "REG_DWORD"
objShell.RegWrite RegLocAutoLogon & _keyAutoAdminLogon, 1, "REG_SZ"
objShell.RegWrite RegLocAutoLogon & _keyAutoAdminLogon, valAutoAdminLogon, "REG_SZ"
objShell.RegWrite RegLocAutoLogon & _keyForceAutoLogon, 1, "REG_SZ"
objShell.RegWrite RegLocAutoLogon & _keyForceAutoLogon, valForceAutoLogon, "REG_SZ"
objShell.RegWrite RegLocAutoLogon & _keyDefaultPassword, 1, "REG_SZ"
objShell.RegWrite RegLocAutoLogon & _keyDefaultPassword, valDefaultPassword, "REG_SZ"

Answer 1

此代碼可以很好地加入我們的2008 DC。 我認為問題出在2008年之間，與我們的某些安全設置和possilby kerberos有關