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
GFU-Schulungen  [Anzeige]

Visual Studio Team Foundation Server 2017/2015 (TFS) für Projektmitglieder - Kompakt

Nach Teilnahme an dieser Schulung sind Ihnen die Grundlagen von ALM geläufig. Sie planen und steuern Projekte effizient mit dem Visual Studio Team Foundation Server.

C# Komplett

Sie kennen sich in objektorientierter Programmierung aus. Sie schreiben C++ oder Java? Und nun stehen Sie vor der Aufgabe, in C# Anwendungen zu erstellen. Das C# Komplett-Seminar verschafft Ihnen umfassende Programmierkenntnisse in dieser Sprache. Nach der Schulung entwickeln Sie selbständig Anwendungen mit C#. Sie kennen die Datentypen und Klassenbibliotheken der objektorientierten Programmiersprache C#. Der Komplettkurs setzt bei den Grundlagen von C# ein. Sie arbeiten mit Variablen und konvertieren Typen. Multithreading, Delegates, Generics sind nach dem Seminar für Sie kein Geheimnis mehr.

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!