My.User.Name 属性

项目
08/18/2008

更新：2007 年 11 月

获取当前用户的名称。

' Usage
Dim value As String = My.User.Name
' Declaration
Public ReadOnly Property Name As String

返回值

String。当前用户的名称。

备注

可以使用 My.User 对象来获取有关当前用户的信息。

验证用户身份的主体还控制着用户名的格式。默认情况下，应用程序使用 Windows 身份验证，而用户名具有格式 DOMAIN\USERNAME。主体的自定义实现不一定会使用相同的格式。

说明：
当在 Windows 95 和 Windows 98 下运行时，由于这些操作系统无法识别用户名，因此 My.User.Name 属性会返回空字符串。

说明：
My.User 对象的确切行为取决于应用程序类型和运行应用程序的操作系统。有关更多信息，请参见 My.User 对象。

任务

下表列出了涉及 My.User.Name 属性的任务的示例。

要执行的操作	请参见
获取用户的登录名	如何：确定用户的登录名
获取用户的域名（如果应用程序使用 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