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

.

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

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;