Imports System
Imports System.Text
Imports System.Collections
Imports System.DirectoryServices
Imports Microsoft.VisualBasic
 
Namespace FormsAuth
    Public Class LdapAuthentication
 
        Dim _path As String
        Dim _filterAttribute As String
 
        Public Sub New(ByVal path As String)
            _path = path
        End Sub

Imports System.DirectoryServices
 
Partial Class logon
    Inherits System.Web.UI.Page
 
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim adPath As String = "LDAP://DC=test,DC=de" 'Path to your LDAP 
        ' directory server
        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()