ADSI problema con 2003

[Yavetil]

Hola!
Estoy trabajando con ADSI para la autenticacion en mi intranet, todo funciona muy bien en win 2000 pero al ingresar desde un server con 2003, me envia un error de EOF y BOF, como si no existiera el registro!

Anexo el codigo, pero este si funciona en 2000 y en 2003 no
<%' RECIBO EL USUARIO
varuser=Request.ServerVariables("LOGON_USER")
arrUser=Split(varuser, "\")
usuario= TRIM(arrUser(1))
Set conAD = Server.CreateObject("ADODB.Connection")
conAD.provider ="ADsDSOObject"
conAD.properties("adsi flag") = 1
conAD.properties("user id") = "xxxx"
conAD.properties("password") = "xxxx"
conAD.open "Active Directory Provider"
Set Com = CreateObject("ADODB.Command")
Set Com.ActiveConnection = conAD

Com.CommandText ="select name from 'LDAP://OU=xx,DC=xx,DC=com,DC=mx' where sAMAccountName='"&usuario&"' order by name "
Set rs = Com.Execute

Alguien tiene idea del por que funciona en 2000 y no en 2003?
Gracias

[JuanRAPerez]

prueba este

Código asp:

strPath = "LDAP://XXX/DC=XXX,DC=XXX,DC=XX"
strEmail = strCuenta & "@tudominio.xxx.xx"
    
Set objNamespaceLDAP = GetObject("LDAP:")
 
on error resume next
    Set objMyObject = objNamespaceLDAP.OpenDSObject(strPath,strEmail,strClave,0)
 
if err.number <> 0 then
    response.write "<p>Error ingresando en Password Intentelo de nuevo (verifique las condiciones de su teclado)</p>"
else
    response.write "<p>Satisfactorio!!!!!</p>"
end if
 

suerte

[Yavetil]

Gracias,
este codigo es para ver si existe el usuario que se logea?
Me marca el error "Error ingresando en Password "

Necesitare un usuario especial para el 2003?
lo que intento es sacar datos como el nombre, oficina etc...

[JuanRAPerez]

bueno tienes que enviar las dos variables
el usuario y la clave valida contra el servidor si es unsario valido te deja pasar si no no tendrias que dejarte pasar

strEmail = strCuenta & "@tudominio.xxx.xx"

y strClave seria 123456 (mi pass)

pero tienes que configurar todas las demás opciones si no te adra problemas


en donde strCuenta es el usuario

quedaria
[email protected]

[abassi]

Iniciado por JuanRAPerez

prueba este

Código asp:

strPath = "LDAP://XXX/DC=XXX,DC=XXX,DC=XX"
strEmail = strCuenta & "@tudominio.xxx.xx"
    
Set objNamespaceLDAP = GetObject("LDAP:")
 
on error resume next
    Set objMyObject = objNamespaceLDAP.OpenDSObject(strPath,strEmail,strClave,0)
 
if err.number <> 0 then
    response.write "<p>Error ingresando en Password Intentelo de nuevo (verifique las condiciones de su teclado)</p>"
else
    response.write "<p>Satisfactorio!!!!!</p>"
end if
 

suerte

me estoy conectando a un ldap local. mi usuario es algo asi "midominio\miusuario"
con que remplazo las xxx??