Объект WScript.Network

Тема в разделе "Изучение основ языка", создана пользователем Dragokas, 1 фев 2014.

Статус темы:
Закрыта.
  1. Dragokas
    Оффлайн

    Dragokas Very kind Developer Команда форума Супер-Модератор Разработчик Клуб переводчиков

    Сообщения:
    4.498
    Симпатии:
    4.312
    Объект 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​
     
  2. Dragokas
    Оффлайн

    Dragokas Very kind Developer Команда форума Супер-Модератор Разработчик Клуб переводчиков

    Сообщения:
    4.498
    Симпатии:
    4.312
    1. Создание объекта

    Пример:
    Код (vb.net):
    Set WshNetwork = CreateObject("WScript.Network")
    2. Свойства

    2.1. ComputerName

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

    Пример:
    Код (vb.net):
    Set WshNetwork = CreateObject("WScript.Network")
    MsgBox WshNetwork.ComputerName
    2.2. UserName

    Синтаксис:
    Возвращаемое значение: строка, имя пользователя.
    Замечание: только чтение.
    Код (vb.net):
    Set WshNetwork = CreateObject("WScript.Network")
    MsgBox WshNetwork.UserName
    2.3. UserDomain

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

    Пример:
    Код (vb.net):
    Set WshNetwork = CreateObject("WScript.Network")
    MsgBox WshNetwork.UserDomain
    3. Методы

    3.1. EnumNetworkDrives

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

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

    Пример:
    Код (vb.net):
    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

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

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

    Пример:
    Код (vb.net):
    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

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

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

    Пример:
    Код (vb.net):
    Set WshNetwork = CreateObject("WScript.Network")
    WshNetwork.MapNetworkDrive "Z:", "\\SERVER\Programs"
    3.4. RemoveNetworkDrive

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

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

    Пример:
    Код (vb.net):
    Set WshNetwork = CreateObject("WScript.Network")
    WshNetwork.RemoveNetworkDrive "Z:"
    3.5. AddPrinterConnection

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

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

    Пример:
    Код (vb.net):
    Set WshNetwork = CreateObject("WScript.Network")
    WshNetwork.AddPrinterConnection "LPT1", "\\Server\Print1"
    3.6. AddWindowsPrinterConnection

    Синтаксис:
    Назначение: подключает сетевой принтер без явного указания локального порта.

    Параметры:
    <PrinterPath> - строка, сетевое имя принтера.
    <DriverName> - строка, имя уже установленного драйвера принтера. В Windows NT/2000/XP этот параметр игнорируется.
    <Port> - необязательный, строка. Порт принтера (по умолчанию - "LPT1"). В Windows NT/2000/XP этот параметр игнорируется.

    Пример:
    Код (vb.net):
    Set WshNetwork = CreateObject("WScript.Network")
    WshNetwork.AddWindowsPrinterConnection "\\Server\Print1"
    3.7. RemovePrinterConnection

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

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

    Пример:
    Код (vb.net):
    Set WshNetwork = CreateObject("WScript.Network")
    WshNetwork.RemovePrinterConnection "\\Server\Print1"
    3.8. SetDefaultPrinter

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

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

    Пример:
    Код (vb.net):
    Set WshNetwork = CreateObject("WScript.Network")
    WshNetwork.SetDefaultPrinter "\\Server\Print1"
     
    Kиpилл нравится это.
Статус темы:
Закрыта.

Поделиться этой страницей