Visual Basic Script


Сетевые диски



     5.2. Сетевые диски

        Для работы с сетевыми дисками Windows Script Host предоставляет несколько методов, которые позволяют получать сведения о подключенных сетевых дисках, подключать сетевые диски и отключаться от них.

        EnumNetworkDrives - возвращает список подключенных сетевых дисков.

         Синтаксис:

         objDrives = object.EnumNetworkDrive

         где

         object - объект WshNetwork

         objDrives - переменная, которой присваивается ссылка на коллекцию сетевых дисков

         VBScript:

    Dim WshNetwork, Drives
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Set Drives = WshNetwork.EnumNetworkDrives
    WScript.Echo "Подключены сетевые диски: "
    For i = 0 to Drives.Count - 1 Step 2
    WScript.Echo "Диски " & Drives.Item(i) & " = " & Drives.Item(i+1)
    Next
 

         JScript:

         var WshNetwork = new ActiveXObject("WScript.Network");
    var Drives = WshNetwork.EnumNetworkDrives();
    WScript.Echo("Подключены сетевые диски: ");
    for(i=0; i<Drives.Count(); i+=2)


    {
    WScript.Echo("Drive " + Drives.Item(i) + " = " + Drives.Item(i+1));
    }
 
 
         MapNetworkDrive - назначает заданную букву сетевому диску.

         Синтаксис:

         WshNetwork.MapNetworkDrive strLocalName, strRemoteName, [bUpdateProfile], [strUser], [strPassword]

         где

         strLocalName - назначаемая буква сетевого диска

         strRemoteName - удаленное имя

         Необязательные параметры:

         bUpdateProfile - логическая величина определяющая сохранять ли сделанную настройку в пользовательской конфигурации.

         strUser, strPassword - вы можете указать имя и пароль для доступа к диску.
 

         VBScript:

    'создаем объект WshNetwork:
    Set WshNetwork = CreateObject("WScript.Network")

    'назначаем сетевой ресурс Server\PublicFiles как сетевой диск Z:
    WshNetwork.MapNetworkDrive "Z:", "\\Server\PublicFiles"
 

         JScript:

    //создаем объект WshNetwork:
    var WshNetwork = new ActiveXObject("WScript.Network");

    //назначаем сетевой ресурс Server\PublicFiles как сетевой диск Z:
    WshNetwork.MapNetworkDrive("Z:", "\\Server\PublicFiles");
 
 

         RemoveNetworkDrive - отключает сетевой диск

         Синтаксис:

         WshNetwork.RemoveNetworkDrive strName, [bForce], [bUpdateProfile]



         где:

         strName - имя диска

         Необязательные параметры:

         bForce - логический параметр. Если принимает значение true, то сетевой диск отключается, даже если он в настоящий момент используется данным компьютером.
 
         bUpdateProfile - логический параметр, указывающий, сохранить ли сделанную настройку в пользовательском профиле.

         VBScript:

    'создаем объект WshNetwork:
    Set WshNetwork = WScript.CreateObject("WScript.Network")

    'подключаем сетевой диск Z:
    WshNetwork.MapNetworkDrive "Z:", "\\Server\PublicFiles"

    'отключаем сетевой диск Z:
    WshNetwork.RemoveNetworkDrive "Z:"
 

         JScript:

     //создаем объект WshNetwork:
    var WshNetwork = new ActiveXObject("WScript.Network");

    //подключаем сетевой диск Z:
    WshNetwork.MapNetworkDrive("Z:", "\\Server\PublicFiles");

    //отключаем сетевой диск Z:
    WshNetwork.RemoveNetworkDrive("Z:");
 
 
 

Назад по тексту | Содержание | Вперед по тексту



О проекте | История | E-mail

Copyright (C) 2000 - 2001 Alex Neverov

#bn { DISPLAY: block } #bt { DISPLAY: block }


Содержание раздела