Андрей Попов - Windows Script Host для Windows 2000/XP

Main();

//Ввод значений полей объекта PersonRec

function MakePersonRec() {

//Создаем новый экземпляр PersonRec объекта Person

PersonRec=new Person();

//Вводим значения полей добавляемой записи с помощью диалогового

//окна со строкой ввода

PersonRec.LastName=WSHInputBox("Введите фамилию","Добавление записи");

PersonRec.Name=WSHInputBox("Введите имя","Добавление записи");

PersonRec.Phone=WSHInputBox("Введите телефон","Добавление записи");

PersonRec.Street=WSHInputBox("Введите улицу","Добавление записи");

PersonRec.House=WSHInputBox("Введите дом","Добавление записи");

PersonRec.App=WSHInputBox("Введите квартиру","Добавление записи");

PersonRec.Note=WSHInputBox("Введите примечание","Добавление записи");

}

//Сохранение данных из объекта PersonRec в XML-файле

function RecordToFile(PersRec) {

var Root,NewElem,s;

//Создаем объект DOMDocument

XMLDoc = WScript.CreateObject("Msxml.DOMDocument");

//Загружаем XML-файл

XMLDoc.load(PathBook);

//Сохраняем в переменной Root ссылку на корневой элемент

//документа

Root=XMLDoc.documentElement;

//Создаем XML-элемент Person

NewElem=XMLDoc.createElement("Person");

//Добавляем новый элемент в XML-файл

Root.appendChild(NewElem);

//Сохраняем в переменной Root ссылку на последний добавленный

//элемент Person

Root=Root.lastChild;

//Создаем элемент LastName

NewElem=XMLDoc.createElement("LastName");

//Добавляем новый элемент в XML-файл (внутри элемента Person)

Root.appendChild(NewElem);

//Подставляем в качестве содержимого элемента LastName

//значение поля LastName объекта PersRec

Root.lastChild.text=PersRec.LastName;

//Создаем элемент Name

NewElem=XMLDoc.createElement("Name");

//Добавляем новый элемент в XML-файл (внутри элемента Person)

Root.appendChild(NewElem);

//Подставляем в качестве содержимого элемента Name

//значение поля Name объекта PersRec

Root.lastChild.text=PersRec.Name;

//Создаем элемент Phone

NewElem=XMLDoc.createElement("Phone");

//Добавляем новый элемент в XML-файл (внутри элемента Person)

Root.appendChild(NewElem);

//Подставляем в качестве содержимого элемента Phone

//значение поля Phone объекта PersRec

Root.lastChild.text=PersRec.Phone;

//Создаем элемент Street

NewElem=XMLDoc.createElement("Street");

//Добавляем новый элемент в XML-файл (внутри элемента Person)

Root.appendChild(NewElem);

//Подставляем в качестве содержимого элемента Street

//значение поля Street объекта PersRec

Root.lastChild.text=PersRec.Street;

//Создаем элемент House

NewElem=XMLDoc.createElement("House");

//Добавляем новый элемент в XML-файл (внутри элемента Person)

Root.appendChild(NewElem);

//Подставляем в качестве содержимого элемента House

//значение поля House объекта PersRec

Root.lastChild.text=PersRec.House;

//Создаем элемент App

NewElem=XMLDoc.createElement("App");

//Добавляем новый элемент в XML-файл (внутри элемента Person)

Root.appendChild(NewElem);

//Подставляем в качестве содержимого элемента App

//значение поля House объекта PersRec

Root.lastChild.text=PersRec.App;

//Создаем элемент Note

NewElem=XMLDoc.createElement("Note");

//Добавляем новый элемент в XML-файл (внутри элемента Person)

Root.appendChild(NewElem);

//Подставляем в качестве содержимого элемента App

//значение поля House объекта PersRec

Root.lastChild.text=PersRec.Note;

//Сохраняем содержимое XML-файла на диске

XMLDoc.save(PathBook);

}

//Добавление новой записи в книжку

function AddRecord() {

//Заполняем поля объекта PersonRec

MakePersonRec();

//Сохраняем данные из объекта PersonRec в XML-файл

RecordToFile(PersonRec);

}

//Построение путей к файлам

function InitPath() {

BasePath=WshShell.CurrentDirectory+"\\";

//Путь к файлу с данными

PathBook=BasePath+"book.xml";

}

//Основная запускная функция

function Main() {

var Res;

//Создаем объект WshShell

WshShell = WScript.CreateObject("WScript.Shell");

//Определяем пути к файлам

InitPath();

//Запрос на создание нового ключа

Res=WshShell.Popup("Добавить запись в \n"+PathBook+"?",0,

"Записная книжка",vbQuestion+vbYesNo);

if (Res==vbYes) { //Нажата кнопка Да

//Добавляем новую запись в книжку

AddRecord();

//Выводим информацию на экран

WshShell.Popup("Новая запись\n\n"+PersonRec.LastName+" "+

PersonRec.Name+"\n"+PersonRec.Phone+"\n"+

PersonRec.Street+", "+PersonRec.House+"-"+PersonRec.App+"\n\n"+