Authenticate user against active directory

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

Dim entry As DirectoryEntry = New DirectoryEntry(_path, username, pwd)
entry.AuthenticationType = AuthenticationTypes.Secure
entry.Path = _path

Try
'Bind to the native AdsObject to force authentication.

Dim obj As Object = entry.NativeObject
Dim search As DirectorySearcher = New DirectorySearcher(entry)


search.Filter = "(sAMAccountName=" & username & ")"



search.PropertiesToLoad.Add("cn")
search.PropertiesToLoad.Add("givenName")

Dim result As SearchResult = search.FindOne()
Dim info As DirectoryEntry = result.GetDirectoryEntry
' Label4.Text=CType(info.Properties("displayName").?? String.Empty, String)

If (result Is Nothing) Then
Return False

End If




'Update the new path to the user in the directory.
_path = result.Path
_filterAttribute = CType(result.Properties("cn")(0), String)
'_filterAttribute = CType(result.Properties("givenName")(1), String)


Catch ex As Exception
Throw New Exception("Error authenticating user. " & ex.Message)
End Try
' WriteLine(_filterAttribute)

Return True

End Function


Comments

Author: Manindra Kumar Upadhyay05 Apr 2010 Member Level: Gold   Points : 1

try this:
http://manindra.net/post/2010/03/29/What-is-Active-Directory-Of-Windows.aspx