On Error Resume Next | |
Set oWshShell = CreateObject("WScript.Shell") | |
' setup DefaultUserName as root | |
oWshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", "root" | |
' setup DefaultPassword | |
oWshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword", "cl0udy" | |
' Turn on auto-login | |
oWshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", "1" | |
WScript.Quit |