Найти: на

Внимание! Сайт переехал на http://бизнесплюспермь.рф

Внимание! Сайт переехал на http://бизнесплюспермь.рф

Примеры использования объекта WshNetwork в 1С

Объект WshNetwork обеспечивает доступ к общим ресурсам сети, с которой связан ваш компьютер. С его помощью можно подключать/отключать сетевые диски и принтеры; устанавливать принтеры по умолчанию; получать параметры текущего сетевого подключения.


WshNetwork = Новый COMОбъект("WScript.Network");
Сообщить("Имя компьютера: " + WshNetwork.ComputerName);
Сообщить("Имя домена: " + WshNetwork.UserDomain);
Сообщить("Имя пользователя: " + WshNetwork.UserName);

NetworkDrives = WshNetwork.EnumNetworkDrives();
Для Сч = 0 По NetworkDrives.length - 1 Цикл
	Сообщить("Подключен сетевой диск " + NetworkDrives.Item(сч) + " [" + NetworkDrives.Item(сч + 1) + "]");
	сч = сч + 1;
КонецЦикла;

NetworkPrinters = WshNetwork.EnumPrinterConnections();
Для Сч = 0 По NetworkPrinters.length - 1 Цикл
	Сообщить("Подключен сетевой принтер " + NetworkPrinters.Item(сч) + " [" + NetworkPrinters.Item(сч + 1) + "]");
	сч = сч + 1;
КонецЦикла;

Свойства объекта WshNetwork

Свойство Описание
ComputerName Возвращает строку, содержащую сетевое имя компьютера.
UserDomain Возвращает имя домена текущего сеанса пользователя.
UserName Возвращает имя текущего пользователя.

Методы объекта WshNetwork

Метод Описание
AddWindowsPrinterConnection(<ПутьДоПринтера>, <ИмяДрайвера>, <ПортПодключения>) Подключает сетевой Widows-принтер к данному компьютеру. Если такой принтер уже существует в системе, то подклчения не происходит. При использовании в Windows 9x/Me драйвер уже должен быть установлен в системе, иначе вызов метода вернет ошибку.
Параметры:
<ПутьДоПринтера> - строка,содержащая путь до сетевого принтера.
<ИмяДрайвера> - имя драйвера. Используется для Windows 9x/Me. Под Windows NT/2000 игнорируется.
<ПортПодключения> - строка, содержащая имя порта, куда подключаем принтер. Не обязателен. Используется для Windows 9x/Me. Под Windows NT/2000 игнорируется.
AddPrinterConnection(<ИмяПорта>, <ИмяПринтера>, <СохранятьВПрофиле>, <Пользователь>, <Пароль>) Подключает сетевой принтер к компьютеру для печати из под MS-DOS.
Параметры:
<Имя порта> - строка, содержащая имя порта подключения. Например ''LPT1''.
<ИмяПринтера> - строка, содержащая сетевой путь до принтера.
<СохранятьВПрофиле> - флаг сохранения данного подключения в профиле текущего пользователя. Значения: 0 - не сохранять; -1 - сохранять; Не обязателен. По умолчанию 0.
<Пользователь> - строка, содержащая имя пользователя (админинистратора) для подключения принтера. Не обязателен. По умолчанию используется имя текущего пользователя.
<Пароль> - строка, содержащая пароль пользователя для подключения принтера. Не обязателен. По умолчанию используется пароль текущего пользователя.
Примечание:
Для работы из-под Windows необходимо использовать метод AddWindowsPrinterConnection(). Для работы с 1С видимо не пригодится.
EnumNetworkDrives() Возвращает массив сетевых дисков. Элементы массива нумеруются с 0. В четных элементах массива содержаться локальные имена дисков, а в нечетных их UNC-имя. Этот массив в документации в отдельный объект не выделен. Работа с ним осуществляется с помощью таких же методов и свойств, как у объекта WshEnvironment.
Примечание:
Данный список формируется Windows по очень странным правилам. Например, если есть открытые окна проводника с сетевыми папками, данный метод также возвращает и их, но с пустым именем диска. Или если была попытка попасть в сетевой ресурс, но не хватило прав доступа. При работе это надо учитывать. Проверялось на Windows XP.
EnumPrinterConnections() Возвращает массив сетевых принтеров. Элементы массива нумеруются с 0. В четных элементах массива содержаться имена портов подключения, а в нечетных UNC-имя принтера. Этот массив в документации в отдельный объект не выделен. Работа с ним осуществляется с помощью таких же методов и свойств, как у объекта WshEnvironment.
MapNetworkDrive(<ИмяДиска>, <СетевойПуть>, <СохранятьПодключение>, <ИмяПользователя>, <ПарольПользователя>) Подключает сетевой диск к компьютеру.
Параметры:
<ИмяДиска> - локальное имя сетевого диска (буква) к которому подключаем сетевой ресурс.
<СетевойПуть> - строка, содержащая путь до сетевого ресурса.
<СохранятьПодключение> - флаг сохранения подключения в профиле локального пользователя. Значения: 0 - не сохранять; -1 - сохранять. Не обязателен. По умолчанию 0.
<ИмяПользователя> - строка, содержащая имя пользователя для подключения к сетевому ресурсу. Не обязателен. Используется только в случае необходимости подключения под другим пользователем.
<ПарольПользователя> - строка, содержащая пароль пользователя для подключения к сетевому ресурсу. Не обязателен. Используется только в случае необходимости подключения под другим пользователем.
Прмечание:
В случае попытки подключения несуществующего сетевого ресурса метод вызовет ошибку.
RemoveNetworkDrive(<ИмяДиска>, <ЗакрыватьПодключения>, <Сохранять>) Отключает сетевой диск
Параметры:
<ИмяДиска> - имя диска, который надо удалять. Обязательно указывать локальное имя диска, а не путь до сетевого ресурса.
<ЗакрыватьПодключения> - флаг, определяющий закрывать ли открытые файлы на отключаемом диске или нет. Значения: 0 - не отключать; -1 - отключать. Не обязателен. По умолчанию 0.
<Сохранять> - флаг, сохранения изменений в профиле пользователя.
Примечание:
В случае, если на сетевом диске есть открытые файлы или к нему есть обращение (например, открыто окно проводника на этот диск) и флаг <ЗакрыватьПодключение> равен 0, метод вызовет ошибку.
RemovePrinterConnection(<ИмяПринтера>, <ЗакрыватьПодключения>, <Сохранять>) Удаляет подключение к сетевому принтеру.
Параметры:
<ИмяПринтера> - имя принтера, который отключаем.
<ЗакрыватьПодключения> - флаг, определяющий удалять ли принтер, если к нему есть текущие подключения. Значения: 0 - не удалять; -1 - удалять. Не обязателен. По умолчанию 0.
<Сохранять> - флаг, определяющий сохранение изменений в профиле пользователя. Значения: 0 - не сохранять; -1 - сохранять. Не обязателен. По умолчанию 0.
Примечание:
1. В случае, если на принтер осуществляется печать и флаг <ЗакрыватьПодключение> установлен в 0, метод вызовет ошибку.
2. Данный метод удаляет как Windows-принтеры, так DOS-принтеры. В случае удаления принтера, подключенного с помощью AddPrinterConnection(), слеует в параметре <ИмяПринтера> указывать порт подключения принтера. В случае удаления принтера, подключенного с помощью AddWindowsPrinterConnection() или Панели задач, в параметре <ИмяПринтера> необходимо указывать UNC-имя (сетевой путь до принтера).
SetDefaultPrinter(<ПутьДоПринтера>) Устанавливает в системе принтер по умолчанию. Метод не применим к принтерам, подключенным с помощью метода AddPrinterConnection().
Параметры:
<ПутьДоПринтера> - строка, содержащая путь до сетевого принтера.


Внимание! Сайт переехал на http://бизнесплюспермь.рф


Hosted by uCoz