方法 : ユーザーのログイン名を確認する
更新 : 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