ASP y LDAP

[dargento]

Buenas.
Tengo que poner a funcionar una web en una intranet.
Para ello necesito que el usuario cuando introduzca el nombre de usuario y contraseña, sea validado por LDAP en el Active directory.
Si me pueden decir como tengo que poner, porque no consigo conectar, no se que parametros hay que poner.
Gracias.
[email protected]

[buliwyf]

<%
strUserName = "pperez"
dtStart = TimeValue(Now())
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"

Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection

objCommand.CommandText = _
"<LDAP://dc=tudominio,dc=com>;(&(objectCategory=User)" & _
"(samAccountName=" & strUserName & "));samAccountName;subtree"

Set objRecordSet = objCommand.Execute

If objRecordset.RecordCount = 0 Then
response.write "La cuenta: " & strUserName & " no existe."
Else
respnse.write strUserName & " existe."
End If

objConnection.Close
%>

[abassi]

Iniciado por buliwyf

<%
strUserName = "pperez"
dtStart = TimeValue(Now())
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"

Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection

objCommand.CommandText = _
"<LDAP://dc=tudominio,dc=com>;(&(objectCategory=User)" & _
"(samAccountName=" & strUserName & "));samAccountName;subtree"

Set objRecordSet = objCommand.Execute

If objRecordset.RecordCount = 0 Then
response.write "La cuenta: " & strUserName & " no existe."
Else
respnse.write strUserName & " existe."
End If

objConnection.Close
%>

lo unico que hay que cambiar es donde dice "tudominio"? me da error 500 =(

[JuanRAPerez]

pero tu dominio es midominio.com

o es un midominio.org.algomas????

prueba esto

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

suerte