VBScript Windows скрипт автологина

Question

Я пытаюсь написать VBScript для автоматического входа в систему Windows, используя реестр и InputBox / Msgbox. Я новичок в VBScript, поэтому я ничего не знаю, но я думал о чем-то вроде этого:

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

WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windwos NT\Current Version\Winlogon\DefaultUserName", "Myusername", "REG_SZ"
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windwos NT\Current Version\Winlogon\DefaultPassword", "Mypassword" "REG_SZ"
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windwos NT\Current Version\Winlogon\AutoAdminLogon", "1", "REG_SZ"

Dim sInput
sInput = InputBox "HKLM\SOFTWARE\Microsoft\Windwos NT\Current Version\Winlogon\DefaultUserName", "Myusername" ("Username: ")
sInput = InputBox "HKLM\SOFTWARE\Microsoft\Windwos NT\Current Version\Winlogon\DefaultPassword", "Mypassword" ("Password: ")

Моя идея состояла в том, чтобы открыть окно, в котором вы можете ввести имя пользователя и пароль, нажмите ОК или Отмена. Довольно просто, но я не нашел способа объединить значения ключей реестра с полями ввода. Будем благодарны за некоторые советы или любую помощь.

Answer 1

Сценарий должен сначала захватить значения из вызовов InputBox(), прежде чем вы сможете обновить реестр, попробуйте что-то вроде этого;

Dim user, pwd
Dim wsh: Set wsh = WScript.CreateObject("WScript.Shell")

'Collect input.
user = InputBox("Username: ", "Enter Username")
pwd = InputBox("Password: ", "Enter Password")

'Assess whether registry should be updated.
If Len(user) > 0 Then
    Call wsh.RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\Current Version\Winlogon\DefaultUserName", user, "REG_SZ")
End If
If Len(pwd) > 0 Then
    Call wsh.RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\Current Version\Winlogon\DefaultPassword", pwd, "REG_SZ")
End If

Call wsh.RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\Current Version\Winlogon\AutoAdminLogon", Abs((Len(user) > 0 And Len(password) > 0)), "REG_SZ")

^{* Также исправлены некоторые опечатки в путь к реестру.}