Андрей Попов - 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-файлами и создания СОМ-объектов. Особое внимание уделяется вопросам безопасности при работе со сценариями, приводятся конкретные примеры настроек политик безопасности. К книге прилагается дискета с исходными текстами большинства примеров.

---

 //          Свойства объекта

 //Создаем массив PersonArr экземпляров объекта Person

В this.PersonArr = new Array();

В //Рнициализируем номер текущей записи

В this.CurRecord = 0;

 //Сбрасываем признак изменения данных в форме

В this.IsChanged = false;

 //          Методы объекта

 //Устанавливаем для методов указатели на соответствующие функции

В this.FileToArray=ListPersons_FileToArray;

В this.SaveData=ListPersons_SaveData;

В this.LoadDialog=ListPersons_LoadDialog;

В this.RefreshDialog=ListPersons_RefreshDialog;

В this.NextRecord=ListPersons_NextRecord;

В this.PreviousRecord=ListPersons_PreviousRecord;

В this.FirstRecord=ListPersons_FirstRecord;

В this.FinalRecord=ListPersons_FinalRecord;

В this.NewRecord=ListPersons_NewRecord;

В this.DelRecord = ListPersons_DelRecord;

}

Текст всех методов объекта ListPersons с подробными комментариями приведен в листинге 7.8. 

Листинг 7.8. Методы объекта ListPersons

//Считывание данных из XML-файла в массив объектов Person

function ListPersons_FileToArray() {

В var Root,CurrNode,i;

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

В XML = WScript.CreateObject("Msxml.DOMDocument");

 //Загружаем XML-документ из файла

В XML.load(PathBook);

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

 //документа

В Root=XML.documentElement;

 //Обнуляем массив PersonArr

В this.PersonArr.length=0;

 //Перебираем все дочерние элементы первого уровня вложенности

 //для корневого элемента

В for (i=1; i<=Root.childNodes.length-1;i++) {

  //Выделяем в коллекции XML-элементов i-й элемент

В  CurrNode=Root.childNodes.item(i);

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

В  PersonRec=new Person();

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

В  PersonRec.LastName=GetTagVal(CurrNode,"LastName");

В  PersonRec.Name=GetTagVal(CurrNode,"Name");

В  PersonRec.Phone=GetTagVal(CurrNode,"Phone");

В  PersonRec.Street=GetTagVal(CurrNode,"Street");

В  PersonRec.House=GetTagVal(CurrNode,"House");

В  PersonRec.App=GetTagVal(CurrNode,"App");

В  PersonRec.Note=GetTagVal(CurrNode,"Note");

  //Сохраняем объект PersonRec в массиве PersonArr

В  this.PersonArr[this.PersonArr.length]=PersonRec;

В }

}

//Запись данных из формы в XML-файл

function ListPersons_SaveData() {

В var Root,CurrNode,ElemList;

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

 //документа

В Root=XML.documentElement;

 //Сохраняем в переменной CurrNode ссылку на (CurRecord+1)-й

 //элемент Person

В CurrNode=Root.childNodes.item(this.CurRecord+1);

 //Записываем данные из полей ввода формы в соответствующие

 //XML-элементы, которые являются дочерними узлами

 //относительно  CurrNode

В SetTagVal(CurrNode,"LastName",doc.all.txtLastName.value);

В SetTagVal(CurrNode,"Name",doc.all.txtName.value);

В SetTagVal(CurrNode,"Phone",doc.all.txtPhone.value);

В SetTagVal(CurrNode,"Street",doc.all.txtStreet.value);

В SetTagVal(CurrNode,"House",doc.all.txtHouse.value);

В SetTagVal(CurrNode,"App",doc.all.txtApp.value);

В SetTagVal(CurrNode,"Note",doc.all.txtNote.value);

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

В XML.save(PathBook);

}

//Загрузка данных для текущей записи в форму

function ListPersons_LoadDialog() {

 //Вызываем метод LoadDialog для объекта Person,

 //который является CurRecord-м элементом массива PersonArr

В this.PersonArr[this.CurRecord].LoadDialog();

}

//Обновление данных в форме

function ListPersons_RefreshDialog(IsGoTop) {

 //Обнуляем массив PersonArr

В this.PersonArr.length=0;

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

В this.FileToArray();

В if (IsGoTop)

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

В  this.FirstRecord()

В else

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

В  this.FinalRecord();

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

В this.LoadDialog();

}

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

function ListPersons_NextRecord() {

В if (this.CurRecord<this.PersonArr.length - 1)

  //Если текущая запись не является последней, увеличиваем

  //номер текущей записи

В  this.CurRecord++;

}

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

function ListPersons_PreviousRecord() {

В if (this.CurRecord > 0)

  //Если текущая запись не является первой, уменьшаем

  //номер текущей записи

В  this.CurRecord--;

}

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

function ListPersons_FirstRecord() {

В this.CurRecord = 0;

}

//Переход к последней записи

function ListPersons_FinalRecord() {

В this.CurRecord = this.PersonArr.length - 1;

}

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

function ListPersons_NewRecord() {

В var Root,NewElem;

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

 //документа

В Root=XML.documentElement;

 //Создаем новый элемент Person

В NewElem=XML.createElement("Person");

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

В Root.appendChild(NewElem);

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

В XML.save(PathBook);

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

В this.RefreshDialog(false);

}

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

function ListPersons_DelRecord() {

В var Root,DelNom;

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

 //документа

В Root=XML.documentElement;

 //В переменной DelNom сохраняем номер удаляемого элемента Person

В DelNom=this.CurRecord+1;

 //Удаляем DelNom-й элемент Person из XML-файла

В Root.removeChild(Root.childNodes.item(DelNom))

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

В XML.save(PathBook);

 //Выводим сообщение о том, что запись удалена

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

В  vbInformation+vbOkOnly);

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

В this.RefreshDialog(true);

}В 

Вывод формы из сценария WSH

Для того чтобы вывести из сценария WSH разработанную HTML-форму на экран, нужно вначале получить ссылку на объект Application, который определяется в объектной модели Internet Explorer. Делается это следующим образом:

var ie = WScript.CreateObject("InternetExplorer.Application", "ie_");