如何：确定用户的登录名

更新：2007 年 11 月

可以使用 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

请参见

任务

如何：确定用户的域

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

概念

访问用户数据

参考

My.User.Name 属性