'-------------------------------------------------------------------------------
' An die eigenen Bedürfnisse anpassen...
'-------------------------------------------------------------------------------
Private Const DEFAULT_DOMAINNAME = ""
Private Const DEFAULT_USERNAME = ""
Private Const DEFAULT_PASSWORD = ""
'-------------------------------------------------------------------------------

Dim oWshShell, sDefaultDomainName, sDefaultUserName, sDefaultPassword, iChoice

sDefaultDomainName = InputBox("Geben Sie bitte den Domänennamen für die automatische Anmeldung an:", "Automatische Anmeldung (Domänenname)", DEFAULT_DOMAINNAME)
sDefaultUserName = InputBox("Geben Sie bitte den Benutzernamen für die automatische Anmeldung an:", "Automatische Anmeldung (Benutzername)", DEFAULT_USERNAME)
sDefaultPassword = InputBox("Geben Sie bitte das Kennwort für die automatische Anmeldung an:", "Automatische Anmeldung (Kennwort)", DEFAULT_PASSWORD)

Set oWshShell = CreateObject("WScript.Shell")
If (sDefaultDomainName <> "") And (sDefaultUserName <> "") And (sDefaultPassword <> "") Then 'Wenn Werte angegeben wurden...
  oWshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", "1", "REG_SZ"
  oWshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName", sDefaultDomainName, "REG_SZ" 
  oWshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", sDefaultUserName, "REG_SZ" 
  oWshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword", sDefaultPassword, "REG_SZ"
  
  MsgBox "Automatische Anmeldung aktiviert für:" & vbCrLf & vbCrLf & _
         "   Domänenname: " & sDefaultDomainName & vbCrLf & _
         "   Benutzername: " & sDefaultUserName & vbCrLf & _
         "   Kennwort: " & sDefaultPassword & vbCrLf, vbOKOnly, "Automatische Anmeldung aktiviert"
Else 'Wenn KEINE Werte angegeben wurden...
  iChoice = MsgBox("Möchten Sie die Werte für die automatische Anmeldung aus der Registrierung löschen?", vbQuestion + vbYesNo , "Automatische Anmeldung deaktivieren?")
  If (iChoice = vbYes) Then 'Wenn "Ja" gewählt wurde...
    oWshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon"
    oWshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName"
    oWshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName"
    oWshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword"
    
    MsgBox "Die Automatische Anmeldung wurde deaktiviert.", vbOKOnly, "Automatische Anmeldung deaktiviert"
  End If
End If