Windows Script Host для Windows 2000/XP

'*******************************************************************
Option Explicit
Dim WshShell,Res,Text,Title ' Объявляем переменные
' Создаем объект WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Text="Пример вывода строк в диалоговое" & vbCrLf & "окно WScript"
Title="Заголовок"
' Выводим диалоговое окно на экран
Res=WshShell.Popup(Text,0,Title,vbOkCancel)
' Определяем, какая из кнопок была нажата в диалоговом окне
If (Res=vbOk) Then
 WshShell.Popup "Нажата кнопка OK"
Else
 WshShell.Popup "Нажата кнопка Отмена"
End If
'************* Конец *********************************************

Главным отличием метода Popup от функции MsgBox является наличие параметра nSecToWait, задающего время (в секундах), по истечении которого диалоговое окно будет автоматически закрыто. Если этот параметр равен нулю, как в приведенных выше примерах, то окно будет закрыто только после нажатия какой-либо кнопки в нем.

Ввод строк текста

Для организации в сценариях диалога с пользователем необходимо уметь принимать вводимые с клавиатуры строки текста. В консольном и графическом режимах ввод информации осуществляется по-разному: при запуске сценария с помощью cscript.exe мы имеем доступ к стандартному входному потоку StdOut, при использовании wscript.exe можно применять функцию InputBox языка VBScript.

Ввод строк в консольном режиме

Самый простой способ ввести строку в консольном режиме предоставляет метод WScript.StdIn.ReadLine, при использовании этого метода ввод завершается нажатием клавиши <Enter>.

Отметим, что при использовании стандартного входного потока WScript.StdIn в Windows ХР (по крайней мере в той версии, которой пользовался автор) возникает проблема, связанная с кодировкой символов кириллицы. Дело в том, что метод WScript.StdIn.ReadLine возвращает строку в DOS-кодировке, а для вывода на экран с помощью методов WScript.StdOut.WriteLine или WScript.Echo строка должна быть в Windows-кодировке (в предыдущих версиях Windows метод WScript.StdOut.WriteLine требовал строку в DOS-кодировке). Поэтому для корректного отображения символов кириллицы на экране приходится применять дополнительные функции конвертации из DOS- в Windows-кодировку. Стандартных методов или функций, предназначенных для этой цели, в языках JScript и VBScript нет, поэтому такие функции следует написать самостоятельно.

Рассмотрим сначала написанную на JScript функцию конвертации DosToWin из листинга 2.14:

function DosToWin(s) {
 var i,ss; //Объявляем переменные
 //Проверяем, создан ли объект RusDict
 if (typeof(RusDict)=="undefined")
 //Если объект RusDict не создан, создаем его
 MakeRusDict;
 ss="";
 for (i=0;i<s.length;i++) { //Цикл по всем символам в строке
 if (RusDict.Exists(s.charAt(i))) //Проверяем наличие символа в словаре
 //Преобразуем i-й символ в Windows-кодировку
 ss+=RusDict.Item(s.charAt(i));
 else ss+=s.charAt(i);
 }
 return ss;
}

Как мы видим, эта функция преобразует переданную в качестве параметра строку следующим образом: все символы кириллицы в этой строке переводятся в Windows-кодировку, остальные символы остаются без изменений. Основным в функций DosToWin является использование объекта Dictionary (аналог ассоциативного массива) с именем RusDict. Этот объект формируется в функции MakeRusDict и содержит пары "ключ"–"значение" для всех букв русского алфавита, причем в качестве ключа указывается буква в DOS-кодировке, а в качестве значения — символ с кодом, который соответствует этой букве в Windows-кодировке:

function MakeRusDict {
 //Создаем объект Dictionary
 RusDict = WScript.CreateObject("Scripting.Dictionary");
 //Заполняем пары "ключ" (символ в DOS-кодировке)-"значение" (символ в
 //Window-кодировке) для всех букв русского алфавита
 RusDict.add("Ђ", "А"); RusDict.add("Ѓ", "Б"); RusDict.add("‚", "В");
 RusDict.add("ѓ", "Г"); RusDict.add("„", "Д"); RusDict.add("…", "Е");
 RusDict.add("р", "Ё"); RusDict.add("†", "Ж"); RusDict.add("‡", "З");
 RusDict.add("€", "И"); RusDict.add("‰", "Й"); RusDict.add("Љ", "К");
 RusDict.add("‹", "Л"); RusDict.add("Њ", "М"); RusDict.add("Ќ", "Н");
 RusDict.add("Ћ", "О"); RusDict.add("Џ", "П"); RusDict.add("ђ", "Р");
 RusDict.add("‘", "С"); RusDict.add("’", "Т"); RusDict.add("“", "У");
 RusDict.add("”", "Ф"); RusDict.add("•", "Х"); RusDict.add("–", "Ц");
 RusDict.add("—", "Ч"); RusDict.add("", "Ш"); RusDict.add("™", "Щ");
 RusDict.add("љ", "Ъ"); RusDict.add("›", "Ы"); RusDict.add("њ", "Ь");
 RusDict.add("ќ", "Э"); RusDict.add("ћ", "Ю"); RusDict.add("џ", "Я");
 RusDict.add(" ", "а"); RusDict.add("Ў", "б"); RusDict.add("ў", "в");
 RusDict.add("Ј", "г"); RusDict.add("¤", "д"); RusDict.add("Ґ", "е");
 RusDict.add("с", "ё"); RusDict.add("¦", "ж"); RusDict.add("§", "з");
 RusDict.add("Ё", "и"); RusDict.add("©", "й"); RusDict.add("Є", "к");
 RusDict.add("«", "л"); RusDict.add("¬", "м"); RusDict.add("­", "н");
 RusDict.add("®", "о"); RusDict.add("Ї", "п"); RusDict.add("а", "р");
 RusDict.add("б", "с"); RusDict.add("в", "т"); RusDict.add("г", "у");
 RusDict.add("д", "ф"); RusDict.add("е", "х"); RusDict.add("ж", "ц");
 RusDict.add("з", "ч"); RusDict.add("и", "ш"); RusDict.add("й", "щ");
 RusDict.add("к", "ъ"); RusDict.add("л", "ы"); RusDict.add("м", "ь");
 RusDict.add("н", "э"); RusDict.add("о", "ю"); RusDict.add("п", "я");
}

В функции DosToWin из VBScript-сценария StdIn1.vbs (листинг 2.15) реализован другой подход к переводу строки в Windows-кодировку, связанный с преобразованием ANSI-кодов символов:

Function DosToWin(s)
Dim i,k,ss
 ss=""