Объект WshNetwork

Содержание:

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. Создание объекта

Пример:

Set WshNetwork = CreateObject("WScript.Network")

2. Свойства

2.1. ComputerName

Синтаксис:

ComputerName

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

Замечание: только чтение.

Пример:

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

2.2. UserName

Синтаксис:

UserName

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

Замечание: только чтение.

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

2.3. UserDomain

Синтаксис:

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

Замечание: только чтение.

Пример:

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

3. Методы

3.1. EnumNetworkDrives

Синтаксис:

EnumNetworkDrives

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

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

Пример:

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

Синтаксис:

EnumPrinterConnections

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

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

Пример:

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> - необязательный, строка. Пароль пользователя, если сетевой диск подключается от пользователя, отличного от текущего.

Пример:

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "Z:", "\\SERVER\Programs"

3.4. RemoveNetworkDrive

Синтаксис:

RemoveNetworkDrive(<Name>,<Force>,<UpdateProfile>)

Назначение: отключает сетевой диск.

Параметры:

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

Пример:

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.RemoveNetworkDrive "Z:"

3.5. AddPrinterConnection

Синтаксис:

AddPrinterConnection(<LocalName>,<RemoteName>,<UpdateProfile>, <User>,<Password>)

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

Параметры:

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

Пример:

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 этот параметр игнорируется.

Пример:

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\Server\Print1"

3.7. RemovePrinterConnection

Синтаксис:

RemovePrinterConnection(<Name>,<Force>,<UpdateProfile>)

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

Параметры:

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

Пример:

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.RemovePrinterConnection "\\Server\Print1"

3.8. SetDefaultPrinter

Синтаксис:

SetDefaultPrinter(<Name>)

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

Параметры:

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

Пример:

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.SetDefaultPrinter "\\Server\Print1"

Составление - Людоговский Александр

Перейти на главную страничку сайта (список статей, файлы для скачивания)