Андрей Попов - 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-файлами и создания СОМ-объектов. Особое внимание уделяется вопросам безопасности при работе со сценариями, приводятся конкретные примеры настроек политик безопасности. К книге прилагается дискета с исходными текстами большинства примеров.

---

WshNetwork = WScript.CreateObject("WScript.Network");

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

Для того чтобы подключить сетевой диск к устройству K:, нужно быть уверенным, что с этой буквой уже не связан сетевой диск (иначе произойдет ошибка). Поэтому предварительно отключается сетевой диск с помощью метода RemoveNetworkDrive:

WshNetwork.RemoveNetworkDrive(Drive);

(переменной Drive заранее было присвоено значение "K:"). При выполнении этой команды может произойти ошибка времени выполнения (например, диск K: не существует или возникла ошибка при отключении связанного с ним сетевого ресурса), поэтому вызов метода RemoveNetworkDrive помещается внутрь блока try конструкции try…catch языка JScript, которая позволяет обрабатывать такие ошибки:

try {

 //Отключаем сетевой диск

В WshNetwork.RemoveNetworkDrive(Drive);

} catch (e) { //Обрабатываем возможные ошибки

if (Рµ.number != 0) {

 //Выводим сообщение об ошибке

В IsError=true;

 Mess="Ошибка при отключении диска "+Drive + "\nКод ошибки: "+

  е.number+"\nОписание: " + е.description;

 WshShell.Popup(Mess, 0, "Отключение сетевого диска", vbCritical);

В }

}

Теперь в случае возникновения ошибки при работе метода RemoveNetworkDrive управление передастся внутрь блока catch, а в полях переменной-объекта е будет содержаться информация о произошедшей ошибке (е.number — числовой код ошибки, е.description — краткое описание ошибки); эта информация отображается в диалоговом окне (рис. 2.23).

Р РёСЃ. 2.23. Рнформация РѕР± ошибке, произошедшей РїСЂРё отключении РґРёСЃРєР° K:

Если же отключение диска K: прошло успешно, на экран выводится диалоговое окно с информацией об этом (рис. 2.24):

if (!IsError) { //Р’СЃРµ РІ РїРѕСЂСЏРґРєРµ

 Mess="Диск "+Drive+" отключен успешно";

 WshShell.Popup(Mess, 0, "Отключение сетевого диска", vbInformation);

}

Р РёСЃ. 2.24. Рнформация РѕР± успешном отключении РґРёСЃРєР° K:

Аналогичный блок try…catch используется и при подключении сетевого диска:

try {

 //Подключаем сетевой диск

В WshNetwork.MapNetworkDrive(Drive, NetPath);

} catch (e) {

 //Обрабатываем возможные ошибки

В if (e != 0) {

  //Выводим сообщение об ошибке

В В IsError=true;

  Mess="Ошибка при подключении диска " + Drive + " к " + NetPath+

   "\nКод ошибки: "+е.number + "\nОписание: "+е.description;

   WshShell.Popup(Mess, 0, "Подключение сетевого диска", vbCritical);

Если, например, пользователь, который подключает сетевой диск, не имеет соответствующих прав доступа к сетевому ресурсу, то на экран выведется диалоговое окно, изображенное на рис. 2.25.

Р РёСЃ. 2.25. Рнформация РѕР± ошибке, произошедшей РїСЂРё подключении РґРёСЃРєР° K:

Освобождение локального порта (метод RemovePrinterConnection), подключение сетевого принтера к этому порту (метод AddPrinterConnection) и обработка ошибок времени выполнения, которые могут возникнуть при этих действиях, производится в сценарии аналогичным образом.

Листинг 2.50. Отключение и подключение сетевых ресурсов (JScript)

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

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

/* Язык: JScript                                                    */

/* Описание: Отключение и подключение сетевых дисков и принтеров    */

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

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

var WshNetwork,WshShell,Drive,NetPath,Port,NetPrinter,Mess,IsError;

//Рнициализируем константы для диалоговых РѕРєРѕРЅ

var vbCritical=16,vbInformation=64;

Drive="K:";      //Буква диска

//NetPath="\\\\RS_NT_Server\\d";  //Сетевой путь для подключения диска

NetPath="\\\\RS_NT_Server\\d";  //Сетевой путь для подключения диска

Port="LPT1";   //Название локального порта

//Сетевой путь для подключения принтера

NetPrinter="\\\\104_Stepankova\\HP";

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

WshNetwork = WScript.CreateObject("WScript.Network");

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

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

/*************  Отключение сетевого диска  ***********************/

IsError=false;

try {

 //Отключаем сетевой диск

В WshNetwork.RemoveNetworkDrive(Drive);

} catch (e) {  //Обрабатываем возможные ошибки

В if (e != 0) {

  //Выводим сообщение об ошибке

В  IsError=true;

  Mess="Ошибка при отключении диска "+Drive+"\nКод ошибки: "+

   e.number+"\nОписание: "+e.description;

  WshShell.Popup(Mess,0,"Отключение сетевого диска",vbCritical);

В }

}

if (!IsError)В {

В //Р’СЃРµ РІ РїРѕСЂСЏРґРєРµ

 Mess="Диск "+Drive+" отключен успешно";

 WshShell.Popup(Mess,0,"Отключение сетевого диска",vbInformation);

}

/*************  Подключение сетевого диска  ***********************/

IsError=false;

try {

 //Подключаем сетевой диск

В WshNetwork.MapNetworkDrive(Drive,NetPath);

} catch (e) { //Обрабатываем возможные ошибки

В if (e != 0) {

  //Выводим сообщение об ошибке

В  IsError=true;

  Mess="Ошибка при подключении диска " + Drive + " к " + NetPath+

   "\nКод ошибки: "+e.number+"\nОписание: "+e.description;

  WshShell.Popup(Mess,0,"Подключение сетевого диска",vbCritical);

В }

}

if (!IsError)В {

В //Р’СЃРµ РІ РїРѕСЂСЏРґРєРµ

 Mess="Диск "+Drive+" успешно подключен к "+NetPath;

 WshShell.Popup(Mess,0,"Подключение сетевого диска",vbInformation);

}

/*************  Освобождение локального порта  ***********************/

IsError=false;

try {