Consultar usuário no Active Directory

[raposo 0]

Prezados(as),

 

Estou desenvolvendo uma aplicação para intranet com BD Access onde possuo login e senha para área admin, porém gostaria de

comparar este login e senha no Active Directory e permitir que o usuário se logue ou não.

 

Desde já agardeço a ajuda

[Ted k' 126]

Criando os objetos ADSystemInfo e com o Scripting.Dictionary, usando o GetObject você faz essas funcionalidades, pesquise sobre esses temos!

[raposo 0]

Ted k'

 

Primeiramente obrigado pela resposta, porém dei uma pesquisa mais ainda assim estou com dificuldade. Você teria um exemplo?

 

Obrigado

 

------------

Prezados,

Estou desenvolvendo a integração da minha aplicação de intranet com o Active Directory. Porém o mesmo está atribuindo

um erro "error '8007054b' " na seguinte linha "Set objRootDSE = GetObject("LDAP://rootDSE")".

 

Segue o código:

 

<%
Vlogin = Request.Form("login")
Vsenha = Request.Form("senha")
VDominio = "meudominio"

Set objRootDSE = GetObject("LDAP://rootDSE")
Set objDSObj = GetObject("LDAP:")

On Error resume Next

Set objAuth = objDSObj.OpenDSObject("LDAP://"& VDominio &"/rootDSE", VLogin, VSenha, 1)

If Err.number = -2147023570 then
    Response.Redirect("erro.asp?flag=InvalidLogin")
End If