HOW TO：判斷使用者的網域
更新：2007 年 11 月
您可以使用 My.User 物件，取得目前使用者的資訊。這個範例將顯示如果應用程式會使用 Windows 驗證，則應如何使用 My.User.Name 屬性 (Property)，取得使用者的網域名稱。
因為應用程式預設為會使用 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