Com esse código é possível ter acesso à lista de grupos de um determinado usuário no Active Directory da rede. (O computador que roda o código precisa ter permissões de leitura no Active Directory)
A função retorna uma Collection (Scripting.Dictionary) para a manipulação do retorno dos grupos.
Para configurar o grupo basta alterar a variável Usuario no exemplo de chamada da função.
Essa função é compatível com Windows NT, XP, 2000.
<%
'-----------------------------------------------------
'Nome: getGruposADS(strLogin)
'Tipo: Funcao Public
'Sinopse: Retornar a lista de grupos de um usuário no Active Directory
'Parametros:
' strLogin: Login do usuário na rede
'Retorno: Collection (Scripting.Dictionary)
'Autor: Gabriel Fróes - www.codigofonte.com.br
'-----------------------------------------------------
Function getGruposADS(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 getGruposADS = objColl
'Destruindo os objetos
Set objUsuario = Nothing
Set objSysInfo = Nothing
End Function
'-----------------------------------------------------
'Exemplo de chamada da função
'-----------------------------------------------------
Dim Usuario 'Login do usuário na rede
Dim objResultado
Set objResultado = Server.CreateObject("Scripting.Dictionary")
Usuario = "login_rede" '<----- EDITE O LOGIN AQUI
Set objResultado = getGruposADS(Usuario)
For i = 1 To objResultado.Count
Response.Write objResultado.Item(i) & "
"
Next
Set objResultado = Nothing
%>
