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