Windows Script Host для Windows 2000/XP

/* Имя: Usage.js                                                   */
/* Язык: JScript                                                   */
/* Описание: Общие функции для записной книжки                     */
/*******************************************************************/
//Объявляем переменные
var
 WshShell,FSO,
 BasePath,     //Путь к текущему каталогу
 PathBook,     //Путь к файлу с данными
 PathOut,      //Путь к выходному файлу
 FBook,        //Файл с данными
 FOut,         //Выходной файл
 NomRec=0,     //Счетчик количества записей
 PersonRec,    //Объект для хранения данных об одном человеке
 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)