VB.Net SetAccessControl在重置權限時失敗

Question

我需要重置從我的ASP.Net Web窗體應用程序（這是一個傳統項目）創建的文件夾的權限。我可以創建文件夾，但是當我嘗試重置剛剛創建的文件夾的權限時，出現錯誤「嘗試執行未經授權的操作。」

當我創建安全規則，我用這個代碼：

securityRules.AddAccessRule(New FileSystemAccessRule("DOMAIN\User Group", FileSystemRights.FullControl, InheritanceFlags.None, PropagationFlags.InheritOnly, AccessControlType.Allow)) 

它封裝了一個名爲GetSecurity（PROJ作爲項目）函數中返回一個DirectorySecurity對象。

我的失敗代碼如下。 I f的第一部分工作正常，但Else部分失敗。

Dim projectPath = fullPath + "\" + finalFolder 
If Not My.Computer.FileSystem.DirectoryExists(projectPath) Then 
    Dim directoryProperties As System.IO.DirectoryInfo = 
    Directory.CreateDirectory(projectPath, GetSecurity(proj)) 
Else 
    Dim directoryProperties As System.IO.DirectoryInfo = New DirectoryInfo(projectPath) 
    directoryProperties.SetAccessControl(GetProposalSecurity(proj)) 
End If 

我一定要將自己添加到函數中的文件夾中，因爲它在本地機器上以IIS身份運行。我也是遠程服務器上文件夾的所有者。

Answer 1

我添加代碼來冒充自己else塊內。

https://nujakcities.wordpress.com/2011/08/01/use-vb-net-to-impersonate-a-domain-user/

它工作正常。這不是一個完美的解決方案，但是由於我用MVC應用程序替換了整個應用程序來做同樣的事情，所以我並不過分擔心。

katamarayudu，謝謝你的幫助。

Answer 2

也許最好的方法是將訪問規則添加到DirectoryInfo的DirectorySecurity對象（在你的情況directoryProperties）

，然後通過添加新的規則設置DirectorySecurity對象的目錄信息對象的SetAccessControl。

您else語句可能像如下所示..

Dim directoryProperties As System.IO.DirectoryInfo = New DirectoryInfo("C:\\sers\\xxxx\\") 
'Get a DirectorySecurity object that represents the current security settings. 
Dim dSecurity As DirectorySecurity = directoryProperties.GetAccessControl() 
'Add the FileSystemAccessRule to the security settings. 
dSecurity.AddAccessRule(New FileSystemAccessRule("DOMAIN\User Group", FileSystemRights.FullControl, AccessControlType.Allow)) 
'Set the new access settings. 
directoryProperties.SetAccessControl(dSecurity) 

查找到下面的文件太..

https://docs.microsoft.com/en-us/dotnet/api/system.io.directoryinfo.setaccesscontrol?view=netframework-4.7#System_IO_DirectoryInfo_SetAccessControl_System_Security_AccessControl_DirectorySecurity_