Web Parts, Impersonate and Security Policy
Part 2
Written by: Rickie Lee (rickieleemail at yahoo.com)
继续前面的posting《Web Parts, Impersonate and Security Policy, Part 1》，阐明如何解决SharePoint Web Parts开发过程中访问权限的问题。Part 1中以C#的示例代码演示了impersonate（角色扮演）的应用。
这里简单贴出VB.Net代码，方便使用VB.Net的CASE。
Protected Shared Function CreateIdentity(ByVal User As String, _
ByVal Domain As String, ByVal Password As String) As WindowsIdentity
Dim objToken As New IntPtr(0)
Dim ID As WindowsIdentity
Const LOGON32_PROVIDER_DEFAULT As Integer = 0
Const LOGON32_LOGON_NETWORK As Integer = 3
'Initialize token object
objToken = IntPtr.Zero
' Attempt to log on
Dim blnReturn As Boolean = LogonUser(User, Domain, Password, _
LOGON32_LOGON_NETWORK, LOGON32_PROVIDER_DEFAULT, objToken)
'Check for failure
If blnReturn = False Then
Dim intCode As Integer = Marshal.GetLastWin32Error()
Throw New Exception("Logon failed: " & intCode.ToString)
End If
'Return new token
ID = New WindowsIdentity(objToken)
CloseHandle(objToken)
Return ID
End Function
<DllImport("advapi32.dll", SetLastError:=True)> _
Private Shared Function LogonUser(ByVal lpszUsername As String, _
ByVal lpszDomain As String, _
ByVal lpszPassword As String, ByVal dwLogonType As Integer, _
ByVal dwLogonProvider As Integer, _
ByRef phToken As IntPtr) As Boolean
End Function
<DllImport("kernel32.dll", CharSet:=CharSet.Auto)> _
Private Shared Function CloseHandle(ByVal handle As IntPtr) As Boolean
End Function
***
未完，Part 3待续.
Reference:
1. Rickie Lee, Web Parts, Impersonate and Security Policy, Part 1, you can reach Rickie Lee at rickieleemail (at) yahoo.com.