Resgatar Dados Via Ldap

[Guest - Marcelo -]

Estou usando o LDAP para autenticar usuários em uma pagina ASP, estou precisando retornar as informações do usuário após a autenticação, como faço isso ?

[ursolouco]

Estou usando o LDAP para autenticar usuários em uma pagina ASP, estou precisando retornar as informações do usuário após a autenticação, como faço isso ?

Nunca usei isto, mas vamos tentar, mostre seu código ai pra gente...

[Guest - Marcelo -]

On Error Resume Next

Dim strDominio, strChave, strSenha, msgAviso, msgErro

Dim strAdmSite, strCipa, strSindic

Dim Domain, dso

msgAviso = ""

msgErro = ""

strDominio = UCase(Request.Form("dominio"))

strChave = UCase(Request.Form("chave"))

strSenha = Request.Form("senha")

If strChave <> "" and strSenha <> "" and strDominio <> "" Then

Set dso = GetObject("LDAP:")

Set Domain = dso.OpenDSObject("LDAP://" & strDominio, strDominio & "\" & strChave, strSenha, 1)

If Not (Err.number = 0) Then

msgErro = "!! Erro na Autenticação !!"

Else

If Domain.Class = "domainDNS" Then

Session("Chave") = ucase(strChave)

nesta área eu faria o resgate das informações

Set Domain = Nothing

Set dso = Nothing

Else

msgErro = "Usuário inexistente !"

End If

End If

Set Domain = Nothing

Set dso = Nothing

end if

[ursolouco]

Nossa.....

Estou perdidinho neste tipo de aplicação (LDAP) , desculpe-me, mas não tenho como lhe ajudar... achei que fosse algo mais simples.

Perdão..

Mas veja se pode lhe Identifying Users in IIS using Exchange and LDAP....

Editado Maio 21, 2004 por ursolouco