none
Grupo de usuário RRS feed

  • Pergunta

  • Srs. olá!

     

    Existe a possibilidade de conseguir exportar todos os usuários dentro de cada grupo de distribuição e segurança para um arquivo xls ou txt ?

    quinta-feira, 15 de maio de 2008 17:28

Todas as Respostas

  • Renato,

     

    Eu sei como fazer isso somente para um determinado grupo.

     

    Você deverá alterar o caminho da OU do seu grupo, na linha em vermelho.

     

    Veja se resolve o seu problema.

     

    Const ForAppending = 8

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile  ("c:\teste.txt", ForAppending, True)

    On Error Resume Next
     
    Set objGroup = GetObject _
      ("LDAP://cn=Contabilidade,ou=Empresa,dc=prd,dc=srv,dc=br")  'colocar a OU correta
    objGroup.GetInfo
     
    arrMemberOf = objGroup.GetEx("member")
     

     objTextFile.WriteLine("Membros do Grupo:")
    For Each strMember in arrMemberOf
       
     objTextFile.WriteLine(strMember)
    Next

    objTextFile.Close

     

     

    Abraços

    quinta-feira, 15 de maio de 2008 17:58
  • Luis obrigado por sua ajuda, mas tenho uma duvida;

     

    objTextFile.WriteLine("Membros do Grupo:")
    For Each strMember in arrMemberOf

     

    na opção em vermelho eu adiciono o que?

     

    quinta-feira, 15 de maio de 2008 20:03
  •  

    renato,

     

    não vai nada. isso é só um cabeçalho.

     

    quinta-feira, 15 de maio de 2008 20:41
  • Olá França, obrigado, então rodei o script mas não me trouxe os usuarios do grupo Sad

     

    quinta-feira, 15 de maio de 2008 20:52
  • Renato,

     

    Qual o nome FQDN do seu dominio?

     

    O Script deu algum erro? Caso negativo, retire o "On Error Resume Next"

     

    Qual a estrutura das OUs até chegar ao grupo?

     

    Abração!

     

     

    Se a mensagem foi util, marque-a como Sim !

    quinta-feira, 15 de maio de 2008 21:17
  •  

    Não deu nenhum erro, só não retornou com os usuários do grupo

     

    minhaempresa.br

          >>>>>OU=grupos

      >>>>grupoA

     

     

    Obrigado!

    quinta-feira, 15 de maio de 2008 21:38
  • Renato,

     

    Veja se funciona agora ou se apresenta algum erro.

     

    Const ForAppending = 8

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile  ("c:\teste.txt", ForAppending, True)

     
    Set objGroup = GetObject _
      ("LDAP://cn=GrupoA,ou=grupos,dc=minhaempresa,dc=br")  'colocar a OU correta
    objGroup.GetInfo
     
    arrMemberOf = objGroup.GetEx("member")
     

     objTextFile.WriteLine("Membros do Grupo:")
    For Each strMember in arrMemberOf
       
     objTextFile.WriteLine(strMember)
    Next

    objTextFile.Close

     

    Att.

     

    Luis Redda

    quinta-feira, 15 de maio de 2008 22:28
  • Olá Luis, obrigado por sua ajuda!

     

    Cara o arquivo vem em branco Sad

     

    sexta-feira, 16 de maio de 2008 19:20