none
Exportar Usuarios do AD para uma planilha RRS feed

  • Pergunta

  • Boa Noite!

     

    Pessoal estou precisando exportar os usuarios que eu tenho no AD para uma planilha do excel queria saber se é possivel fazer isso via Script, e se for se tem algum script que voces possam me passar .

     

     

    Grato desde já.

    terça-feira, 2 de setembro de 2008 00:36

Respostas

  • Olá,


    procure pelo comando csvde. Ele exporta um CSV, que pode ser lido no excel facilmente.


    []s,

    --
    Vinicius Canto
    MVP Admin Frameworks
    Blog sobre scripting: http://viniciuscanto.blogspot.com
    terça-feira, 2 de setembro de 2008 12:37
    Moderador

Todas as Respostas

  • Olá,


    procure pelo comando csvde. Ele exporta um CSV, que pode ser lido no excel facilmente.


    []s,

    --
    Vinicius Canto
    MVP Admin Frameworks
    Blog sobre scripting: http://viniciuscanto.blogspot.com
    terça-feira, 2 de setembro de 2008 12:37
    Moderador
  • Não esqueça de saber depois como importa-los, é mais importante do que exportar...
    Existe uma ferramenta gratuita da Microsoft chamada ADMT - Active Directory Migration Tool que faz a migração de contas de usuários.
    Também existe uma excelente ferramenta da Tools Software chamada Migrate Magic que tem todas as funções do ADMT e algumas outras. e se foi ultil não esqueça de marcar ok. abs
    segunda-feira, 8 de setembro de 2008 15:18
  • Caro Tiago vê se este vbs te ajuda e me posta a resposta:

    Set objNetwork = CreateObject("WScript.Network")
    Set objExcel = CreateObject("Excel.Application")
    
    objExcel.Visible = True
    objExcel.Workbooks.Add
    intRow = 2
    
    
    objExcel.Cells(1, 1).Value = "Usuario de rede"
    objExcel.Cells(1, 2).Value = "Nome Completo"
    objExcel.Cells(1, 3).Value = "Descrição"
    objExcel.Cells(1, 4).Value = "Email"
    objExcel.Cells(1, 5).Value = "Conta Desabilitada?"
    
    'strDomain = InputBox ("Digite o dominio, ex.: dominio.com.br")
    strDomain = objNetwork.UserDomain
    Set DomObj = GetObject("WinNT://" & strDomain )
    DomObj.Filter = Array("User")
    For Each objUser In DomObj
    
     UserPath = GetUserPath(objUser.Name)
     Set objUserLDAP = getobject(UserPath)
        objExcel.Cells(intRow, 1).Value = objUserLDAP.sAMAccountName
        objExcel.Cells(intRow, 2).Value = objUserLDAP.DisplayName
        objExcel.Cells(intRow, 3).Value = objUserLDAP.Description
        objExcel.Cells(intRow, 4).Value = objUserLDAP.mail
        objExcel.Cells(intRow, 5).Value = objUserLDAP.AccountDisabled
        intRow = intRow + 1
    
    Next
    objExcel.Range("A1:E1").Select
    objExcel.Selection.Interior.ColorIndex = 19
    objExcel.Selection.Font.ColorIndex = 11
    objExcel.Selection.Font.Bold = True
    objExcel.Cells.EntireColumn.AutoFit
     
    MsgBox "Concluído"
    
    Function getUserPath(byval sUserName)
        set cmd=createobject("ADODB.Command")
        set cn=createobject("ADODB.Connection")
        set rs=createobject("ADODB.Recordset")
       
        cn.open "Provider=ADsDSOObject;"
       
        cmd.commandtext = "SELECT adspath from 'LDAP://" & getnc & _
                  "' WHERE objectCategory = 'User' and sAMAccountName = '" & sUserName & "'"
        cmd.activeconnection = cn
       
        set rs = cmd.execute
       
        if rs.bof <> true and rs.eof<>true then
            getUserPath=rs(0)
        else
            getUserPath = ""
        end if
        cn.close
    
    end function
    
    
    function getNC
        set objRoot=getobject("LDAP://RootDSE")
        getNC=objRoot.get("defaultNamingContext")
    end function

    Essa aqui é a versão 1 ainda estou tentando modificar para a 2 mais ainda não esta rolando mais quando funfa posto aqui.

     
    terça-feira, 14 de agosto de 2012 21:39
  • primeiro crie uma query com o código abaixo para listar todos os usuarios.

    (&(&(|(&(objectCategory=person)(objectSid=*)(!samAccountType:1.2.840.113556.1.4.804:=3))(&(objectCategory=person)(!objectSid=*))(&(objectCategory=group)

    clique em cima da query e exporte para um arquivo .txt após isto copie todo o arquivo e cole no exel.

    quarta-feira, 15 de agosto de 2012 11:48