Чтение онлайн

на главную - закладки

Жанры

Windows Script Host для Windows 2000/XP

Попов Андрей Викторович

Шрифт:

WScript.Echo s

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

Получение списка подключенных сетевых дисков и принтеров

У объекта

WshNetwork
имеются методы
EnumNetworkDrives
и
EnumPrinterConnections
, с помощью которых можно создать коллекции, содержащие, соответственно, сведения о всех подключенных к локальной станции сетевых дисках и сетевых
принтерах. Эти коллекции устроены следующим образом: первым элементом является буква диска или название порта, вторым — сетевое имя ресурса, с которым связан этот диск или принтер. Та же последовательность сохраняется для всех элементов коллекции.

В листингах 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 ' Перебираем элементы коллекции

Поделиться:
Популярные книги

Темная сторона души

Михалкова Елена Ивановна
2. Расследования Макара Илюшина и Сергея Бабкина
Детективы:
прочие детективы
9.33
рейтинг книги
Темная сторона души

Собрание пьес. Книга 1

Сологуб Фёдор Кузьмич
Драматургия:
драма
5.00
рейтинг книги
Собрание пьес. Книга 1

Swvswh40k

Кросскун / Krosskun
5.00
рейтинг книги
Swvswh40k

1115 вопросов священнику

раздел сайта Православие.Ru
Религия и эзотерика:
православие
христианство
религия
прочая религиозная литература
5.00
рейтинг книги
1115 вопросов священнику

Рыцарь Империи

Буревой Андрей
3. Одержимый
Фантастика:
фэнтези
9.39
рейтинг книги
Рыцарь Империи

Магия отступника

Хобб Робин
3. Сын солдата
Фантастика:
фэнтези
7.87
рейтинг книги
Магия отступника

Библия Раджниша. Том 1. Книга 1

Раджниш Бхагаван Шри
Религия и эзотерика:
самосовершенствование
эзотерика
7.00
рейтинг книги
Библия Раджниша. Том 1. Книга 1

Мадонна миндаля

Фьорато Марина
Любовные романы:
исторические любовные романы
5.50
рейтинг книги
Мадонна миндаля

Зеркало ее сновидений

Дональдсон Стивен Ридер
1. Нужды Морданта
Фантастика:
фэнтези
7.17
рейтинг книги
Зеркало ее сновидений

Каторга. Преступники

Дорошевич Влас Михайлович
1. Русская классика XX века
Проза:
русская классическая проза
6.25
рейтинг книги
Каторга. Преступники

Музыкант-2

Марченко Геннадий Борисович
5.00
рейтинг книги
Музыкант-2

"Кроваво-Красная" Армия. По чьей вине?

Бешанов Владимир Васильевич
Научно-образовательная:
история
6.67
рейтинг книги
Кроваво-Красная Армия. По чьей вине?

Судебные речи

Вышинский Андрей Януарьевич
Научно-образовательная:
политика
юриспруденция
5.00
рейтинг книги
Судебные речи

Годы странствий

Чулков Георгий Иванович
Документальная литература:
биографии и мемуары
6.25
рейтинг книги
Годы странствий