Скрипт для установки раскладки клавиатуры "CTRL+Shift" и по английский язык по умолчанию.
Это бывает полезно когда перед входом в Windows установлена русская раскладка по умолчанию и приходится каждый раз переключаться на английский язык.
Создайте файл: "keyboard.vbs" и поместите в него следующий текст:
Set Sh = CreateObject("WScript.Shell")
key = "HKEY_CURRENT_USER\Keyboard Layout\Preload\"
Sh.RegWrite key & "1", "00000409", "REG_SZ"
Sh.RegWrite key & "2", "00000419", "REG_SZ"
Set Sh = Nothing
Set Sh = CreateObject("WScript.Shell")
key = "HKEY_CURRENT_USER\Keyboard Layout\Toggle\"
Sh.RegWrite key & "Hotkey", "2", "REG_SZ"
Sh.RegWrite key & "Language Hotkey", "2", "REG_SZ"
Sh.RegWrite key & "Layout Hotkey", "1", "REG_SZ"
Set Sh = Nothing
Set Sh = CreateObject("WScript.Shell")
key = "HKEY_USERS\.DEFAULT\Keyboard Layout\Preload\"
Sh.RegWrite key & "1", "00000409", "REG_SZ"
Sh.RegWrite key & "2", "00000419", "REG_SZ"
Set Sh = Nothing
Set Sh = CreateObject("WScript.Shell")
key = "HKEY_USERS\.DEFAULT\Keyboard Layout\Toggle\"
Sh.RegWrite key & "Hotkey", "2", "REG_SZ"
Sh.RegWrite key & "Language Hotkey", "2", "REG_SZ"
Sh.RegWrite key & "Layout Hotkey", "1", "REG_SZ"
Set Sh = Nothing