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

• Название: Windows Script Host для Windows 2000/XP
• Автор: Андрей Попов
• Издательство: БХВ-Петербург
• Жанр: Программное обеспечение
• Год: 2004
• ISBN: 5-94157-197-6

В книге описывается сервер сценариев Windows Script Host (WSH) версии 5.6, который является одним из стандартных компонентов Windows ХР, а также может быть установлен в более ранних версиях Windows. Приводятся сценарии на языках VBScript и JScript, иллюстрирующие применение стандартных объектов WSH 5.6, включая создание из сценариев дочерних процессов и запуск сценариев на удаленных компьютерах. В качестве более сложных примеров рассматриваются сценарии, работающие с базами данных, управляющие приложениями Microsoft Office, организующие графический пользовательский интерфейс, использующие технологии ADSI (Active Directory Service Interface) и WMI (Windows Management Instrumentation) для решения задач администрирования. Освещены вопросы практической работы с XML-файлами и создания СОМ-объектов. Особое внимание уделяется вопросам безопасности при работе со сценариями, приводятся конкретные примеры настроек политик безопасности. К книге прилагается дискета с исходными текстами большинства примеров.

---

В WshShell.Popup("Запись N "+DelNom+" удалена",0,"Рнформация",

В  vbInformation+vbOkOnly);

 //Обновлем в форме данные для первой записи

В this.RefreshDialog(true);

}

//             Обработчики событий Internet Explorer'a

//Функция-обработчик окончания загрузки документа в Internet Explorer

function ie_DocumentComplete() {

 //Создаем экземпляр objListPersons объекта ListPersons

В objListPersons = new ListPersons();

 //Загружаем данные из XML-файла в массив PersonArr

В objListPersons.FileToArray();

 //Получаем ссылку на объект Document

В doc = ie.Document;

 //Устанавливаем заголовок окна

 doc.title = "Редактирование данных";

 //Указываем функции-обработчики нажатий на кнопки формы

В doc.all.btnSave.onclick=btnSave_OnClick;

В doc.all.btnCancel.onclick=btnCancel_OnClick;

В doc.all.btnFirst.onclick=btnFirst_OnClick;

В doc.all.btnPrevious.onclick=btnPrevious_OnClick;

В doc.all.btnNew.onclick=btnNew_OnClick;

В doc.all.btnDelete.onclick=btnDelete_OnClick;

В doc.all.btnNext.onclick=btnNext_OnClick;

В doc.all.btnFinal.onclick=btnFinal_OnClick;

 //Указываем функции-обработчики изменения текста в полях ввода

В doc.all.txtLastName.onchange В = txtBoxOnChange;

В doc.all.txtName.onchange В = txtBoxOnChange;

В doc.all.txtPhone.onchangeВ = txtBoxOnChange;

В doc.all.txtStreet.onchange В = txtBoxOnChange;

В doc.all.txtHouse.onchangeВ = txtBoxOnChange;

В doc.all.txtApp.onchange В = txtBoxOnChange;

В doc.all.txtNote.onchange В = txtBoxOnChange;

В if (objListPersons.PersonArr.length < 1)

  //Если в XML-файле нет данных, добавляем пустую запись

В  objListPersons.AddRecord();

 //В качестве текущей устанавливаем первую запись

В objListPersons.CurRecord = 0;

 //Загружаем в форму данные из массива PersonArr

 //для первой записи

В objListPersons.LoadDialog();

 // Делаем окно Internet Explorer'а видимым

В ie.Visible = true;

}

//Функция-обработчик закрытия окна Internet Explorer'а

function ie_OnQuit() {

В IsQuit=true;

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

В objListPersons.SaveData();

}

//             Обработчики нажатий на кнопки в форме

//Функция-обработчик нажатия на кнопку "Сохранить"

function btnSave_OnClick() {

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

В objListPersons.SaveData();

}

//Функция-обработчик нажатия на кнопку "Отменить"

function btnCancel_OnClick() {

 //Заново загружаем данные из текущего элемента массива

 //в форму

В objListPersons.LoadDialog();

 //Выводим сообщение в заголовке окна

 doc.title = "Данные восстановлены";

}

//Функция-обработчик нажатия на кнопку "<<"

function btnFirst_OnClick() {

 //Проверяем, были ли сделаны изменения в форме

В if (objListPersons.IsChanged) { //Рзменения были сделаны

  //Сохраняем данные в XML-файле

В  objListPersons.SaveData();

  //Заново загружаем данные из XML-файла в массив PersonArr

В  objListPersons.FileToArray();

В }

 //Переходим к первой записи в массиве

В objListPersons.FirstRecord();

 //Загружаем в форму данные из массива PersonArr

 //для первой записи

В objListPersons.LoadDialog();

 //Выводим сообщение в заголовке окна

 doc.title = "Запись N " + (objListPersons.CurRecord + 1);

}

//Функция-обработчик нажатия на кнопку "<"

function btnPrevious_OnClick() {

 //Проверяем, были ли сделаны изменения в форме

В if (objListPersons.IsChanged) {В  //Рзменения были сделаны

  //Сохраняем данные в XML-файле

В  objListPersons.SaveData();

  //Заново загружаем данные из XML-файла в массив PersonArr

В  objListPersons.FileToArray();

В }

 //Переходим к предыдущей записи в массиве

В objListPersons.PreviousRecord();

 //Загружаем в форму данные из массива PersonArr

 //для текущей записи

В objListPersons.LoadDialog();

 //Выводим сообщение в заголовке окна

 doc.title = "Запись N " + (objListPersons.CurRecord + 1);

}

//Функция-обработчик нажатия на кнопку "Новая запись"

function btnNew_OnClick() {

 //Проверяем, были ли сделаны изменения в форме

В if (objListPersons.IsChanged) { //Рзменения были сделаны

  //Сохраняем данные в XML-файле

В  objListPersons.SaveData();

  //Заново загружаем данные из XML-файла в массив PersonArr

В  objListPersons.FileToArray();

В }

 //Добавляем новую запись в XML-файл

В objListPersons.NewRecord();

 //Загружаем в форму данные из массива PersonArr

 //для добавленной записи

В objListPersons.LoadDialog();

 //Выводим сообщение в заголовке окна

 doc.title = "Добавлена новая запись";

}

//Функция-обработчик нажатия на кнопку "Удалить"

function btnDelete_OnClick() {

 //Удаляем текущую запись из XML-файла

В objListPersons.DelRecord();

 //Загружаем в форму данные из массива PersonArr

 //для первой записи

В objListPersons.LoadDialog();

 //Выводим сообщение в заголовке окна

 doc.title = "Запись удалена";

}

//Функция-обработчик нажатия на кнопку ">"

function btnNext_OnClick() {

 //Проверяем, были ли сделаны изменения в форме

В if (objListPersons.IsChanged) { //Рзменения были сделаны

  //Сохраняем данные в XML-файле

В  objListPersons.SaveData();

  //Заново загружаем данные из XML-файла в массив PersonArr

В  objListPersons.FileToArray();

В }

 //Переходим к следующей записи в массиве

В objListPersons.NextRecord();

 //Загружаем в форму данные из массива PersonArr

 //для текущей записи

В objListPersons.LoadDialog();

 //Выводим сообщение в заголовке окна

 doc.title = "Запись N " + (objListPersons.CurRecord + 1);

}

//Функция-обработчик нажатия на кнопку ">>"

function btnFinal_OnClick() {

 //Проверяем, были ли сделаны изменения в форме

В if (objListPersons.IsChanged) { //Рзменения были сделаны