Серый форум — VBS: изменение разрешения для папки с удалением наследования

Re: VBS: изменение разрешения для папки с удалением наследования

2010-11-13T11:21:43Z

благодарю за совет задачу решил

Re: VBS: изменение разрешения для папки с удалением наследования

2010-11-12T14:17:11Z

AmigoSSS пишет:

... чтобы к этой папке был изменен доступ только для этого пользователя, а все остальные унаследованные пользователи были удалены.

Загляните в коллекцию, в тему "VBS+WMI: безопасность NTFS для каталога, DACL (чтение, изменение)", из сценариев 1 и 3 "состряпайте" нужный код и вставьте его в Ваш сценарий сразу после оператора
WshNetwork.MapNetworkDrive "U:", sDir & "\" & sCurrUsrPath, True

VBS: изменение разрешения для папки с удалением наследования

2010-11-12T10:34:34Z

День добрый.

Есть скрипт, который создает на файл-сервере каталог с именем учетной записи и примапливает диск U к этой папке.
Помогите, пожалуйста, доработать, чтобы к этой папке был изменен доступ только для этого пользователя, а все остальные унаследованные пользователи были удалены.

' создание каталога с именем пользователя на сервере                                
Set objFSO = CreateObject("Scripting.FileSystemObject")

res = checkRW(objFSO, "\\msksrvfsv1\Users")

Set objFSO = Nothing

Function checkRW(objFSO, sDir)
    If objFSO.FolderExists(sDir) Then
            If not objFSO.FolderExists(sDir & "\" & sCurrUsrPath) then
                objFSO.CreateFolder(sDir & "\" & sCurrUsrPath)                
            end if    
    '=====================================================
    ' Примапливание диска U в соответствии с учетной записью

    Set WshNetwork = WScript.CreateObject("WScript.Network")
    WshNetwork.RemoveNetworkDrive "U:", true, true
    WshNetwork.MapNetworkDrive "U:", sDir & "\" & sCurrUsrPath, True
    '======================================================
    Else
        MsgBox sDir & ": not exist"    
    end if        
end function