[Resolvido] usuário do Active Directory

[xanburzum 169]

Acessando à lista de grupos de um determinado usuário no Active Directory da rede,a função retorna uma Coleção do Scripting.Dictionary para a manipulação do retorno dos grupos.Mas o que é o Active Directory ,ele surgiu com a necessidade de se ter um único diretório, ou seja, ao invés do usuário ter uma senha para acessar o sistema principal da empresa, uma senha para ler seus e-mails, uma senha para se logar no computador, e várias outras senhas, com a utilização do AD, os usuários poderão ter apenas uma senha para acessar todos os recursos disponíveis na rede. Podemos definir um diretório como sendo um banco de dados que armazena as informações dos usuários.Além de armazenar vários objetos em seu banco de dados, o AD disponibiliza vários serviços, como: autenticação dos usuários, replicação do seu banco de dados, pesquisa dos objetos disponíveis na rede, administração centralizada da segurança utilizando GPO, entre outros serviços. Esses recursos tornam a administração do AD bem mais fácil, sendo possível administrar todos os recursos disponíveis na rede centralizadamente.

Para que os usuários possam acessar os recursos disponíveis na rede, estes deverão efetuar o logon. Quando o usuário efetua logon, o AD verifica se as informações fornecidas pelos usuários são válidas e faz a autenticação, caso essas informações sejam válidas.

 

Para configurar o grupo basta alterar a variável Usuario no exemplo de chamada da função.

 

<%
Function GruposAD(strLogin)
	'Declarações
	Dim objSysInfo
	Dim objUsuario
	Dim objGrupo
	Dim objColl
		
	'Criação dos objetos
	Set objSysInfo	= Server.CreateObject("ADSystemInfo")
	Set objColl		= Server.CreateObject("Scripting.Dictionary")
	Set objUsuario	= GetObject("WinNT://" & objSysInfo.DomainDNSName & "/" & strLogin & ",user")
		
	For Each objGrupo In objUsuario.Groups
		'Adicionar o grupo na collection
		objColl.Add objColl.Count+1, objGrupo.Name
	Next
		
	'Retornando a função
	Set GruposAD= objColl
		
	'Destruindo os objetos
	Set objUsuario	= Nothing
	Set objSysInfo	= Nothing
End Function

'-----------------------------------------------------
'como usar
'-----------------------------------------------------
Dim Usuario	'Login do usuário na rede
Dim objResultado
Set objResultado = Server.CreateObject("Scripting.Dictionary")
Usuario = "login_rede" '<----- colowue aqui o LOGIN
Set objResultado = GruposAD(Usuario)
For i = 1 To objResultado.Count
	Response.Write objResultado.Item(i) & "<br>" 
Next
Set objResultado = Nothing
%>

e para validar

 

'Validação do usuário no Active Directory
strDomainUser = Request.Form("User")
strPassword = Request.Form("Password")
strDomain = "dominio.com.br
Set objRootDSE = GetObject("LDAP://rootDSE")
Set objDSObj = GetObject("LDAP:")
On Error resume Next
Set objAuth = objDSObj.OpenDSObject("LDAP://"& strDomain &"/rootDSE", strDomainUser, strPassword, 1)
If Err.number = -2147023570 then
	Response.Redirect("erro.asp?flag=InvalidLogin")
End If
'Fim da validação no Active Directory