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

---

В листингах 2.48 и 2.49 приведены сценарии на языках JScript и VBScript соответственно, в которых на экран выводятся диалоговые окна, содержащие информацию о сетевых дисках и сетевых принтерах, подключенных к рабочей станции (рис. 2.22).

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

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

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

/* РРјСЏ: 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); //Выводим сформированные строки на экран

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

Листинг 2.49. Вывод списка подключенных сетевых ресурсов (VBScript)

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

' РРјСЏ: 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);