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

Для примера рассмотрим сценарий RemoteShortcut.js (листинг 2.52), который создает ярлык в специальной папке AllUserDesktop (рабочий стол для всех пользователей). Предположим, что этот сценарий находится в корневом каталоге диска D:, а запустить сценарий необходимо на компьютере \\Stand.

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

/* Имя: RemoteShortcut.js */

/* Описание: Создание ярлыка на рабочем столе */

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

var WshShell,MyShortcut,PathTarg,PathShortcut;

//Создаем объект WshShell

WshShell = WScript.CreateObject("WScript.Shell");

//Определяем путь к папке "AllUsersDesktop" (рабочий стол

//всех пользователей)

PathShortcut = WshShell.SpecialFolders("AllUsersDesktop");

//Создаем объект-ярлык

MyShortcut = WshShell.CreateShortcut(PathShortcut+ "\\From Remote WSH.lnk");

//Устанавливаем путь к файлу

PathTarg=WshShell.ExpandEnvironmentStrings("%windir%\\notepad.exe");

MyShortcut.TargetPath = PathTarg;

MyShortcut.Save(); //Сохраняем ярлык

/************* Конец *********************************************/

Для запуска сценария RemoteShortcut.js на удаленном компьютере \\Stand нужно создать другой сценарий RunRemoteScript.js (листинг 2.53). Здесь вначале создается объект WshController:

Controller = WScript.CreateObject("WshController");

Затем мы получаем ссылку на экземпляр объекта WshRemoteна машине \\Stand, соответствующий сценарию с текстом, взятым из файла D:\RemoteScript.js:

RemScript = Controller.CreateScript("D:\\RemoteScript.js", "stand");

Запускается удаленный сценарий с помощью метода Execute:

RemScript.Execute();

После этого нужно дождаться окончания работы сценария на удаленной машине, что делается путем контроля в цикле whileсвойства Statusобъекта WshRemote(значение свойства status, равное 2, говорит о том, что выполнение удаленного сценария завершено):

while (RemScript.Status != 2)

//Цикл выполняется до завершения удаленного сценария

WScript.Sleep(100); //Приостанавливаем сценарий на 0,1 сек

Метод Sleepобъекта WScriptвызывается в цикле для того, чтобы освободить процессор во время ожидания завершения удаленного сценария (листинг 2.53).

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

/* Имя: RunRemoteScript.js */

/* Язык: JScript */

/* Описание: Запуск удаленного сценария */

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

var Controller, RemScript; //Объявляем переменные

//Создаем объект WshController

Controller = WScript.CreateObject("WshController");

//Создаем сценарий на удаленной машине (объект WshRemote)

RemScript = Controller.CreateScript("D:\\RemoteScript.js", "stand");

RemScript.Execute(); //Запускаем удаленный сценарий

WScript.Echo("Удаленный сценарий запущен");

while (RemScript.Status != 2)

//Цикл выполняется до завершения удаленного сценария

WScript.Sleep(100); //Приостанавливаем сценарий на 0,1 сек

WScript.Echo("Выполнение удаленного сценария завершено");

/************* Конец *********************************************/

В листинге 2.54 приведен аналог сценария RunRemoteScript.js на языке VBScript.

'********************************************************************

' Имя: RunRemoteScript.vbs

' Язык: VBScript

' Описание: Запуск удаленного сценария

'********************************************************************

Option Explicit

Dim Controller, RemScript ' Объявляем переменные

' Создаем объект WshController

Set Controller = WScript.CreateObject("WshController")

' Создаем сценарий на удаленной машине (объект WshRemote)

Set RemScript = Controller.CreateScript("D:\\RemoteScript.js", "stand")

RemScript.Execute ' Запускаем удаленный сценарий

WScript.Echo "Удаленный сценарий запущен"

While RemScript.Status <> 2

' Цикл выполняется до завершения удаленного сценария

WScript.Sleep 100 ' Приостанавливаем сценарий на 0,1 сек

Wend

WScript.Echo "Выполнение удаленного сценария завершено"

'************* Конец *********************************************

Контролировать ход выполнения удаленных сценариев можно не только путем анализа свойства Status, но и с помощью обработки событий Start(запуск сценария), Error(ошибка при выполнении сценария) и End(завершение работы сценария) объекта WshRemote; соответствующие примеры сценариев на языках JScript и VBScript приведены в листингах 2.55 и 2.56.

Напомним, что для обработки событий объекта нужно в сценарии сначала создать экземпляр этого объекта, а затем соединиться с ним при помощи метода ConnectObject, указав нужный префикс для функций-обработчиков:

Controller = WScript.CreateObject("WshController");

RemScript = Controller.CreateScript("D:\\RemoteScript.js ", "stand");

WScript.ConnectObject(RemScript, "RemoteScript_");

Затем в тексте сценария описываются функции RemoteScript_Start, RemoteScript_Errorи RemoteScript_End, управление в которые будет передаваться при наступлении соответствующих событий.

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

/* Имя: RemoteEvents.js */

/* Язык: JScript */

/* Описание: Обработка событий, возникающих при выполнении удаленного */

/* сценария */

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

var Controller,RemScript,IsQuit; //Объявляем переменные

//Создаем объект WshController

Controller = WScript.CreateObject("WshController");

//Создаем сценарий на удаленной машине (объект WshRemote)

RemScript = Controller.CreateScript("D:\\RemoteScript.js ", "stand");

//Устанавливаем соединение с объектом WshRemote

WScript.ConnectObject(RemScript, "RemoteScript_");

RemScript.Execute(); //Запускаем удаленный сценарий

IsQuit = false;

while (!IsQuit) WScript.Sleep(100); //Приостанавливаем сценарий на 0,1 сек

WScript.Quit(); //Выходим из сценария

/*************** Функции-обработчики событий ***********************/

function RemoteScript_End() { //Событие End

WScript.Echo("Выполнение удаленного сценария завершено");

IsQuit = true;

}

function RemoteScript_Error() { //Событие Error

//Выводим на экран описание возникшей ошибки