Configurar LDAP

fmcampos · #1 (**permalink**) 19/02/2010, 02:37

Estoy trantado de hacer una Intarnet, utilizando el directorio activo, pero no me devuelve nada la consulta. Os adjunto el codigo fuente para ver si me podeis ayudar:

Código:

<html>
<head>
<style>
</style>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#CCCCCC" >

<%
	Dim oRootDSE, oCon, oCmd, oRecordSet
	Dim sDomainADsPath, sUser, sPassword, sGroup, sProperties
	Dim aDescription, aMember, iCount,strUsername

	Set oRootDSE 		= GetObject("LDAP://RootDSE")

	sDomainADsPath		= "LDAP://" & oRootDSE.Get("defaultNamingContext")
	Set oRootDSE 		= Nothing
	Set oCon 		= Server.CreateObject("ADODB.Connection")

	sUser			= "Dominio\prueba"
	sPassword		= "prueba"

	oCon.Provider 		= "ADsDSOObject"

	oCon.Open "ADProvider", sUser, sPassword

	Set oCmd		= Server.CreateObject("ADODB.Command")
	Set oCmd.ActiveConnection = oCon

	sProperties		= "name,ADsPath,description,member"
	sGroup			= "*"

	oCmd.CommandText	= "< " & sDomainADsPath & " >"
	oCmd.CommandText	= oCmd.CommandText & ";(&(objectCategory=group)(name=" & sGroup & "));" & sProperties & ";subtree"'
		
	oCmd.Properties("Page Size") = 100
       Set oRecordSet = oCmd.Execute
%>

</body>
</html>

y me devuelve:

Provider error '80040e37'

Table does not exist.

/certsrv/Prueba/Default.asp, line 53

Espero que me podais ayudar por que estoy un poco

Hasta ahora

JuanRAPerez · #2 (**permalink**) 19/02/2010, 09:36

lee un poco este post

http://www.forosdelweb.com/f15/adsi-...5/#post2600236

suerte

fmcampos · #3 (**permalink**) 25/02/2010, 02:23

Ok, gracias, me ha sido util

abassi · #4 (**permalink**) 01/03/2010, 21:35

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.

fmcampos · #5 (**permalink**) 02/03/2010, 04:42

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?

abassi · #6 (**permalink**) 02/03/2010, 06:47

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

%>