Besoin d'Usurper l'identité de l'utilisateur forAccessing ressource Réseau, Asp.Net Compte

Juste appeler LogonUser n'est pas assez. Vous avez besoin d'emprunter l'identité de l'utilisateur. Vous pouvez emprunter l'identité juste pour l'accès à la ressource réseau.

Exemple de code peut être trouvé sur MSDN.

OriginalL'auteur Michael L Perry

Je n'ai eu expérience intime avec ce sous 1.1, donc les choses pourraient hépatite a changé dans la 2.0, mais les jours...
Nous avons une application qui est déployé dans des scénarios intranet, et nous permet de trouver la même chose. Nous courons avec identity impersonate allumé, le mode formulaire d'authentification, l'accès anonyme éteint. Le moyen le plus facile de contrôler ce (que j'ai trouvé) est de mettre les informations d'identification de l'utilisateur qui a accès au web.config. Ils vont sur le nœud où vous tournez à usurper l'identité d'identité. Si c'est super scret info, je ne ferais pas de cette façon! Nous ne sommes qu'à l'accès partagé graphiques dans un environnement d'impression, de sorte que la plupart des sites sont heureux de configuration d'un compte limité pour nous mettre dans le web.confit.
LogonUser, en effet, besoin élevée privelidges. Msdn a quelques bons articles sur la façon d'usurper l'identité d'un utilisateur spécifique dans le code. J'avais les poissons de certains liens, mais ce téléphone n'est pas faire de copier coller.

OriginalL'auteur Dan F

• Avec cette WebPart y connecter à un net de ressources avec accès restreint, j'ai mis un fichier et y de fermer la connexion à la ressource (en tant qu'utilisateur avec accès), vous n'avez pas besoin de faire un nouveau partage de connexion, qui a été de seulement restricction, que mon sistems departament faire pour moi. Peut être, il ya de nombreuses importations que nécessaire, mais je le fais à de nombreux essais et je n'ai pas eu le temps de nettoyer le code. J'espère que vous aider. (désolé pour mon mauvais anglais).

Importations Système
Les Importations Du Système.ComponentModel
Les Importations Du Système.Web.L'INTERFACE utilisateur
Les Importations Du Système.Web.L'INTERFACE utilisateur.Contrôles webcontrols
Les Importations Du Système.IO
Les Importations Du Système.IO.Fichier
Les Importations Du Système.Diagnostics
Les Importations Du Système.Xml.La sérialisation
Les Importations De Microsoft.SharePoint
Les Importations De Microsoft.SharePoint.Utilitaires
Les Importations De Microsoft.SharePoint.WebPartPages
Les Importations De Microsoft.SharePoint.Contrôles webcontrols
Les Importations De Microsoft.SharePoint.L'Administration
Les Importations Du Système.De sécurité.Principal
Les Importations Du Système.De sécurité.Les autorisations
Les Importations Du Système.Moment de l'exécution.InteropServices
Les Importations Du Système.Environnement
Les Importations Du Système.Net.Sockets
Les Importations Du Système.Web.L'INTERFACE utilisateur.HtmlControls

Public Class Impersonalizacion
Private Const LOGON32_PROVIDER_DEFAULT as Integer = 0
Private Const LOGON32_LOGON_INTERACTIVE as Integer = 2

<DllImport("advapi32.dll", SetLastError:=True)> _
Public 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("advapi32.dll", EntryPoint:="DuplicateToken", ExactSpelling:=False, CharSet:=CharSet.Auto, SetLastError:=True)> _
Public Shared Function DuplicateToken(ByVal ExistingTokenHandle As IntPtr, ByVal ImpersonationLevel As Integer, ByRef DuplicateTokenHandle As IntPtr) As Integer
End Function

Public Shared Function WinLogOn(ByVal strUsuario As String, ByVal strClave As String, ByVal strDominio As String) As WindowsImpersonationContext
    Dim tokenDuplicate As New IntPtr(0)
    Dim tokenHandle As New IntPtr(0)
    If LogonUser(strUsuario, strDominio, strClave, LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, tokenHandle) Then
        If DuplicateToken(tokenHandle, 2, tokenDuplicate) <> 0 Then
            Return (New WindowsIdentity(tokenDuplicate)).Impersonate()
        End If
    End If
    Return Nothing
End Function

Fin De La Classe
'Description pour WebPart1.
"), XmlRoot(espace de Noms:="SPSCopiarFichero")> _
Public Class WebPart1
Hérite De Microsoft.SharePoint.WebPartPages.WebPart

Protected WithEvents File1 As HtmlInputFile
Dim vdestino As String = "\\centappd20nd01\uploads_avisos"
Dim vtemporal As String = "c:\pdf"
Protected WithEvents boton1 As Button
Protected WithEvents usuario As TextBox
Protected WithEvents contra As TextBox
Protected WithEvents dominio As TextBox
Protected WithEvents destino As TextBox
Protected WithEvents origen As TextBox
Protected WithEvents temporal As TextBox
Protected WithEvents log As TextBox
'Render this Web Part to the output parameter specified.
Protected Overrides Sub RenderWebPart(ByVal output As System.Web.UI.HtmlTextWriter)
log.RenderControl(output)
output.Write("<br><font>Ruta Origen</font><br>")
File1.RenderControl(output)
output.Write("<br><font>Ruta Temporal </font><br>")
temporal.RenderControl(output)
output.Write("<br><font>Ruta Destino </font><br>")
destino.RenderControl(output)
output.Write("<br><font>Usuario </font><br>")
usuario.RenderControl(output)
output.Write("<br><font>Contraseña </font><br>")
contra.RenderControl(output)
output.Write("<br><font>Dominio </font><br>")
dominio.RenderControl(output)
output.Write("<br><br><center>")
boton1.RenderControl(output)
output.Write("</center>")
End Sub
Protected Overrides Sub CreateChildControls()
dominio = New TextBox
With dominio
.Text = "admon-cfnavarra"
.Width = Unit.Pixel("255")
End With
Controls.Add(dominio)
boton1 = New Button
With boton1
.Text = "Copiar Fichero"
End With
Controls.Add(boton1)
File1 = New HtmlInputFile
With File1
End With
Controls.Add(File1)
usuario = New TextBox
With usuario
.Text = "SVCWSINCPre_SNS"
.Width = Unit.Pixel("255")
End With
Controls.Add(usuario)
contra = New TextBox
With contra
.Text = "SVCWSINCPre_SNS"
.Width = Unit.Pixel("255")
End With
Controls.Add(contra)
destino = New TextBox
With destino
.Text = vdestino
.Width = Unit.Pixel("255")
End With
Controls.Add(destino)
log = New TextBox
With log
.Width = Unit.Percentage(100)
.BackColor = System.Drawing.Color.Black
.ForeColor = System.Drawing.Color.White
End With
Controls.Add(log)
temporal = New TextBox
With temporal
.Text = vtemporal
.Width = Unit.Pixel("255")
End With
Controls.Add(temporal)
End Sub
Private Sub boton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles boton1.Click
If File1.PostedFile.FileName <> "" Then
Dim _objContext As WindowsImpersonationContext = Nothing
log.Text = QuienSoy()
CopyFile(File1.PostedFile.FileName, temporal.Text)
_objContext = Impersonalizacion.WinLogOn(usuario.Text, contra.Text, dominio.Text)
CopyFile(temporal.Text & "\" & System.IO.Path.GetFileName(File1.PostedFile.FileName), destino.Text)
_objContext.Undo()
Else
log.Text = "Se debe introducir un fichero"
End If
End Sub
Friend Shared Function QuienSoy() As String
Return WindowsIdentity.GetCurrent().Name
End Function
Public Function CopyFile(ByVal StartPath As String, ByVal EndPath As String)
Try
Dim fn As String = System.IO.Path.GetFileName(StartPath)
System.IO.File.Copy(StartPath, EndPath & "\" & fn, False)
log.Text = "Fichero Copiado Correctamente"
Catch ex As Exception
log.Text = ex.Message
End Try
End Function

Fin De La Classe

OriginalL'auteur