Thursday, May 17, 2007

LDAP Authentication

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

    <add key="LDAP_Path" value="LDAP://,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)




                ' Bind to the native AdsObject to force authentication.

                Dim obj As Object = entry.NativeObject

                Dim search As New DirectorySearcher(entry)

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



                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.

No comments:

Post a Comment