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

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;

this.FilesToArchiv = FilesToArchiv;

}

var SFrom;

var SArch;

var SPref;

var SMask;

var SErrMess;

function get_SFrom() {

return SFrom;

}

function put_SFrom(newValue) {

SFrom = newValue;

}

function get_SArch() {

return SArch;

}

function put_SArch(newValue) {

SArch = newValue;

}

function get_SPref() {

return SPref;

}

function put_SPref(newValue) {

SPref = newValue;

}

function get_SMask() {

return SMask;

}

function put_SMask(newValue) {

SMask = newValue;

}

function get_SErrMess(){

return SErrMess;

}

function FilesToArchiv() {

return "Temporary Value";

}

]]>

Как мы видим из листинга 10.3, при использовании в компоненте-сценарии языка JScript в результате работы мастера внутрь контейнера помещаются:

□ глобальные переменные, которые соответствуют объявленным в элементах свойствам;

□ заготовки функций с префиксами get_и put_, которые осуществляют чтение и запись свойств объекта;

□ заготовки функций, которые соответствуют объявленным в элементах методам.

Кроме этого, создается экземпляр внутреннего объекта, содержащего те же свойства и методы, что были описаны внутри элемента (переменная description). Имя этого внутреннего объекта совпадает с именем класса описываемого СОМ-объекта (в нашем случае это " DateArc").

Создаваемый мастером внутренний объект нужен только в иллюстративных целях, т.к. здесь наглядно видно, какие именно свойства и методы будет предоставлять клиентам автоматизации компонент-сценарий. Если убрать из контейнера описание внутреннего объекта, это никак не скажется на функционировании объекта-сценария.

Для получения нужного нам СОМ-объекта из сформированного с помощью Windows Script Component Wizard файла DateArc.wsc нужно выполнить несколько шагов.

Во-первых, для того, чтобы использовать внутри описания СОМ-объекта символы кириллицы, необходимо добавить в директиву аргумент encoding="windows-1251"(без этого в сценарии не удастся даже написать по-русски комментарии):

Во-вторых, в контейнер мы вставим элемент с двумя функциями Register()и Unregister(), которые будут выводить на экран диалоговые окна с соответствующей информацией при регистрации компонента-сценария и его отключении соответственно:

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

}

]]>

Затем нам понадобятся две дополнительные функции. Первая из них NowIs()формирует строку формата ММДД, где ММ — текущий месяц, ДД — текущий день:

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

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;

}

Вторая функция CheckPath()будет проверять наличие исходного каталога и каталога для хранения архивных файлов. Для этого используется метод FolderExists()объекта FileSystemObject. Заметим, что сам объект FileSystemObjectнужно создавать не путем вызова метода CreateObjectобъекта WScript, а с помощью конструкции new ActiveXObject():

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

т.к. в отличие от обычного сценария WSH в компоненте-сценарии нет встроенного объекта WScript. Если хотя бы один из каталогов не существует, функция CheckPath()запишет соответствующее сообщение в свойство SErrMessи вернет значение false, в противном случае функция CheckPath()возвращает значение true.