LDAP Authentication

<!-- "LDAP://yourCompanyName.com/DC=yourCompanyName,DC=com"; -->

    <add key="LDAP_Path" value="LDAP://rspl.com/DC=rspl,DC=com" />

    <add key="Domain" value="RSPL" />

 

Public Function IsAuthenticated(ByVal domain As String, ByVal username As String, ByVal pwd As String) As Boolean

            Dim domainAndUsername As String = domain & "\" + username

            Dim entry As New DirectoryEntry(_path, domainAndUsername, pwd)

 

            Try

 

                ' Bind to the native AdsObject to force authentication.

                Dim obj As Object = entry.NativeObject

                Dim search As New DirectorySearcher(entry)

                search.Filter = "(SAMAccountName=" + username + ")"

                search.PropertiesToLoad.Add("cn")

 

                Dim result As SearchResult = search.FindOne()

                If (Nothing Is result) Then

 

                    Return False

                End If

                ' Update the new path to the user in the directory

                _path = result.Path

                _filterAttribute = CStr(result.Properties("cn")(0))

 

            Catch ex As Exception

 

                Throw New Exception("Error authenticating user. " + ex.Message)

            End Try

            Return True

End Function

 

 

Thanks & Regards,

Arun Manglick

SMTS || Microsoft Technology Practice || Bridgestone - Tyre Link || Persistent Systems || 3023-6258

 

DISCLAIMER ========== This e-mail may contain privileged and confidential information which is the property of Persistent Systems Pvt. Ltd. It is intended only for the use of the individual or entity to which it is addressed. If you are not the intended recipient, you are not authorized to read, retain, copy, print, distribute or use this message. If you have received this communication in error, please notify the sender and delete all copies of this message. Persistent Systems Pvt. Ltd. does not accept any liability for virus infected mails.