「$Recycle.Bin」フォルダーを除く、ローカル ディスク上のすべてのフォルダー、サブフォルダー、およびファイルに「読み取り」アクセス許可を設定する必要があります。これで、すべてのフォルダーに権限が配布されましたが、フォルダーの 1 つを削除するにはどうすればよいでしょうか?
これは私が試したことです：
Function SetSystemDriveRightsVBS( strUPN, strRights )
On Error Resume Next
Set objEnvLocal = WshShell.Environment("Process")
Set FSLocal = CreateObject("Scripting.FileSystemObject")
systemRootFolder = objEnvLocal("SystemRoot")
systemDriveFolder = objEnvLocal("SystemDrive") & "\.."
Set rootFolder = FSLocal.GetFolder(systemRootFolder)
Call Information("Setting Rights on: " & systemDriveFolder, 0)
stdComspec = "cacls """ ' переменная env C:\Windows\System32\cmd.exe
stdRights = """ /T /E /C /G " & strUPN & ":" & strRights
' Setting Permissions on SystemDrive, SystemRoot, SystemRoot\system32 folders and there contents, if Administrator has a permission
Call RunEnc( stdComspec & systemDriveFolder & stdRights, consoleCharset)
Call RunEnc( stdComspec & systemRootFolder & stdRights, consoleCharset)
Call RunEnc( stdComspec & systemRootFolder &"\System32" & stdRights, consoleCharset)
Call RunEnc( stdComspec & systemRootFolder &"\SysWOW64" & stdRights, consoleCharset)
stdRights = """ /T /E /C /G " & strUPN & ":" & strRights
' A very very long recursive filesystem permission set
'Call SetRightsOnFolderContent(systemDriveFolder,stdComspec,stdRights)
' Обработка ошибок скрипта
If Err <> 0 Then
Call GlobalInformation("Error setting rights on DiskDrive:" & Err.Number & " -- " & Err.Description)
Err.Clear
End If
End Function