none
Exportar usuarios RRS feed

  • Pergunta

  •  

    Boa tarde,

     

    Gostaria de exportar para um arquivo TXT todos os usuarios de um grupo, por acaso alguém poderia me ajudar???

     

    grato

    ronaldo

    sexta-feira, 8 de fevereiro de 2008 16:12

Respostas

  • 'Esse funciona legal!
    'Por favor não retire os méditos da pessoa que fez o script.




    'Este script busca no AD os membros de determinado grupo e escreve em um arquivo no diretório c:\grupos
    'Feito por Guina (02\10\2006)


    On Error Resume Next

    Diretorio= "c:\grupos"

    grupo= InputBox("Digite o nome do grupo ")

    file= grupo & ".txt"

    Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")

    Set objFolder = oFSO.CreateFolder(Diretorio)
    Set Dir=oFSO.GetFolder(Diretorio)

    Set arqtxt = Dir.CreateTextFile(file, True)

    Set rootDSE = GetObject("LDAP://RootDSE")
    domainContainer =  rootDSE.Get("defaultNamingContext")
    Set conn = CreateObject("ADODB.Connection")
    conn.Provider = "ADSDSOObject"
    conn.Open "ADs Provider"
    LDAPStr = "<LDAP://" & DomainContainer & ">;(&(objectclass=group)(objectCategory=group)(samaccountname=" & grupo & "));adspath;subtree"

    Set rs = conn.Execute(LDAPStr)
    If rs.RecordCount = 1 Then
       Set oGroup = GetObject(rs.Fields(0).Value)
             
    End If
    for each strMember in oGroup.member

    Spmember = Split(strMember, ",")

    member= Spmember(0)

    arqtxt.WriteLine Mid (member,4)
        
    Next

    iGroupCount = 0
         For each strMember in oGroup.member
              If Len(strMember) = 0 Then
                   wscript.echo "Grupo sem nenhum membro ou não existente!."
              Else
                   iGroupCount = iGroupCount + 1
                 
              End If
         Next

    arqtxt.WriteLine("Número total de usuarios neste grupo = ") & iGroupCount
    arqtxt.Close 

    WScript.echo "pronto!!!"
    wscript.quit
    sexta-feira, 8 de fevereiro de 2008 22:48