My.User.Name-Eigenschaft

Artikel
08/20/2008

Aktualisiert: November 2007

Ruft den Namen des aktuellen Benutzers ab.

' Usage
Dim value As String = My.User.Name
' Declaration
Public ReadOnly Property Name As String

Rückgabewert

String. Der Name des aktuellen Benutzers.

Hinweise

Sie können mit dem My.User-Objekt Informationen über den aktuellen Benutzer abrufen.

Der Prinzipal, der den Benutzer authentifiziert, steuert auch das Format des Benutzernamens. Standardmäßig verwendet eine Anwendung Windows-Authentifizierung, und der Benutzername weist das Format DOMÄNE\BENUTZERNAME auf. Für eine benutzerdefinierte Implementierung des Prinzipals wird nicht zwangsläufig dasselbe Format verwendet.

Hinweis:
Unter Windows 95 und Windows 98 gibt die My.User.Name-Eigenschaft eine leere Zeichenfolge zurück, weil diese Betriebssysteme Benutzernamen nicht erkennen.

Hinweis:
Das jeweilige Verhalten des My.User-Objekts hängt vom Typ der Anwendung und vom Betriebssystem ab, unter dem die Anwendung ausgeführt wird. Weitere Informationen finden Sie unter My.User-Objekt.

Aufgaben

In der folgenden Tabelle werden Beispiele für Aufgaben mit der My.User.Name-Eigenschaft aufgeführt.

Zweck	Weitere Informationen finden Sie unter
Abrufen des Benutzernamens des Benutzers	Gewusst wie: Bestimmen des Benutzernamens eines Benutzers
Abrufen des Domänennamens des Benutzers, wenn die Anwendung Windows-Authentifizierung verwendet	Gewusst wie: Bestimmen der Domäne des Benutzers
Implementieren benutzerdefinierter Authentifizierung	Exemplarische Vorgehensweise: Implementieren von benutzerdefinierter Authentifizierung und Autorisierung

Beispiel

In diesem Beispiel wird überprüft, ob die Anwendung Windows-Authentifizierung oder benutzerdefinierte Authentifizierung verwendet, und anhand dieser Informationen wird die My.User.Name-Eigenschaft analysiert.

Function GetUserName() As String
    If TypeOf My.User.CurrentPrincipal Is _
    Security.Principal.WindowsPrincipal Then
        ' The application is using Windows authentication.
        ' The name format is DOMAIN\USERNAME.
        Dim parts() As String = Split(My.User.Name, "\")
        Dim username As String = parts(1)
        Return username
    Else
        ' The application is using custom authentication.
        Return My.User.Name
    End If
End Function