ASP.NET - conectar a la base de datos del active directory

hola ...
tengo algunas dudas estoy realizando una intranet en visual web developer y quiero q m ayuden a conectar a la base de datos del active directory por medio del visual web developer como puedo hacer esto...

Con esta function consulto si un user existe o no en el directorio activo

Public Function Acceso(ByVal strDominio As String, ByVal strUser As String, ByVal strClave As String) As Integer
Try
Dim strArray() As String
Dim i As Integer
strArray = Split(strDominio, ".")
strDominio = "LDAP://DC=" & strArray(LBound(strArray))
For i = LBound(strArray) + 1 To UBound(strArray)
strDominio = strDominio & ",DC=" & strArray(i)
Next
Dim objUser As DirectoryEntry
Dim objDirectoryEntry As New DirectoryEntry(strDominio, _
strUser, strClave)
Dim objDirectorySearcher As New DirectorySearcher(objDirectoryEntry)
Dim objSearchResult As SearchResult
objDirectorySearcher.Filter = "(SAMAccountName=" & strUser & ")"
objSearchResult = objDirectorySearcher.FindOne()
objUser = objSearchResult.GetDirectoryEntry()
Return 1
Catch ex As System.Exception
Return 0
MsgBox(ex.Message)
End Try
End Function

Los argumento son el dominio, user and password

Espero t sirva

Hasta Pronto