Windows Script Host для Windows 2000/XP

Попов Андрей Викторович

 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");