Пример:
Set WshNetwork = CreateObject("WScript.Network")
Синтаксис: ComputerName
Возвращаемое значение: строка, имя компьютера.
Замечание: только чтение.
Пример:
Set WshNetwork = CreateObject("WScript.Network") MsgBox WshNetwork.ComputerName
Синтаксис: UserName
Возвращаемое значение: строка, имя пользователя.
Замечание: только чтение.
Пример:
Set WshNetwork = CreateObject("WScript.Network") MsgBox WshNetwork.UserName
Возвращаемое значение: строка, имя домена.
Замечание: только чтение.
Пример:
Set WshNetwork = CreateObject("WScript.Network") MsgBox WshNetwork.UserDomain
Синтаксис: 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
Синтаксис: 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
Синтаксис: MapNetworkDrive(<LocalName>,<RemoteName>,<UpdateProfile>, <User>,<Password>)
Назначение: подключает сетевой диск.
Параметры:
Пример:
Set WshNetwork = CreateObject("WScript.Network") WshNetwork.MapNetworkDrive "Z:", "\\SERVER\Programs"
Синтаксис: RemoveNetworkDrive(<Name>,<Force>,<UpdateProfile>)
Назначение: отключает сетевой диск.
Параметры:
Пример:
Set WshNetwork = CreateObject("WScript.Network") WshNetwork.RemoveNetworkDrive "Z:"
Синтаксис: AddPrinterConnection(<LocalName>,<RemoteName>,<UpdateProfile>, <User>,<Password>)
Назначение: подключает сетевой принтер.
Параметры:
Пример:
Set WshNetwork = CreateObject("WScript.Network") WshNetwork.AddPrinterConnection "LPT1", "\\Server\Print1"
Синтаксис: AddWindowsPrinterConnection(<PrinterPath>,<DriverName>,<Port>)
Назначение: подключает сетевой принтер без явного указания локального порта.
Параметры:
Пример:
Set WshNetwork = CreateObject("WScript.Network") WshNetwork.AddWindowsPrinterConnection "\\Server\Print1"
Синтаксис: RemovePrinterConnection(<Name>,<Force>,<UpdateProfile>)
Назначение: отключает сетевой принтер.
Параметры:
Пример:
Set WshNetwork = CreateObject("WScript.Network") WshNetwork.RemovePrinterConnection "\\Server\Print1"
Синтаксис: SetDefaultPrinter(<Name>)
Назначение: делает сетевой принтер принтером по умолчанию.
Параметры: <Name> - строка, сетевое имя принтера.
Пример:
Set WshNetwork = CreateObject("WScript.Network") WshNetwork.SetDefaultPrinter "\\Server\Print1"