Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim GroupAD As Object


        Dim temp As Boolean


        'get the users domain and ID


        Dim tempStr As String = Context.User.Identity.Name


        Dim userIDExprs() As String


        'split the domain and user ID into an array 0=domain 1=userid


        userIDExprs = Split(tempStr, "\")


        'get group from Active Directory


        GroupAD = GetObject("WinNT://domain/adgroupname")


        'return true or false if user id exists in group


        temp = GroupAD.IsMember("WinNT://domain/" & userIDExprs(1))


        'show result on page


        lblAD.Text = temp.ToString


    End Sub

<%@ Assembly Name="System.DirectoryServices, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"%>

Imports System.Web.Security


Imports System.Security.Principal

<%@ Application language="VB" %>











<script runat="server">





     Imports System.Web.Security


     Imports System.Security.Principal











    Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)








        ' Fires upon attempting to authenticate the use


        Dim cookieName As String = FormsAuthentication.FormsCookieName


        Dim authCookie As HttpCookie = Context.Request.Cookies(cookieName)





        If (authCookie Is Nothing) Then


            'There is no authentication cookie.


            Return


        End If





        Dim authTicket As FormsAuthenticationTicket = Nothing





        Try


            authTicket = FormsAuthentication.Decrypt(authCookie.Value)


        Catch ex As Exception


            'Write the exception to the Event Log.


            Return


        End Try





        If (authTicket Is Nothing) Then


            'Cookie failed to decrypt.


            Return


        End If





        'When the ticket was created, the UserData property was assigned a


        'pipe-delimited string of group names.


        Dim groups As String() = authTicket.UserData.Split(New Char() {"|"})





        'Create an Identity.


        Dim id As GenericIdentity = New GenericIdentity(authTicket.Name, "LdapAuthentication")





        'This principal flows throughout the request.


        Dim principal As GenericPrincipal = New GenericPrincipal(id, groups)





        Context.User = principal





    End Sub





</script>

<%@ Import Namespace="System.DirectoryServices" %>

<%@ Page Language="vb" autoeventwireup="true" %>


<%@ import Namespace="FormsAuthAd.FormsAuth" %>


<%@ Import Namespace="System.DirectoryServices" %>


<%@ Assembly Name="System.DirectoryServices, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"%>


<script runat="server">





    sub Login_Click(sender as object,e as EventArgs)


       Dim adPath as String = ""path to ldap serer here(didn't want to post it)"       


       Dim adAuth as LdapAuthentication = new LdapAuthentication(adPath)


       try


         if(true = adAuth.IsAuthenticated(txtDomain.Text, txtUsername.Text, txtPassword.Text)) then


           Dim groups as string = adAuth.GetGroups()





           'Create the ticket, and add the groups.


           Dim isCookiePersistent as boolean = chkPersist.Checked


           Dim authTicket as FormsAuthenticationTicket = new FormsAuthenticationTicket(1, _


                txtUsername.Text,DateTime.Now, DateTime.Now.AddMinutes(60), isCookiePersistent, groups)





           'Encrypt the ticket.


           Dim encryptedTicket as String = FormsAuthentication.Encrypt(authTicket)





           'Create a cookie, and then add the encrypted ticket to the cookie as data.


           Dim authCookie as HttpCookie = new HttpCookie(FormsAuthentication.FormsCookieName, encryptedTicket)





           if(isCookiePersistent = true) then


                authCookie.Expires = authTicket.Expiration


           end if


           'Add the cookie to the outgoing cookies collection.


           Response.Cookies.Add(authCookie)





           'You can redirect now.


           Response.Redirect(FormsAuthentication.GetRedirectUrl(txtUsername.Text, false))





         else


           errorLabel.Text = "Authentication did not succeed. Check user name and password."


         end if





       catch ex as Exception


         errorLabel.Text = "Error authenticating. " & ex.Message


       end try


    end sub





</script>


<html>


<head>


</head>


<body>


    <form id="Login" method="post" runat="server">


        <asp:Label id="Label1" runat="server">Domain:</asp:Label>


        <asp:TextBox id="txtDomain" Runat="server"></asp:TextBox>


        <br />


        <asp:Label id="Label2" runat="server">Username:</asp:Label>


        <asp:TextBox id="txtUsername" Runat="server"></asp:TextBox>


        <br />


        <asp:Label id="Label3" runat="server">Password:</asp:Label>


        <asp:TextBox id="txtPassword" Runat="server" TextMode="Password"></asp:TextBox>


        <br />


        <asp:Button id="btnLogin" onclick="Login_Click" Runat="server" Text="Login"></asp:Button>


        <br />


        <asp:Label id="errorLabel" runat="server" forecolor="#ff3300"></asp:Label>


        <br />


        <asp:CheckBox id="chkPersist" Runat="server" Text="Persist Cookie"></asp:CheckBox>


    </form>


</body>


</html>

<%@ Import Namespace="FormsAuthAd.FormsAuth" %>

Dim adAuth as FormsAuth.LdapAuthentication = new FormsAuth.LdapAuthentication(adPath)

Dim adAuth as FormsAuthAd.FormsAuth.LdapAuthentication = new FormsAuthAd.FormsAuth.LdapAuthentication(adPath)

<!--#include file = "classFile.asp"-->