Windows Script Host для Windows 2000/XP
вернуться

Попов Андрей Викторович
Шрифт:

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

<property>
свойствам;

заготовки функций с префиксами

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

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

<method>
методам.

Кроме этого, создается экземпляр внутреннего объекта, содержащего те же свойства и методы, что были описаны внутри элемента

<public>
(переменная
description
). Имя этого внутреннего объекта совпадает с именем класса описываемого СОМ-объекта (в нашем случае это "
DateArc
").

Замечание

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

<script>
описание внутреннего объекта, это никак не скажется на функционировании объекта-сценария.

Доработка объекта-сценария DateArc.wsc (JScript)

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

Во-первых, для того, чтобы использовать внутри описания СОМ-объекта символы кириллицы, необходимо добавить в директиву

<?xml?>
аргумент
encoding="windows-1251"
(без этого в сценарии не удастся даже написать по-русски комментарии):

<?xml version="1.0" encoding="windows-1251"?>

Во-вторых, в контейнер

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

<script language="JScript">

<![CDATA[

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

}

]]>

</script>

Затем нам понадобятся две дополнительные функции. Первая из них

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
.

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