Windows Script Host для Windows 2000/XP

 var LastName,Res;
 //Создаем объект WshShell
 WshShell = WScript.CreateObject('WScript.Shell');
 //Определяем пути к файлам
 InitPath();
 LastName=WSHInputBox('Введите фамилию для удаления:','Записная книжка')
 //Запрос на удаление записи
 Res=WshShell.Popup('Удалить фамилию '+LastName+ ' из 
'+PathBook+'?',0,
  'Записная книжка',vbQuestion+vbYesNo);
 if (Res==vbYes) { //Нажата кнопка Да
  //Ищем в книжке нужную фамилию и удаляем относящуюся к
  //ней запись
  FindAndDelRecord(LastName);
 }
}
//Запускаем основную функцию
Main();
</script>
</job>
<!-- ***************  Добавление записи *************** -->
<job id='AddRec'>
<script language='VBScript' src='WSHInputBox.vbs'/>
<script language='JScript' src='Usage.js'/>
<script language='JScript'>
//Ввод значений полей объекта 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