Объект WScript.Network

Статус
В этой теме нельзя размещать новые ответы.

Dragokas

Angry & Scary Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
7,814
Реакции
6,593
Объект WScript.Network
Источник
Составил: Людоговский Александр​
Содержание:
1. Создание объекта
2. Свойства
2.1. ComputerName
2.2. UserName
2.3. UserDomain​
3. Методы
3.1. EnumNetworkDrives
3.2. EnumPrinterConnections
3.3. MapNetworkDrive
3.4. RemoveNetworkDrive
3.5. AddPrinterConnection
3.6. AddWindowsPrinterConnection
3.7. RemovePrinterConnection
3.8. SetDefaultPrinter​
 
1. Создание объекта

Пример:
VB.NET / VBA:
Set WshNetwork = CreateObject("WScript.Network")

2. Свойства

2.1. ComputerName

Синтаксис:
Возвращаемое значение: строка, имя компьютера.
Замечание: только чтение.

Пример:
VB.NET / VBA:
Set WshNetwork = CreateObject("WScript.Network")
MsgBox WshNetwork.ComputerName

2.2. UserName

Синтаксис:
Возвращаемое значение: строка, имя пользователя.
Замечание: только чтение.
VB.NET / VBA:
Set WshNetwork = CreateObject("WScript.Network")
MsgBox WshNetwork.UserName

2.3. UserDomain

Синтаксис:
Возвращаемое значение: строка, имя домена.
Замечание: только чтение.

Пример:
VB.NET / VBA:
Set WshNetwork = CreateObject("WScript.Network")
MsgBox WshNetwork.UserDomain

3. Методы

3.1. EnumNetworkDrives

Синтаксис:
Назначение: возвращает коллекцию сетевых дисков. Нечётные элементы содержат UNC-пути сетевых дисков.

Параметры: нет.

Пример:
VB.NET / VBA:
Set WshNetwork = CreateObject("WScript.Network")
Set Drives = WshNetwork.EnumNetworkDrives
i = 0
While i <= Drives.Count-1
    MsgBox Drives.Item(i) & " - " & Drives.Item(i+1)
    i = i+2
Wend

3.2. EnumPrinterConnections

Синтаксис:
Назначение: возвращает коллекцию сетевых принтеров. Нечётные элементы содержат сетевые имена принтеров, чётные - названия локальных портов.

Параметры: нет.

Пример:
VB.NET / VBA:
Set WshNetwork = CreateObject("WScript.Network")
Set Printers = WshNetwork.EnumPrinterConnections
i = 0
While i <= Printers.Count-1
    MsgBox Printers.Item(i) & " - " & Printers.Item(i+1)
    i = i+2
Wend

3.3. MapNetworkDrive

Синтаксис:
MapNetworkDrive(<LocalName>,<RemoteName>,<UpdateProfile>, <User>,<Password>)
Назначение: подключает сетевой диск.

Параметры:
<LocalName> - строка, локальное имя диска.
<RemoteName> - строка, имя сетевого ресурса.
<UpdateProfile> - необязательный, число (булево). Если указано True, создаваемое сетевое подключение будет сохранено в профиле пользователя.
<User> - необязательный, строка. Имя пользователя, если сетевой диск подключается от пользователя, отличного от текущего.
<Password> - необязательный, строка. Пароль пользователя, если сетевой диск подключается от пользователя, отличного от текущего.

Пример:
VB.NET / VBA:
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "Z:", "\\SERVER\Programs"

3.4. RemoveNetworkDrive

Синтаксис:
RemoveNetworkDrive(<Name>,<Force>,<UpdateProfile>)
Назначение: отключает сетевой диск.

Параметры:
<Name> - строка, локальное имя диска (или сетевое имя, если ресурсу не сопоставлена никакая буква).
<Force> - необязательный, число (булево). Если указано True, отключение будет произведено вне зависимости от того, используется ресурс в настоящий момент или нет.
<UpdateProfile> - необязательный, число (булево). Если указано True, сетевое подключение будет удалено из профиля пользователя.

Пример:
VB.NET / VBA:
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.RemoveNetworkDrive "Z:"

3.5. AddPrinterConnection

Синтаксис:
AddPrinterConnection(<LocalName>,<RemoteName>,<UpdateProfile>, <User>,<Password>)
Назначение: подключает сетевой принтер.

Параметры:
<LocalName> - строка, локальное имя принтера.
<RemoteName> - строка, сетевое имя принтера.
<UpdateProfile> - необязательный, число (булево). Если указано True, подключение будет сохранено в профиле пользователя.
<User> - необязательный, строка. Имя пользователя, если сетевой принтер подключается от пользователя, отличного от текущего.
<Password> - необязательный, строка. Пароль пользователя, если сетевой принтер подключается от пользователя, отличного от текущего.

Пример:
VB.NET / VBA:
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddPrinterConnection "LPT1", "\\Server\Print1"

3.6. AddWindowsPrinterConnection

Синтаксис:
AddWindowsPrinterConnection(<PrinterPath>,<DriverName>,<Port>)
Назначение: подключает сетевой принтер без явного указания локального порта.

Параметры:
<PrinterPath> - строка, сетевое имя принтера.
<DriverName> - строка, имя уже установленного драйвера принтера. В Windows NT/2000/XP этот параметр игнорируется.
<Port> - необязательный, строка. Порт принтера (по умолчанию - "LPT1"). В Windows NT/2000/XP этот параметр игнорируется.

Пример:
VB.NET / VBA:
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\Server\Print1"

3.7. RemovePrinterConnection

Синтаксис:
RemovePrinterConnection(<Name>,<Force>,<UpdateProfile>)
Назначение: отключает сетевой принтер.

Параметры:
<Name> - строка, локальное имя принтера (порт), если сетевому ресурсу явно сопоставлен локальный порт. Иначе - сетевое имя принтера. Выбор зависит от того, каким образом осуществлялось подключение принтера.
<Force> - необязательный, число (булево). Если указано True, отключение будет произведено вне зависимости от того, используется ресурс в настоящий момент или нет. По умолчанию - False.
<UpdateProfile> - необязательный, число (булево). Если указано True, подключение будет удалено из профиля пользователя. По умолчанию - False.

Пример:
VB.NET / VBA:
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.RemovePrinterConnection "\\Server\Print1"

3.8. SetDefaultPrinter

Синтаксис:
Назначение: делает сетевой принтер принтером по умолчанию.

Параметры:
<Name> - строка, сетевое имя принтера.

Пример:
VB.NET / VBA:
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.SetDefaultPrinter "\\Server\Print1"
 
Статус
В этой теме нельзя размещать новые ответы.
Назад
Сверху Снизу