Ler usuários no Active Directory (Acesso ao AD)

Question

Oi galera,

 

Preciso de uma ajuda, preciso fazer a leitura de usuários cadastrados no Active Diretory, como fazer isto sei que usa o LDAP, mas quem conhece e entendo do assunto pode me ajudar...

 

Obrigado!

 

[ ]´s Rafael.

Answer 1

gente depois de apanhar um dia inteiro...lol

 

segue o código que fiz para fazer acesso ao Active Directory e obter as informações, este fica para os fvoritos....lol

 

<%
'response.write(ucase(RecuperaLogonUser(2)))
'response.end
Set objCon = Server.CreateObject("ADODB.Connection")
Set objCom = Server.CreateObject("ADODB.Command")
objCon.Provider = "ADsDSOObject"
objCon.Open "Active Directory Provider"
Set objCom.ActiveConnection = objCon
strADsPath = "LDAP://****/cn=***,ou=grupos,ou=**,ou=**,ou=**,ou=**,dc=**,dc=**,dc=**"
objCom.CommandText = "SELECT Member FROM '" & strADsPath & "' "
objCom.Properties("searchscope") = ADS_SCOPE_SUBTREE
Set objRS = objCOM.Execute
'objRS.COUNT
Member = objRS("Member")
chave = (ucase(RecuperaLogonUser(2)))
TemAcesso = false

For each user in Member
  if right(left(user,7),4) = chave then
   TemAcesso = true 
  end if
  'response.write right( left(user,7),4)&" - "&user&"<br>" 
Next
  if TemAcesso = true then
   response.write("<script>alert('SIM');</script>")
  else
   response.write("<script>alert('NAO');</script>")
  end if 
%>

Answer 2

Thanuz, bom?

 

meu código, (que é cópia qse exata do seu) está dando erro na linha 14. que é a linha onde abre a Conexao.

 

código:

objCon.Provider = "ADsDSOObject"
objCon.Open "Active Directory Provider"

 

Erro:

ADODB.Connection erro '800a0e7a'

Provedor não encontrado. É possível que ele não esteja instalado corretamente.

/FIPEPC/testeAd.asp, line 14

 

Tem algum componente específico que preciso intalar no servidor para fazê-lo funciuonar?

 

obrigado.

 

 

 

 

Answer 3

Boa tarde pessoal.

 

Estou usando o código do Thanuz para fazer uma validação de usuário e senha no AD, porém eu estou com dúvidas sobre as propriedades CN, OU e DC.

O que elas significam realmente?

Como dentro do select eu posso fazer um where do usuário e senha?! Qual seria o campo de nome de usuário e campo senha?!

 

Agradeço a ajuda.

 

[]s