on error resume next Set objWshShell = WScript.CreateObject("WScript.Shell") ' Английский в окне Logon язык по умолчанию p = "HKEY_USERS\.DEFAULT\Keyboard Layout\Preload\" t = "REG_SZ" objWshShell.RegWrite p&"1", "00000409", t objWshShell.RegWrite p&"2", "00000419", t ' NUMLOCK включен p = "HKEY_USERS\.DEFAULT\Control Panel\Keyboard\" t = "REG_SZ" objWshShell.RegWrite p&"InitialKeyboardIndicators", "2", t ' Установка сочетания ALT+SHIFT для переключения раскладки p = "HKEY_USERS\.DEFAULT\Keyboard Layout\Toggle\" t = "REG_SZ" objWshShell.RegWrite p&"Hotkey", "1", t objWshShell.RegWrite p&"Language Hotkey", "1", t objWshShell.RegWrite p&"Layout Hotkey", "2", t ' Русский язык в окне DOS p="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes\" t = "REG_SZ" objWshShell.RegWrite p&"00000409", "RU", t ' Если нужно сделать изменения только для текущего пользователя, то поменять ' p = "HKEY_USERS\.DEFAULT\Keyboard Layout\Toggle\" ' на ' p = "HKEY_CURRENT_USER\Keyboard Layout\Toggle\" ' При входе в терминальную сессию система автоматически выбирает язык по умолчанию ' по локали клиента, то есть для русских систем - русский ' http://support.microsoft.com/kb/924852 ' Устраняем эту "фичу" p="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\" t= "REG_DWORD" objWshShell.RegWrite p&"IgnoreRemoteKeyboardLayout", "1", t