Imports System.Security.Principal

Public Class WindowsAuthentication
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents Label7 As System.Web.UI.WebControls.Label
    Protected WithEvents Label8 As System.Web.UI.WebControls.Label
    Protected WithEvents Label9 As System.Web.UI.WebControls.Label
    Protected WithEvents Label10 As System.Web.UI.WebControls.Label
    Protected WithEvents Label11 As System.Web.UI.WebControls.Label
    Protected WithEvents Label12 As System.Web.UI.WebControls.Label
    Protected WithEvents Label13 As System.Web.UI.WebControls.Label
    Protected WithEvents Label14 As System.Web.UI.WebControls.Label
    Protected WithEvents Label15 As System.Web.UI.WebControls.Label
    Protected WithEvents Label16 As System.Web.UI.WebControls.Label
    Protected WithEvents Label17 As System.Web.UI.WebControls.Label
    Protected WithEvents Label18 As System.Web.UI.WebControls.Label
    Protected WithEvents Label19 As System.Web.UI.WebControls.Label
    Protected WithEvents Label20 As System.Web.UI.WebControls.Label
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label5 As System.Web.UI.WebControls.Label
    Protected WithEvents Label6 As System.Web.UI.WebControls.Label
    Protected WithEvents IMG1 As System.Web.UI.HtmlControls.HtmlImage
    Protected WithEvents IMG2 As System.Web.UI.HtmlControls.HtmlImage

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        If Not IsPostBack Then

            ' Get current Windows user
            Dim WinID As WindowsIdentity
            WinID = WindowsIdentity.GetCurrent

            If WinID.AuthenticationType.ToString = "NTLM" Then
                Label1.Text = "Windows Account Information"
            Else
                Label1.Text = "Authentication Information"
            End If

            Label2.Text = "Welcome : " & Context.User.Identity.Name
            Label3.Text = "Windows Account: " & WinID.Name

            Dim MyPos As Integer
            MyPos = InStr(1, WinID.Name, "ASPNET")

            If MyPos > 0 Then
                Label4.Text = "The application is using the ASPNET Account."
            Else
                Label4.Text = "The application is not using the ASPNET Account."
            End If

            If (WinID.IsAuthenticated.ToString() = "True") Then
                Label5.Text = "You have been authenticated using Windows."
            Else
                Label5.Text = "You have not been authenticated."
            End If

            Label6.Text = "Authentication Type: " & _
            Context.User.Identity.AuthenticationType.ToString

            Dim wp As New WindowsPrincipal(WinID)
            Dim UserRoles As String = "Built-in role :  "
            If wp.IsInRole(WindowsBuiltInRole.Administrator) Then
                UserRoles += "Administrator"
            ElseIf wp.IsInRole(WindowsBuiltInRole.PowerUser) Then
                UserRoles += "Power User"
            ElseIf wp.IsInRole(WindowsBuiltInRole.Guest) Then
                UserRoles += "Guest"
            ElseIf wp.IsInRole(WindowsBuiltInRole.User) Then
                UserRoles += "User"
            ElseIf wp.IsInRole(551) Then
                UserRoles += "Backup Operator"
            ElseIf wp.IsInRole(550) Then
                UserRoles += "Print Operator"
            Else
                UserRoles = "Unknown"
            End If
            Label5.Text = UserRoles

            Label7.Text = "<B>Authentication type </B>(Authentication): "
            Label9.Text = "<B>Anonymous user </B>(IsAnonymous) : "
            Label11.Text = "<B>Authenticated </B>(IsAuthenticated) : "
            Label13.Text = "<B>Guest account </B>(IsGuest) : "
            Label15.Text = "<B>System account </B>(IsSystem): "
            Label17.Text = "<B>Token </B>(Token): "

            Label8.Text = WinID.AuthenticationType.ToString
            Label10.Text = WinID.IsAnonymous.ToString
            Label12.Text = WinID.IsAuthenticated.ToString
            Label14.Text = WinID.IsGuest.ToString
            Label16.Text = WinID.IsSystem.ToString
            Label18.Text = WinID.Token.ToString
        End If
    End Sub
 
End Class