如何：确定用户的域

更新：2007 年 11 月

可以使用 My.User 对象来获取有关当前用户的信息。此示例演示在应用程序使用 Windows 身份验证的情况下如何使用 My.User.Name 属性获取用户的域名。

由于应用程序默认使用 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

请参见

任务

如何：确定用户的登录名

演练：实现自定义身份验证和授权

概念

访问用户数据

参考

My.User.Name 属性