Gewusst wie: Bestimmen der Domäne des Benutzers
Aktualisiert: November 2007
Sie können das My.User-Objekt verwenden, um Informationen über den aktuellen Benutzer abzurufen. in diesem Beispiel wird die Verwendung der My.User.Name-Eigenschaft zum Abfragen des Domänennamens des Benutzers verwendet, wenn die Anwendung Windows-Authentifizierung verwendet.
Da die Anwendung standardmäßig Windows-Authentifizierung verwendet, gibt My.User die Windows-Informationen über den Benutzer zurück, der die Anwendung gestartet hat.
Beispiel
In diesem Beispiel wird vor dem Analysieren der My.User.Name-Eigenschaft zur Bestimmung des Domänennamens geprüft, ob die Anwendung Windows-Authentifizierung verwendet.
Dabei wird im Beispiel eine leere Zeichenfolge zurückgegeben, wenn die Anwendung benutzerdefinierte Authentifizierung verwendet, da bei einer Implementierung von benutzerdefinierter Authentifizierung nicht unbedingt Domäneninformationen bereitgestellt werden.
Function GetUserDomain() As String
If TypeOf My.User.CurrentPrincipal Is _
Security.Principal.WindowsPrincipal Then
' My.User is using Windows authentication.
' The name format is DOMAIN\USERNAME.
Dim parts() As String = Split(My.User.Name, "\")
Dim domain As String = parts(0)
Return domain
Else
' My.User is using custom authentication.
Return ""
End If
End Function
Siehe auch
Aufgaben
Gewusst wie: Bestimmen des Benutzernamens eines Benutzers