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

• Название: Windows Script Host для Windows 2000/XP
• Автор: Андрей Попов
• Издательство: БХВ-Петербург
• Жанр: Программное обеспечение
• Год: 2004
• ISBN: 5-94157-197-6

В книге описывается сервер сценариев Windows Script Host (WSH) версии 5.6, который является одним из стандартных компонентов Windows ХР, а также может быть установлен в более ранних версиях Windows. Приводятся сценарии на языках VBScript и JScript, иллюстрирующие применение стандартных объектов WSH 5.6, включая создание из сценариев дочерних процессов и запуск сценариев на удаленных компьютерах. В качестве более сложных примеров рассматриваются сценарии, работающие с базами данных, управляющие приложениями Microsoft Office, организующие графический пользовательский интерфейс, использующие технологии ADSI (Active Directory Service Interface) и WMI (Windows Management Instrumentation) для решения задач администрирования. Освещены вопросы практической работы с XML-файлами и создания СОМ-объектов. Особое внимание уделяется вопросам безопасности при работе со сценариями, приводятся конкретные примеры настроек политик безопасности. К книге прилагается дискета с исходными текстами большинства примеров.

---

//в каталоге-источнике

Files=new Enumerator(Fold.Files);

Операции записи информации в log-файл и непосредственно переноса файлов из одного каталога в другой реализованы соответственно в функциях WriteLog() и MoveFiles().

В функции WriteLog() после объявления переменных открывается log-файл в режиме добавления строк:

var s, ss, s1, d, File, FLog;

WScript.Echo(" ");

WScript.Echo("Записываем информацию в log-файл...");

//Открываем log-файл для добавления

FLog=FSO.OpenTextFile(PathLog, ForAppending, true);

Затем в цикле while происходит просмотр коллекции файлов в каталоге-источнике:

//Переходим к первому элементу коллекции файлов

Files.moveFirst();

//Цикл по всем файлам в коллекции

while (!Files.atEnd()) {

В //Рзвлекаем текущий файл РёР· коллекции

В File=Files.item();

 //Переходим к следующему файлу в коллекции

В Files.moveNext();

}

Если файл подлежит перемещению (расширение этого файла совпадает с расширением файлов для перемещения), то определяется его имя (свойство Name), дата создания (свойство DateCreated) и текущая дата (объект Date), и в log-файл записывается соответствующая информация:

//Выделяем расширение файла

s=FSO.GetExtensionName(File.Name);

//Проверяем, совпадает ли расширение текущего файла

//с расширением файлов для перемещения

if (s==Mask) {

 //Выводим имя файла на экран

В WScript.Echo("В  "+File.Name);

 //Определяем дату создания файла

В d=new Date(File.DateCreated);

 //Формируем строку ss для записи в log-файл

В ss=LFillStr(13,File.Name)

В s1="("+DateToStr(d)+" ";

В s1+=TimeToStr(d)+")";

В ss+=LFillStr(20,s1);

 //Определяем текущую дату

В d=new Date();

В ss+=DateToStr(d);

В ss+=" "+TimeToStr(d);

 //Записываем сформированную строку в log-файл

В FLog.WriteLine(ss);

}

Записываемая в log-файл строка формируется в нужном виде с помощью вспомогательных функций LFillStr (выравнивание строки влево в поле заданной длины), DateToStr (формирование из объекта Date строки формата ДД/ММ/ГГГГ) и TimeTostr (формирование из объекта Date строки формата ЧЧ:ММ).

В функции MoveFiles(), как и в WriteLog(), производится перебор в цикле while файлов каталога-источника (элементов коллекции Files). Перемещение файлов осуществляется с помощью последовательного применения методов Copy и Delete:

Files.moveFirst();

//Цикл по всем файлам в коллекции

while (!Files.atEnd()) {

В //Рзвлекаем текущий файл РёР· коллекции

В File=Files.item();

 //Выделяем расширение файла

В s=FSO.GetExtensionName(File.Name);

 //Проверяем, совпадает ли расширение текущего файла

 //с расширением файлов для перемещения

В if (s==Mask) {

  //Выводим имя файла на экран

В  WScript.Echo("В  "+File.name);

  //Копируем файл в целевой каталог

В  File.Copy(Dest);

  //Удаляем файл

В  File.Delete();

  //Увеличиваем счетчик количества перемещенных файлов

В  Col++;

В }

 //Переходим к следующему файлу в коллекции

В Files.moveNext();

}

После перемещения всех файлов на экран выводится информация об их количестве:

WScript.Echo("Перемещено файлов:", Col);

WScript.Echo("Нажмите Enter...");

WScript.StdIn.ReadLine();

Полный текст сценария MoveLog.js приведен в листинге 5.19.

Листинг 5.19. Поиск файлов с ведением log-файла

/*******************************************************************/

/* РРјСЏ: MoveLog.jsВ В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В  */

/* Язык: JScript                                                   */

/* Описание: Перемещение файлов из каталога-источника в            */

/*           целевой каталог с ведением log-файла                  */

/*******************************************************************/

//Объявляем переменные

var

 Source="C:\\In\\", //Путь к каталогу-источнику файлов для перемещения

 Dest="C:\\Out\\",  //Путь к целевому каталогу

 Mask="003",        //Расширение файлов для перемещения

 PathLog="C:\\In\\log.txt",   //Путь к log-файлу

 ForAppending=8;    //Константа для работы с файлами

//Объявляем переменные

var FSO,Fold,Files;

//Функция для записи информации в log-файл

function WriteLog() {

//Объявляем переменные

var s,ss,s1,d,File,FLog;

В WScript.Echo("");

 WScript.Echo("Записываем информацию в log-файл...");

 //Открываем log-файл для добавления

В FLog=FSO.OpenTextFile(PathLog,ForAppending,true);

 //Переходим к первому элементу коллекции файлов

В Files.moveFirst();

 //Цикл по всем файлам в коллекции

В while (!Files.atEnd()) {

В  //Рзвлекаем текущий файл РёР· коллекции

В  File=Files.item();

  //Выделяем расширение файла

В  s=FSO.GetExtensionName(File.Name);

  //Проверяем, совпадает ли расширение текущего файла

  //с расширением файлов для перемещения

В  if (s==Mask) {

   //Выводим имя файла на экран

В В  WScript.Echo("В  "+File.Name);

   //Определяем дату создания файла

В В  d=new Date(File.DateCreated);

   //Формируем строку ss для записи в log-файл

В В  ss=LFillStr(13,File.Name)

В В  s1="("+DateToStr(d)+" ";

В В  s1+=TimeToStr(d)+")";

В В  ss+=LFillStr(20,s1);

   //Определяем текущую дату

В В  d=new Date();

В В  ss+=DateToStr(d);

В В  ss+=" "+TimeToStr(d);