Feedback

VB - Windows-Identität des aktuell angemeldeten Anwenders

Veröffentlicht von am 09.01.2007
(2 Bewertungen)
Die nachfolgende Function liefert Informationen über den aktuell angemeldeten Benutzer.

U.U. ist es wichtig, das NTLM Anmeldetoken zu kennen - die Funktion liefert u.a. dies zurück
Public Function CurrentIdentity() As String

        'Die Windows-Identität des aktuell angemeldeten Anwenders ermitteln.
        Dim Identity As Security.Principal.WindowsIdentity
        Dim str As New System.Text.StringBuilder


        Identity = Security.Principal.WindowsIdentity.GetCurrent()
        'und nun die der Identität zugehörigen Informationen darstellen.
        str.AppendLine("Authentifiziert: " & vbTab & vbTab & Identity.IsAuthenticated)
        str.AppendLine("Anonym: " & vbTab & vbTab & vbTab & Identity.IsAnonymous)
        str.AppendLine("Gast: " & vbTab & vbTab & vbTab & Identity.IsGuest)
        str.AppendLine("System: " & vbTab & vbTab & vbTab & Identity.IsSystem)
        str.AppendLine("Authentifizierungstyp: " & vbTab & Identity.AuthenticationType)
        str.AppendLine("Benutzername: " & vbTab & vbTab & Identity.Name)
        str.AppendLine("Token: " & vbTab & vbTab & vbTab & Identity.Token.ToString())
        Return (str.ToString)

End Function
Abgelegt unter Security, Identity.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!