Тема: VBS: изменение разрешения для папки с удалением наследования
День добрый.
Есть скрипт, который создает на файл-сервере каталог с именем учетной записи и примапливает диск 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