Андрей Попов - Windows Script Host для Windows 2000/XP
 PersonArr;   //Массив для хранения объектов PersonRec
 ForWriting=2; //Константа для создания выходного файла
//Рнициализируем константы для диалоговых РѕРєРѕРЅ
var vbYesNo=4,vbQuestion=32,vbInformation=64,vbYes=6,vbOkOnly=0;
//Конструктор объекта Person
function Person(LastName,Name,Phone,Street,House,App,Note) {
 this.LastName=LastName; //Фамилия
В this.Name=Name;В В В В В В В В //РРјСЏ
 this.Phone=Phone;      //Телефон
 this.Street=Street;    //Улица
 this.House=House;      //Дом
 this.App=App;          //Квартира
 this.Note=Note;        //Примечание
}
//Определение значения тега tgName XML-элемента obj
function GetTagVal(obj, tgName) {
В var ElemList;
 //Создаем коллекцию дочерних для obj элементов, которые
 //задаются тегом tgName
В ElemList=obj.getElementsByTagName(tgName);
 //Проверяем, есть ли в коллекции ElemList элементы
В if (ElemList.length>0)
 //Возвращаем значение тега tgName
В return ElemList.item(0).text
В else return "";
}
//Заполнение нового элемента массива
function PersonToArray(XNode) {
 //Создаем новый экземпляр PersonRec объекта Person
В PersonRec=new Person();
 //Заполняем поля объекта PersonRec
В PersonRec.LastName=GetTagVal(XNode,"LastName");
В PersonRec.Name=GetTagVal(XNode,"Name");
В PersonRec.Phone=GetTagVal(XNode,"Phone");
В PersonRec.Street=GetTagVal(XNode,"Street");
В PersonRec.House=GetTagVal(XNode,"House");
В PersonRec.App=GetTagVal(XNode,"App");
В PersonRec.Note=GetTagVal(XNode,"Note");
 //Сохраняем объект PersonRec в массиве
В PersonArr[PersonArr.length]=PersonRec;
}
//Запись в выходной файл заголовка отчета
function TopReport(Mess) {
В FOut.WriteLine(Mess);
В FOut.WriteLine("--------------------");
В FOut.WriteLine("");
}
//Запись в выходной файл итоговой информации
function BottomReport(Mess) {
В FOut.WriteLine(Mess);
}
//Запись данных из объекта Person в выходной файл
function PrintPerson(PersRec) {
 FOut.WriteLine("Фамилия: "+PersRec.LastName);
В FOut.WriteLine("РРјСЏ: "+PersRec.Name);
 FOut.WriteLine("Телефон: "+PersRec.Phone);
 FOut.WriteLine("Улица: "+PersRec.Street);
 FOut.WriteLine("Дом: "+PersRec.House);
В FOut.WriteLine("РљРІ.: "+PersRec.App);
 FOut.WriteLine("Заметки: "+PersRec.Note);
В FOut.WriteLine("*********************************");
В NomRec++;
}
//Просмотр содержимого выходного файла в Блокноте
function MakeOut() {
 //Закрываем выходной файл
В FOut.Close();
 //Открываем выходной файл в Блокноте
В WshShell.Run("notepad "+PathOut,1);
}
//Построение путей к файлам
function InitPath() {
В BasePath=WshShell.CurrentDirectory+"\";
 //Путь к файлу с данными
В PathBook=BasePath+"book.xml",
 //Путь к выходному файлу
В PathOut=BasePath+"out.txt";
}
/************* Конец *********************************************/
Также в отдельный файл WSHInputBox.vbs мы поместим функцию WSHinputBox(Message, Title) на языке VBScript, с помощью которой из JScript-сценариев будет выводиться диалоговое окно со строкой ввода (напомним, что ни язык JScript, ни объектная модель WSH такой функции не предоставляют):
Function WSHInputBox(Message,Title)
 'Выводим диалоговое окно со строкой ввода
В WSHInputBox = InputBox(Message,Title)
End Function
Сами задания из файла PhoneBook.wsf составлены (с некоторыми изменениями, на которых мы подробно останавливаться не будем) из одиночных сценариев, которые были рассмотрены в предыдущей главе: см. листинг 6.3 (просмотр всех записей в алфавитном порядке), листинг 6.4 (добавление записей) и листинг 6.5 (поиск записей по фамилии и удаление записей).
В листинге 7.3 приводится полный текст сценария PhoneBook.wsf.
Листинг 7.3. Многозадачный сценарий PhoneBook.wsf для работы с записной книжкой<package>
<!-- ****************** Просмотр всех записей ******************* -->
<job id="SortName">
<script language="JScript" src="usage.js"/>
<script language="JScript">
//Создание массива объектов Person
function FileToArray() {
В var XML,Root,NomRec,CurrNode,ex,i;
 //Создаем массив PersonArr
В PersonArr=new Array();
 //Создаем объект XML DOM
В XML = WScript.CreateObject("Msxml.DOMDocument");
 //Загружаем XML-документ из файла
В XML.load(PathBook);
 //Сохраняем в переменной Root ссылку на корневой элемент
 //документа
В Root=XML.documentElement;
 //Перебираем все дочерние элементы первого уровня вложенности
 //для корневого элемента
В for (i=1; i<=Root.childNodes.length-1;i++) {
 //Выделяем в коллекции XML-элементов i-й элемент
В CurrNode=Root.childNodes.item(i);
 //Добавляем новый элемент в массив объектов Person
В PersonToArray(CurrNode);
В }
}
//Сортировка массива и вывод его содержимого в выходной файл
function ListPersonArray() {
В var i;
 //Сортировка массива по фамилии
В PersonArr.sort(SortLastName);
 //Цикл по всем элементам массива PersonArr
В for (i=0;i<=PersonArr.length-1;i++) {
 //Запись информации в выходной файл
В PrintPerson(PersonArr[i]);
В }
}
//Функция для сортировки массива по фамилии
function SortLastName(Pers1,Pers2) {
В if (Pers1.LastName<Pers2.LastName) return -1;
В else if (Pers1.LastName==Pers2.LastName) return 0;
В else return 1;
}
//Основная запускная функция
function Main() {
 //Создаем объект WshShell
В WshShell = WScript.CreateObject("WScript.Shell");
 //Определяем пути к файлам
В InitPath();
 //Создаем объект FileSystemObject
В FSO=WScript.CreateObject("Scripting.FileSystemObject");
 //Открываем выходной файл для записи
В FOut=FSO.OpenTextFile(PathOut,ForWriting,true);
 //Печатаем заголовок отчета
 TopReport("Список всех записей, сортировка по фамилии");
 //Считываем данные из файла в массив
В FileToArray();
 //Записываем информацию из массива в выходной файл
В ListPersonArray();
 //Печатаем итоговую информацию
