Подключение сетевых ресурсов политикой Organizational Unit

Lamer-1 · Отправлено: **10:11, 22-03-2007** | #9

Сам вопрос задал сам отвечу.

Код:

'======================================================================

Set objWshNetwork = CreateObject( "WScript.Network" ) 'Создание объекта WshNetwork

Function MapDrv(DrvLet, UNCPath) 'функция подключения сетевого диска
  
    Dim objFSO  
    Dim Drive
  
    Set objFSO = CreateObject("Scripting.FileSystemObject") 'Создание объекта FileSystemObject
 

    If objFSO.DriveExists(DrvLet) Then 
        objWshNetwork.RemoveNetworkDrive DrvLet,true, true 'происходит дисконнект диска Z
    End If 
 
 
 WScript.Sleep 100 'пауза

    objWshNetwork.MapNetworkDrive DrvLet, UNCPath  'Подсключение указанного диска с именем DrvLet и с сетевым путем UNCPath  

End Function


MapDrv "Z:", "\\Имя сервера\имя шары" 'Вызов функции маппирования с заданными параметрами

Подруга сделала

Теперь вопрос: "Могу я создать несколько скриптов с разными шарами и на каждый Organizational Unit привязать свой?"

Если такое возможно то расскажите пожалуйста по подробнее как.

С уважением, Lamer-1.