1. Skip to Menu
  2. Skip to Content
  3. Skip to Footer

Наследование файлами разрешений от родительской папки (скрипт)

 
Данный скрипт "шерстит" указанную папку, а так же её вложенные подпапки, и для каждого файла устанавливает наследование разрешений от его родительской папки.
В коде скрипта отредактируйте значение, выделенные красным шрифтом.
 
------------------------------------------------------------- начало кода ------------------------------------------------------------------
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TF = FSO.CreateTextFile("C:\logfile.txt", True)
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "D:\FolderPath"
Set objShell = WScript.CreateObject("WScript.Shell")
 Set objFolder = objFSO.GetFolder(objStartFolder)
TF.Write objFolder.Path
TF.Write vbCrLf
 
Set colFiles = objFolder.Files
For Each objFile in colFiles
    TF.Write "   " & objFile.Name
    objShell.Run "icacls """ & objFolder.Path &"\"& objFile.Name &""" /reset /t", WindowStyle_Hidden
    TF.Write vbCrLf
 
Next
 
ShowSubfolders objFSO.GetFolder(objStartFolder)
 
Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        TF.Write Subfolder.Path
        TF.Write vbCrLf
 
        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        Set colFiles = objFolder.Files
        For Each objFile in colFiles
            TF.Write "   " & objFile.Name
            objShell.Run "icacls """ & objFolder.Path &"\"& objFile.Name &""" /reset /t", WindowStyle_Hidden
            TF.Write vbCrLf
 
        Next
       ShowSubFolders Subfolder
    Next
End Sub
 
------------------------------------------------------------- конец кода ------------------------------------------------------------------
 

Добавить комментарий