Thank you Be.St
I convert it to VB.net in order to avoid other users from going into the trouble of doing so.
This is the Class that i needed to add to my project
Public Class UserImpersonation
Const LOGON32_LOGON_INTERACTIVE = 2
Const LOGON32_LOGON_NETWORK = 3
Const LOGON32_LOGON_BATCH = 4
Const LOGON32_LOGON_SERVICE = 5
Const LOGON32_LOGON_UNLOCK = 7
Const LOGON32_LOGON_NETWORK_CLEARTEXT = 8
Const LOGON32_LOGON_NEW_CREDENTIALS = 9
Const LOGON32_PROVIDER_DEFAULT = 0
Const LOGON32_PROVIDER_WINNT35 = 1
Const LOGON32_PROVIDER_WINNT40 = 2
Const LOGON32_PROVIDER_WINNT50 = 3
Dim impersonationContext As WindowsImpersonationContext
Declare Function LogonUserA Lib "advapi32.dll" (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 Integer
Declare Auto Function DuplicateToken Lib "advapi32.dll" ( _
ByVal ExistingTokenHandle As IntPtr, _
ByVal ImpersonationLevel As Integer, _
ByRef DuplicateTokenHandle As IntPtr) As Integer
Declare Auto Function RevertToSelf Lib "advapi32.dll" () As Long
Declare Auto Function CloseHandle Lib "kernel32.dll" (ByVal handle As IntPtr) As Long
Public Function impersonateUser(ByVal userName As String, ByVal domain As String, ByVal password As String) As Boolean
Return impersonateValidUser(userName, domain, password)
End Function
Public Sub undoimpersonateUser()
undoImpersonation()
End Sub
Private Function impersonateValidUser(ByVal userName As String, ByVal domain As String, ByVal password As String) As Boolean
Dim tempWindowsIdentity As WindowsIdentity
Dim token As IntPtr = IntPtr.Zero
Dim tokenDuplicate As IntPtr = IntPtr.Zero
impersonateValidUser = False
If RevertToSelf() Then
If LogonUserA(userName, domain, password, LOGON32_LOGON_NEW_CREDENTIALS, LOGON32_PROVIDER_WINNT50, token) <> 0 Then
If DuplicateToken(token, 2, tokenDuplicate) <> 0 Then
tempWindowsIdentity = New WindowsIdentity(tokenDuplicate)
impersonationContext = tempWindowsIdentity.Impersonate()
If Not impersonationContext Is Nothing Then
impersonateValidUser = True
End If
End If
End If
End If
If Not tokenDuplicate.Equals(IntPtr.Zero) Then
CloseHandle(tokenDuplicate)
End If
If Not token.Equals(IntPtr.Zero) Then
CloseHandle(token)
End If
End Function
Private Sub undoImpersonation()
impersonationContext.Undo()
End Sub
End Class
then in my controler I use it as Be.St mentions
<Authorize()> _
Function SearchUrlNewDir() As String
Dim impersonateUser As New UserImpersonation
impersonateUser.impersonateUser("username", "", "password.")
Dim di As DirectoryInfo = New DirectoryInfo("\\10.11.11.172\remfolder")
'Dim subFiles() As FileInfo = di.GetFiles()
Dim subFolders() As DirectoryInfo = di.GetDirectories()
impersonateUser.undoimpersonateUser()
Return ""
End Function
This class can be used in order to access files or folders in remote machines via UNC,from asp.net to samba linux server that doesnt require the impersonator to be in the same domain with that server.
Many thanx