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.
" Next Set objResultado = Nothing %>
