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

  • Pergunta

  • 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.

    quarta-feira, 27 de junho de 2007 19:38

Respostas

  • 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 
    %>

    quinta-feira, 28 de junho de 2007 19:29

Todas as Respostas

  • 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 
    %>

    quinta-feira, 28 de junho de 2007 19:29
  • 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.

     

     

     

     

    segunda-feira, 29 de outubro de 2007 17:09
  • 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

     

    segunda-feira, 21 de julho de 2008 17:56