<%@ Page Language="VB" %>
<%@ Import Namespace="System.Security.Principal" %>
Protected Sub Page_Load(ByVal sender As Object, _
ByVal e As System.EventArgs)
Dim AuthUser As WindowsIdentity = WindowsIdentity.GetCurrent()
Response.Write(AuthUser.AuthenticationType.ToString() & "
" & _
AuthUser.ImpersonationLevel.ToString() & "
" & _
AuthUser.IsAnonymous.ToString() & "
" & _
AuthUser.IsAuthenticated.ToString() & "
" & _
AuthUser.IsGuest.ToString() & "
" & _
AuthUser.IsSystem.ToString() & "
" & _
AuthUser.Name.ToString())
End Sub