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

var WshShell;

//Инициализируем константы для диалоговых окон

var vbInformation=64;

function Register() {

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

WshShell = new ActiveXObject("WScript.Shell");

WshShell.Popup("Компонент зарегистрирован в системе",0,

"Компонент для архивирования файлов",vbInformation);

}

function Unregister() {

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

WshShell = new ActiveXObject("WScript.Shell");

WshShell.Popup("Компонент удален из системы",0,

"Компонент для архивирования файлов",vbInformation);

}

]]>

var description = new DateArc;

//Конструктор объекта DateArc

function DateArc() {

//Объявляем свойства объекта DateArc

this.get_SFrom = get_SFrom;

this.put_SFrom = put_SFrom;

this.get_SArch = get_SArch;

this.put_SArch = put_SArch;

this.get_SPref = get_SPref;

this.put_SPref = put_SPref;

this.get_SMask = get_SMask;

this.put_SMask = put_SMask;

this.get_SErrMess = get_SErrMess;

//Объявляем метод FilesToArchiv

this.FilesToArchiv = FilesToArchiv;

}

var SFrom, //Исходный каталог для архивирования

SArch, //Каталог, в котором будет создаваться архив

SPref, //Префикс файла

SMask, //Маска, по которой отбираются файлы для

//архивирования

SErrMess; //Текст сообщения об ошибке

//Чтение и запись свойства SFrom

function get_SFrom() {

return SFrom;

}

function put_SFrom(newValue) {

SFrom = newValue;

}

//Чтение и запись свойства SArch

function get_SArch() {

return SArch;

}

function put_SArch(newValue) {

SArch = newValue;

}

//Чтение и запись свойства SPref

function get_SPref() {

return SPref;

}

function put_SPref(newValue) {

SPref = newValue;

}

//Чтение и запись свойства SMask

function get_SMask() {

return SMask;

}

function put_SMask(newValue) {

SMask = newValue;

}

//Чтение свойства SErrMess

function get_SErrMess() {

return SErrMess;

}

//Вспомогательная функция для символьного представления даты

function NowIs() {

var d, s="", s1="";

//Создаем объект Date (текущая дата)

d=new Date();

//Выделяем номер месяца

s+=(d.getMonth()+1);

//Если месяц представляется одним символом, добавляем слева "0"

if (s.length==1) s="0"+s;

//Выделяем в дате день

s1+=d.getDate();

//Если день представляется одним символом, добавляем слева "0"

if (s1.length==1) s1="0"+s1;

s+=s1;

//Возвращаем сформированную строку

return s;

}

//Проверка доступности каталогов

function CheckPath() {

var FSO;

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

FSO=new ActiveXObject("Scripting.FileSystemObject");

//Проверяем доступность исходного каталога

if (!FSO.FolderExists(SFrom)) { //Исходный каталог не существует

//Формируем строку с информацией об ошибке

SErrMess="Не найден исходный каталог "+SFrom;

return false;

}

//Проверяем доступность каталога для архивирования

if (!FSO.FolderExists(SArch)) {

//Каталог для архивирования не существует

//Формируем строку с информацией об ошибке

SErrMess="Не найден каталог для хранения архивов "+SArch;

return false;

}

//Если оба каталога существуют, возвращаем true

return true;

}

//Архивирование файлов из исходного каталога

function FilesToArchiv() {

var WshShell,SComLine,RetCode,SFName,FSO;

//Если хотя бы один из каталогов не существует, возвращаем false

if (!CheckPath()) return false;

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

FSO=new ActiveXObject("Scripting.FileSystemObject");

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

WshShell = new ActiveXObject("WScript.Shell");

//Формируем имя файла-архива

SFName=SPref+NowIs()+".arj";

//Формируем командную строку для запуска архиватора arj.exe

SComLine="%COMSPEC% /c arj.exe a ";

SComLine+=FSO.BuildPath(SArch,SFName)+" ";

SComLine+=FSO.BuildPath(SFrom,SMask);

//Запускаем архиватор arj.exe

RetCode = WshShell.Run(SComLine, 1, true);

//Анализируем код возврата для arj.exe

if (0==RetCode)

//Выполнение arj.exe завершилось без ошибок

return true;

else {

//Формируем строку с информацией об ошибке

SErrMess="Ошибка ARJ.EXE! Код "+RetCode;

return false;

}

}

]]>

После написания текста объекта-сценария нужно внести информацию о нем в системный реестр, т.е, зарегистрировать объект. Это можно сделать несколькими способами, самый простой из которых заключается в следующем. Нужно выделить в Проводнике Windows необходимый WSC-файл с компонентом-сценарием (в нашем случае это файл DateArc.wsc в каталоге C:\WSC), щелкнуть правой кнопкой мыши и в появившемся контекстном меню выбрать пункт Подключить(Register) (рис. 10.7).

Рис. 10.7.Контекстное меню, сопоставленное расширению WSC

После этого необходимая информация запишется в реестр и выполнится функция Register(), которая описана в файле DateArc.wsc внутри элемента , в результате чего на экран будет выведено диалоговое окно, показанное на рис. 10.8.

Рис. 10.8.Информация о регистрации компонента-сценария DateArc.WSC

В системном реестре данные о регистрируемом объекте DateArc.WSCзаносятся в две ветви: HKEY_LOCAL_MACHINEи HKEY_CLASSES_ROOT.

В разделе HKEY_LOCAL_MACHINE\SOFTWARE\Classesсоздается новый подраздел DateArc.WSCсо значением по умолчанию " DateArc". В подразделе DateArc.WSCв параметр CLSIDзаписывается глобальный код объекта DateArc.WSC — "{424AC2BC-5732-4DEA-BE17-0211AF99CD79}" (рис. 10.9).

Рис. 10.9.Информация о зарегистрированном объекте DateArc.WSC в ветви HKEY_LOCAL_MACHINE

В разделе HKEY_CLASSES_ROOT\CLSIDсоздается новый подраздел, название которого совпадает с глобальным кодом объекта DateArc.WSC — "{424AC2BC-5732-4DEA-BE17-0211AF99CD79}". Значением по умолчанию для нового подраздела является "DateArc" (рис. 10.10).

Рис. 10.10.Информация о зарегистрированном объекте DateArc.WSC в ветви HKEY_CLASSES_ROOT

В новом разделе создаются, в свою очередь, еще несколько подразделов, значения которых очень важны для функционирования компонента-сценария в качестве СОМ-объекта (см. разд. "Технология Windows Script Components"). Эти разделы для нашего примера описаны в табл. 10.2.