0
幫助!這段代碼有什麼問題?我有一個Windows窗體應用程序,我需要使用基於角色的安全來保護DLL;只有「MyRole」中的某個人才能打電話給此程序集。DLL上的基於角色的安全
我已經嘗試了兩種不同的方法來設置當前主體,但我得到的只是「請求主體權限失敗。」。
下面是一個小型控制檯應用程序,演示了這個問題。提前致謝!
Imports System.Security
Module Module1
Sub Main()
Try
AppDomain.CurrentDomain.SetPrincipalPolicy(Principal.PrincipalPolicy.WindowsPrincipal)
'Dim oCurrPrincipal As New Principal.WindowsPrincipal(Principal.WindowsIdentity.GetCurrent())
'Threading.Thread.CurrentPrincipal = oCurrPrincipal
Dim oWriter As New Writer
oWriter.WriteLog("It seems so simple, why doesn't it work?")
Catch ex As Exception
Console.WriteLine(ex.ToString)
Finally
Console.ReadLine()
End Try
End Sub
End Module
Imports System.Security.Permissions
Imports System.Security
<PrincipalPermission(SecurityAction.Demand, Role:="MyRole")> _
Public Class Writer
Public Overloads Sub WriteLog(ByVal sMessage As String)
Console.WriteLine(sMessage)
End Sub
End Class