Объект WScript.Network

[Dragokas]

Объект 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​

 

[Dragokas]

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"