Script Login Automático

Aquí les publico un script para automatizar el login, muy útil para las máquinas virtuales (grabar el archivo con extensión .vbs)

'---------------------------------------------------
'Script para Logon Automatico
'(c) Marlon Ramos 2006
'---------------------------------------------------
Dim Prompt, oWsh, UserName, UserPass, UserDomain

Set oWsh = WScript.CreateObject("WScript.Shell")

'Usuario

Prompt = "Ingrese el Nombre de Usuario"
UserName = InputBox(Prompt,Title,"")

'Password

Prompt = "Ingrese el Password para el usuario " & UserName
UserPass = InputBox(Prompt,Title,"")

'Dominio

Prompt = "Ingrese el Dominio para el usuario " & UserName
UserDomain = InputBox(Prompt,Title,"")

'Setea las llaves en el registry

oWsh.RegWrite"HKLM\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\AutoAdminLogon","1","REG_SZ"

oWsh.RegWrite"HKLM\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\DefaultDomainName",UserDomain,"REG_SZ"

oWsh.RegWrite"KLM\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\DefaultUserName",UserName,"REG_SZ"

oWsh.RegWrite"HKLM\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\DefaultPassword",UserPass,"REG_SZ"

'asegurar que el cambio sea persistente

oWsh.RegWrite"HKLM\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\ForceAutoLogon","1","REG_SZ"