Cita:
Iniciado por fmcampos 
Muchas gracias me ha servido de much ayuda. Una pregunta, como puedo recuperar información del Select, me explico quiero hacer una consulta sobre el Active Directory y que me devuelva todos los usuarios o los que empiezan por una determinada letra, como seria?
con este codigo me fijo si un usuario pertence al grupo de AD "perfiles". No recuerdo bien cual es la logica pero funciona =)
Tengo entendido que se puede usar toda la sintaxis SQL, por ej: sAMAccountname='"+strUsername+"'
sAMAccountname<>'"+strUsername+"'
sAMAccountname like '%"+strUsername+"%'
<%
strUsername= request.Form("usuario")
strpassword= request.Form("password")
domainname="midominio"
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
session("logged_in") <> "true"
' Response.write("Usuario o contraseña incorrecto")
Else
objCommand.CommandText ="select memberof FROM 'GC://"+objADsPath+"' where sAMAccountname='"+strUsername+"'"
Set rs = objCommand.Execute
membership=rs("memberof")
rs.Close
objConnection.Close
Set rs = Nothing
Set objConnection = Nothing
For each group in membership
newgroup=split(group,"=")
tempgroup=left(newgroup(1), len(newgroup(1))-3)
tempgroup=lcase(tempgroup)
If tempgroup="perfiles" Then
session("logged_in") = "true"
' Response.write("Usuario y contraseña ok, el usuario pertenece al grupo Perfiles")
ldap = "ok"
Else
'Response.write("algo anda mal")
End If
Next
End If
%>