/** Выполняет последовательно указанные аргументами команды в консоли cmd и возвращает вывод их выполнения одной строкой. 
 * Ввод-вывод в родной для WSH кодировке Win-1251, выполнение - в родной для консоли 866.
 */
function sExecDosCommand(sCommand, sAnotherCommand) {
  if (arguments.length == 0) return "";
  var oSh = WScript.CreateObject("WScript.Shell");
  var oEx, oIn, oOut, sRes;
  try {
    oEx = oSh.Exec("cmd /k");
    oIn = oEx.StdIn;
    oOut = oEx.StdOut;
    for ( var i = 0; i < arguments.length; i++)
      oIn.WriteLine(sDOS2Win(arguments[i] + "", true));
    oIn.WriteLine("exit");
    sRes = sDOS2Win(oOut.ReadAll());
  }
  catch(e) {
    return("Err. " + e.number + ": " + e.message);
  }
  //Минус внутренняя exit и последний перенос строки
  return sRes.substring(0, sRes.lastIndexOf("\r\n", sRes.length - 3) - 2); 
}

/** Возвращает текст sText преобразованный из кодировки cp866 (DOS) в windows-1251. 
 * Или наоборот - из 1251 в DOS - если флаг bInsideOut равен true.
 */
function sDOS2Win(sText, bInsideOut) {
  var aCharsets = ["windows-1251", "cp866"];
  sText += "";
  bInsideOut = bInsideOut ? 1 : 0;
  with (new ActiveXObject("ADODB.Stream")) { //http://www.w3schools.com/ado/ado_ref_stream.asp
    type = 2; //Binary 1, Text 2 (default) 
    mode = 3; //Permissions have not been set 0,  Read-only 1,  Write-only 2,  Read-write 3,  
    //Prevent other read 4,  Prevent other write 8,  Prevent other open 12,  Allow others all 16
    charset = aCharsets[bInsideOut];
    open();
    writeText(sText);
    position = 0;
    charset = aCharsets[1 - bInsideOut];
    return readText();
  }
}

WScript.Echo("***" + sExecDosCommand("cd /d c:\\windows", "dir *.ini", "chcp", "echo Из командной строки") + "***");
WScript.Echo("WScript.Echo ФЫВА!");

***D:\00\_0_assets\_files-args-run>cd /d c:\windows

C:\WINDOWS>dir *.ini
 Том в устройстве C имеет метку bar_sys
 Серийный номер тома: 682B-5C99

 Содержимое папки C:\WINDOWS

07.05.2009  14:45                35 A5W.INI
8< пропущено >8
11.02.2011  16:24               323 win.ini
              22 файлов          9 492 байт
               0 папок   4 058 451 968 байт свободно

C:\WINDOWS>chcp
Текущая кодовая страница: 866

C:\WINDOWS>echo Из командной строки
Из командной строки***
WScript.Echo ФЫВА!

/*--- Процесс чтения вывода приложения, запущенного из скрипта методом Exec() ---
 * 1) После запуска приложения, его StdOut.AtEndOfStream => false и переходит в true только после закрытия приложения
 * 2) Команда чтения (ReadLine, Read и ReadAll) работает так: ждет сколь угодно долго появления в буфере StdOut либо 
 * строки/символов вывода, либо положительного StdOut.AtEndOfStream (т.е. завершения работы приложения). В последнем 
 * случае возвращает финальную NewLine (\r\n) или - в случае с ReadLine(),- съедает ее, возвращая пустую строку (потому 
 * что всегда ест переносы). Т.е. даже если приложение ничего не выводит, с него прочтется хотя бы пустая строка
 * 3) Контролировать чтение потока из внешнего приложения - через while (!oEx.StdOut.AtEndOfStream)
 * 4) При больших объемах вывода за одну строку (более 4 KB) надо контролировать oSh.Exec -> while (oEx.Status == 0), 
 *    внутри которого уже будет if (oEx.StdOut.AtEndOfStream) break;
 *    Если же следовать только стандартной проверке StdOut.AtEndOfStream, то при объеме вывода приложения более 4KB на 
 *    строку, чтение этого самого вывода просто вешается
 *    4.1) Следует учитывать, что при контроле через oEx.Status буфер oEx.StdOut к моменту завершения внешнего 
 *         приложения вполне может НЕ быть прочтен полностью, поэтому его следует дочитывать добавля ниже цикл из п.3 
 * 5) Если запущенное приложение и не думает завершаться (cmd /k), а мы с него читаем, то мы зависаем вместе с этим 
 * приложением навечно, что весьма печально.
*/

var oSh = WScript.CreateObject("WScript.Shell");
var oEx = oSh.Exec("cmd /k");
var oOut = oEx.StdOut;
while (!oEx.StdOut.AtEndOfStream) {
  WScript.Echo(oOut.ReadLine());
}

var oSh = WScript.CreateObject("WScript.Shell");
var oEx = oSh.Exec("cmd /k");
var oIn = oEx.StdIn;
var oOut = oEx.StdOut;
var n = 0;
oIn.WriteLine(sDOS2Win("cd /d c:\\windows", true)); //sDOS2Win() нужна при наличии в команде символов кириллицы
oIn.WriteLine(sDOS2Win("dir /s *.ini", true));
oIn.WriteLine("exit");
while (!oEx.StdOut.AtEndOfStream) {
  WScript.Echo(sDOS2Win(oOut.ReadLine()));
  n++;
}
WScript.Echo("Строк прочтено: " + n);

/** Возвращает текст sText преобразованный из кодировки cp866 (DOS) в windows-1251. 
 * Или наоборот - из 1251 в DOS - если bInsideOut true.
 */
function sDOS2Win(sText, bInsideOut) {
  var aCharsets = ["windows-1251", "cp866"];
  sText += "";
  bInsideOut = bInsideOut ? 1 : 0;
  with (new ActiveXObject("ADODB.Stream")) { //http://www.w3schools.com/ado/ado_ref_stream.asp
    type = 2; //Binary 1, Text 2 (default) 
    mode = 3; //Permissions have not been set 0,  Read-only 1,  Write-only 2,  Read-write 3,  
    //Prevent other read 4,  Prevent other write 8,  Prevent other open 12,  Allow others all 16
    charset = aCharsets[bInsideOut];
    open();
    writeText(sText);
    position = 0;
    charset = aCharsets[1 - bInsideOut];
    return readText();
  }
}

oShell.run "cmd /K dir C:\", 0

oShell.run "cmd /K CD C:\ & Dir"

oShell.run "cmd /K CD & dir C:\"

Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "cmd /K CD C:\ & Dir"
Set oShell = Nothing