+7 (4822) 75-00-45 +7 (920) 686-72-02

Windows Script Host - объект WshNetwork

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"

Мы в соц. сетях: