Windows Script Host для Windows 2000/XP

Замечание

Создаваемый мастером внутренний объект нужен только в иллюстративных целях, т.к. здесь наглядно видно, какие именно свойства и методы будет предоставлять клиентам автоматизации компонент-сценарий. Если убрать из контейнера <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;
}

Основной функцией, осуществляющей архивирование файлов, является FilesToArchiv. В самом начале этой функции с помощью вызова CheckPath проверяется наличие рабочих каталогов. Если хотя бы один из каталогов не существует, то выполнение FilesToArchiv прерывается и возвращается значение false:

if (!CheckPath) return false;

Затем создаются экземпляры объектов FileSystemObject и WshShell:

//Создаем объект FileSystemObject
FSO = new ActiveXObject("Scripting. FileSystemObject");
//Создаем объект WshShell
WshShell = new ActiveXObject("WScript.Shell");

Имя файла-архива формируется следующим образом:

//Формируем имя файла-архива
SFName=SPref+NowIs+".arj";

Архиватор arj.exe мы будем запускать в отдельном командном окне, которое закроется после выполнения этой программы. Для этого мы сформируем командную строку SComLine, с помощью которой запускается вторичная копия командного процессора (путь к командному процессору хранится в переменной среды %COMSPEC%, вторичная копия вызывается с помощью ключа /с):