Практическое руководство. Определение имени, под которым пользователь вошел в систему
Обновлен: Ноябрь 2007
Для получения сведений о текущем пользователе можно использовать объект My.User. В этом примере показано использование свойства My.User.Name для получения имени пользователя, используемого для входа в систему.
Приложение использует проверку подлинности Windows по умолчанию, поэтому My.User возвращает сведения Windows о пользователе, запустившем приложение.
Пример
В этом примере проверяется, использует ли приложение проверку подлинности Windows или пользовательскую проверку подлинности, и затем использует эту информацию для анализа свойства My.User.Name.
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
См. также
Задачи
Практическое руководство. Определение пользовательского домена
Пошаговое руководство. Реализация пользовательской проверки подлинности и авторизации