Странный баг SendKeys на VBS, 3 часа не могу найти ответ?

Question

[Fairlancer]

По логике вещей, скрипт должен создать консоль, сменить кодировку на Windows-1251, отправить Английский текст "KPACUBO" и эмулировать нажатие Enter. Но кодировка не меняется "На строку ругается что Файл не найден, если пишу перед ней cmd \C то открывается совсем другая консоль и там все меняется, но мне нужна эта." НО самое главное что русский текст выводится нормально а латинский непонятно как (некоторые буквы транслитерирует на русский, некоторые - выводит символами), подумал что дело в кодировке, но даже ее сменить не могу.

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd"
WScript.Sleep 1000
WshShell.Exec("chcp 1251")
rem Назначаем кодировку 1251 (не работает)
WScript.Sleep 1000
WshShell.SendKeys "KPACUBO" & chr(13)
rem Отправляем текст в консоль и эмулируем нажатие Enter

Вывод в консоли слова KPACUBO (выводится как лзфсгищ):


Товарищи, сильно не пинайте, пишу вопрос так как потерял надежду понять как должно быть правильно.

UPD 1
WshShell.Run "cmd /K chcp 1251"
Удалось установить кодировку в этой консоли, но проблема не решена.

Answer 1

[Александр Ананьев]

WshShell.Run "cmd /K chcp 1251"

Comments

[Fairlancer]

Спасибо конечно, однако это не решает проблему со странным отображением Англ. символов к сожалению.

[Александр Ананьев]

MrKursorik: Вам надо поменять раскладку клавиатуры? Тогда смотрите тут: https://social.msdn.microsoft.com/Forums/en-US/f3c...

[Fairlancer]

Александр Ананьев: С учетом того что на VBS я стал кодить всего сутки назад, и то из-за одной единственной команды в Шindows которую нужно эмулировать ручным вводом для автоматического запуска из bat`ника (полный изврат), но ничего не поделаешь... Хотелось-бы все же увидеть строчку кода от вас, которая прекратит мои страдания, с меня плюс в карму и уважение)