VBScript. Определить текущую раскладку клавиатуры или установить определнную

Здравствуйте.

Пишу небольшой скрипт для запуска программы и выполнения действий с помощью горячих клавиш. Горячие клавиши необходимо вводить на русском, поэтому необходимо включать русскую раскладку (я делаю это с помощью "WshShell.SendKeys "^+" "). И вот здесь возникла проблема: как определить какая раскладка текущая? Либо как можно установить русскую раскладку целенаправленно?

Заранее благодарен за любую помощь.