Pessoal boa tarde,
Estou tentando fazer uma conexao com o AD consegui seguindo o escript abaixo, porém não consigo trazer os dados do usuario.
A linha response.write oRS.get("displayName")&", display<br />" não aparece, porém se tirar o oRS.get("displayName")& ai o testo ,display aparece.
Alguem poderia me dar uma ajuda?
<%
function AutUser(Username,Password)
response.write Username&"<br />"
Domain = "192.168.10.1"
dim strUser,strPass,strQuery,oConn,cmd,oRS
AuthenticateUser = "0"
strQuery = "SELECT cn FROM 'LDAP://" & Domain & "' WHERE objectClass='*'"
set oConn = server.CreateObject("ADODB.Connection")
oConn.Provider = "ADsDSOOBJECT"
oConn.properties("User ID") = Username
oConn.properties("Password")=Password
oConn.properties("Encrypt Password") = true
oConn.open "DS Query", Username,Password
set cmd = server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = oConn
cmd.CommandText = strQuery
on error resume next
set oRS = cmd.Execute
if oRS.bof or oRS.eof then
AuthenticateUser = false
response.write "falso <br />"
else
AuthenticateUser = true
response.write "verdade <br />"
response.write oRS.get("displayName")&", display<br />"
end if
response.write AuthenticateUser
set oRS = nothing
set oConn = nothing
end function
call AutUser("teste.01","mudar123")
%>
grato,