Com esse código é possível ter acesso à lista de usuários de um determinado grupo 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.
Para configurar o grupo basta alterar a variável Grupo no exemplo de chamada da função.
Essa função é compatível com Windows NT, XP, 2000.
" Next Set objResultado = Nothing %>