1. Создание объекта
Пример:
Set WshNetwork = CreateObject("WScript.Network")
2. Свойства
2.1. ComputerName
Синтаксис:
Возвращаемое значение: строка, имя компьютера.
Замечание: только чтение.
Пример:
Set WshNetwork = CreateObject("WScript.Network")
MsgBox WshNetwork.ComputerName
2.2. UserName
Синтаксис:
Возвращаемое значение: строка, имя пользователя.
Замечание: только чтение.
Set WshNetwork = CreateObject("WScript.Network")
MsgBox WshNetwork.UserName
2.3. UserDomain
Синтаксис:
Возвращаемое значение: строка, имя домена.
Замечание: только чтение.
Пример:
Set WshNetwork = CreateObject("WScript.Network")
MsgBox WshNetwork.UserDomain
3. Методы
3.1. 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
Синтаксис:
Назначение: возвращает коллекцию сетевых принтеров. Нечётные элементы содержат сетевые имена принтеров, чётные - названия локальных портов.
Параметры: нет.
Пример:
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"