///
No ambiente Windows considere o script abaixo, cuja função é listar todos os grupos aos quais pertence um determinado usuário no Active Directory.
1 strUser = inputbox("DIGITE O LOGIN")
2 objDom = ",cn=users,dc=eu,dc=local"
3 Set objFS = CreateObject("SCRIPTING.FileSystemObject")
4 Set objUser = GetObject("LDAP://cn=" & strUser & objDom)
5 Set f = objFS.OpenTextFile(strUser & ".txt",8,true)
6 f.writeline("LISTA DE GRUPOS DOS USUARIOS NO AD")
7 f.writeline("---------------------------------")
8 f.writeBlanklines(1)
9 For Each strGroup in objUser.memberOf
10 Set objGroup = GetObject("LDAP://" & strGroup)
11 f.writeline(objGroup.CN)
12 Next
13 wscript echo "OK"Para que sua execução seja bem sucedida é necessário que o domínio seja informado corretamente na linha