<!-- "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)
' 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
' 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)
Thanks & Regards,
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.