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