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

Рис. 2.22.Выводимая сценарием ListNetworkResources.js информация о подключенных сетевых ресурсах

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

/* Имя: ListNetworkResources.js */

/* Язык: JScript */

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

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

var WshNetwork,s,NetwDrives,i,NetwPrinters; //Объявляем переменные

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

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

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

s="Подключенные сетевые диски:\n\n";

//Создаем коллекцию с данными о подключенных дисках

NetwDrives = WshNetwork.EnumNetworkDrives();

i=0;

while (i<=NetwDrives.Count()-2) { //Перебираем элементы коллекции

//В первом элементе коллекции содержится буква диска,

//во втором - сетевое имя ресурса и т.д.

s+=NetwDrives(i)+" "+NetwDrives(i+1)+"\n";

i=i+2;

}

WScript.Echo(s); //Выводим сформированные строки на экран

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

s="Подключенные сетевые принтеры:\n\n";

//Создаем коллекцию с данными о подключенных принтерах

NetwPrinters = WshNetwork.EnumPrinterConnections();

i=0;

while (i<=NetwPrinters.Count()-2) { //Перебираем элементы коллекции

//В первом элементе коллекции содержится названия локальных портов,

//во втором - сетевое имя принтера и т.д.

s+=NetwPrinters(i)+" "+NetwPrinters(i+1)+"\n";

i=i+2;

}

WScript.Echo(s); //Выводим сформированные строки на экран

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

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

' Имя: ListNetworkResources.vbs

' Язык: JScript

' Описание: Вывод подключенных сетевых ресурсов (диски и принтеры)

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

Option Explicit

Dim WshNetwork,s,NetwDrives,i,NetwPrinters ' Объявляем переменные

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

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

'******** Вывод списка всех подключенных сетевых дисков *********

s="Подключенные сетевые диски:" & vbCrLf & vbCrLf

' Создаем коллекцию с данными о подключенных дисках

Set NetwDrives = WshNetwork.EnumNetworkDrives()

i=0

While i<=NetwDrives.Count()-2 ' Перебираем элементы коллекции

' В первом элементе коллекции содержится буква диска,

' во втором - сетевое имя ресурса и т.д.

s=s & NetwDrives.Item(i) & " " & NetwDrives.Item(i+1) & vbCrLf

i=i+2

Wend

WScript.Echo s ' Выводим сформированные строки на экран

'******** Вывод списка всех подключенных сетевых принтеров *******

s="Подключенные сетевые принтеры:" & vbCrLf & vbCrLf

' Создаем коллекцию с данными о подключенных принтерах

Set NetwPrinters = WshNetwork.EnumPrinterConnections()

i=0

While i<=NetwPrinters.Count()-2 ' Перебираем элементы коллекции

' В первом элементе коллекции содержится названия локальных портов,

' во втором - сетевое имя принтера и т.д.

s=s & NetwPrinters.Item(i) & " " & NetwPrinters.Item(i+1) & vbCrLf

i=i+2

Wend

WScript.Echo s 'Выводим сформированные строки на экран

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

Имеющиеся в локальной сети общедоступные ресурсы (диски и принтеры) можно посредством сценария подключить к рабочей станции для совместного использования. Подключаемому сетевому диску при этом нужно поставить в соответствие незанятую букву локального диска (например, если в системе уже имеются диски С:, D: и Е: (локальные или сетевые), то сетевой диск можно подключить под буквой F: или K:, но не Е:). В случае подключения сетевого принтера можно либо напрямую соединиться с этим принтером (для печати из приложений Windows), либо поставить в соответствие удаленному принтеру локальный порт (для печати из старых приложений MS-DOS).

Сетевые диски и принтеры также можно подключить с помощью Проводника Windows или выполнив соответствующую команду NET USE.

В качестве примера рассмотрим JScript-сценарий MapResources.js (листинг 2.50), в котором производится подключение диска K: к сетевому ресурсу \\RS_NT_Server\d и установка связи локального порта LPT1 с сетевым принтером \\104_Stepankova\HP.

Сначала нужно создать экземпляры объектов WshNetwork и WshShell:

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).