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