Option Explicit

Dim Shell, ShellApp, FSO
Dim RegistryPath
Dim Usuario, Senha, Dominio
Dim ScriptPath
Dim Resultado

Set Shell = CreateObject("WScript.Shell")
Set ShellApp = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")

ScriptPath = WScript.ScriptFullName


' ============================================================
' ELEVAR PARA ADMINISTRADOR
' ============================================================

Resultado = Shell.Run("cmd.exe /c net session >nul 2>&1", 0, True)

If Resultado <> 0 Then

    ShellApp.ShellExecute _
        "wscript.exe", _
        """" & ScriptPath & """", _
        "", _
        "runas", _
        1

    WScript.Quit

End If


' ============================================================
' CONFIGURACAO DO AUTO LOGIN
' ============================================================

RegistryPath = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"

Usuario = "vds"
Senha = "qwe123@"
Dominio = Shell.ExpandEnvironmentStrings("%COMPUTERNAME%")


On Error Resume Next

Shell.RegWrite RegistryPath & "AutoAdminLogon", "1", "REG_SZ"

If Err.Number <> 0 Then
    MsgBox "Erro ao configurar AutoAdminLogon:" & vbCrLf & _
           Err.Description, _
           vbCritical, _
           "Erro"
    WScript.Quit
End If

Shell.RegWrite RegistryPath & "DefaultUserName", Usuario, "REG_SZ"

If Err.Number <> 0 Then
    MsgBox "Erro ao configurar DefaultUserName:" & vbCrLf & _
           Err.Description, _
           vbCritical, _
           "Erro"
    WScript.Quit
End If

Shell.RegWrite RegistryPath & "DefaultPassword", Senha, "REG_SZ"

If Err.Number <> 0 Then
    MsgBox "Erro ao configurar DefaultPassword:" & vbCrLf & _
           Err.Description, _
           vbCritical, _
           "Erro"
    WScript.Quit
End If

Shell.RegWrite RegistryPath & "DefaultDomainName", Dominio, "REG_SZ"

If Err.Number <> 0 Then
    MsgBox "Erro ao configurar DefaultDomainName:" & vbCrLf & _
           Err.Description, _
           vbCritical, _
           "Erro"
    WScript.Quit
End If

On Error GoTo 0


' ============================================================
' FINALIZACAO
' ============================================================

MsgBox _
    "AutoLogon configurado com sucesso!" & vbCrLf & vbCrLf & _
    "Maquina: " & Dominio & vbCrLf & _
    "Usuario: " & Dominio & "\" & Usuario, _
    vbInformation, _
    "Login automatico do Windows"