none
Atualizar atributos RRS feed

  • Pergunta

  • Pessoal to procurando mais nao manjo muito de script...
    To precisando atualizar o campo office de alguns usuários meus do ad... tenho um arquivo csv com uma coluna com login e outra com as informações de office... Será tranquilo p alguem pq to aqui tentando e tentando...

    Obrigado pelas ajudas..
    sexta-feira, 25 de setembro de 2009 18:01

Respostas

  • Olá,

    Coloque uma linha do seu arquivo csv para tentarmos te ajudar.


    Dá uma olhada no exemplo abaixo:

    Arquivo.xls (layout)

    Coluna 1 = Nome - Exemplo: José D. Silva
    Coluna 2 = Distinguished Name - Exemplo: CN=Jose D Silva,OU=USUARIOS,DC=CONTOSO,DC=MSFT
    Coluna 3 = Escritorio - Exemplo: SAO PAULO




    Script:



    Set objExcel = CreateObject("Excel.Application")


    'caminho do arquivo excel
    Set objWorkbook = objExcel.Workbooks.Open ("c:\Lista_de_Usuarios.xls")
    intRow = 1

    Do Until objExcel.Cells(intRow,1).Value = ""

       nome = objExcel.Cells(intRow, 1).Value
       cn = objExcel.Cells(intRow, 2).Value
       office = objExcel.Cells(intRow, 3).Value

      
       Set objUser = GetObject("LDAP://" & cn)
      
       objUser.physicalDeliveryOfficeName = office

       objUser.SetInfo
       intRow = intRow + 1
    Loop

    objExcel.Quit





    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    segunda-feira, 28 de setembro de 2009 13:00