Configurar LDAP

[abassi]

con este codigo que te paso a mi me funciona de maravilla

<%


strUsername = request.Form("strUsername")
strpassword = request.Form("strpassword")
domainname = "tudominio"

on error resume next

Set objDomain = GetObject ("GC://rootDSE")
objADsPath = objDomain.Get("defaultNamingContext")
Set objDomain = Nothing
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.provider ="ADsDSOObject"
objConnection.Properties("User ID") = domainname+"\" + strUsername
objConnection.Properties("Password") = strpassword
objConnection.open "Active Directory Provider"
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText ="select cn FROM 'GC://"+objADsPath+"' where sAMAccountname='"+strUsername+"'"
Set objRS = objCommand.Execute

If Err.Number <> 0 Then
ldap = "bad"
'Response.write("Usuario o contraseña incorrecto")
Else
ldap = "ok"
End If



%>


Es medio tomado de los pelos, digamos que si hay un error de login genera un error que no lo muestro.
Si te sirve tengo algo parecido pero busca un usuario dentro de un grupo.