none
Criar usuários em massa no AD 2003 - Usando uma planilha baseado em Excel RRS feed

  • Pergunta

  • Boa tarde senhores, tenho cerca de 200 usuários que preciso criar no meu AD (Windows 2003), alguém tem algum exemplo de como posso criar usando uma planilha em Excel?

    Preciso que todos estejam no grupo users e com uma senha padrão 123@abc por exemplo.
    terça-feira, 13 de outubro de 2009 17:08

Respostas

  • Olá,

    Voce precisa criar um arquivo no excel
    Neste arquivo, coloque o nome completo do usuario na coluna 1.
    Na coluna 2, coloque o nome que o usuario ira usar para logar no dominio.

    Salve este arquivo no c:\users.xls

    Copie o script que postei e altere a linha abaixo:

    Set objOU = GetObject("LDAP://OU=usuarios,ou=financeiro,dc=contoso,dc=local")


    Para uma OU que você desejar. Exemplo: CN=USERS,contoso,local

    Onde cn é o container users (padrão)

    Se funcionar, basta você incluir novas colunas no arquivo do excel e incluir no script. Exemplo :

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

    No exemplo, coloquei o telefone na coluna 3 do arquivo do excel.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    • Sugerido como Resposta Ed Nieves segunda-feira, 12 de julho de 2010 17:47
    • Marcado como Resposta Fábio JrModerator sexta-feira, 13 de janeiro de 2012 11:08
    quarta-feira, 14 de outubro de 2009 16:39

Todas as Respostas

  • Olá,

    Dá uma olhada no exemplo abaixo:

    Set objExcel = CreateObject("Excel.Application")

    Set objWorkbook = objExcel.Workbooks.Open ("C:\users.txt")
    intRow = 1


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

    Set objOU = GetObject("LDAP://OU=usuarios,ou=financeiro,dc=contoso,dc=local")
    Set objuser = objOU.Create("user", "cn="&nome)

    objuser.put "name",nome
    objuser.setinfo
    objuser.AccountDisabled = False
    objuser.setinfo
    objUser.SetPassword "EMAIL REMOVED"
    objuser.setinfo
    intRow = intRow + 1
    Loop

    objExcel.Quit


    No exemplo estou usando o nome completo na coluna 1 e o canonical name na coluna 2.

    Você pode incluir quantos campos precisar.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique




    quarta-feira, 14 de outubro de 2009 12:03
  • Jesiel,

    POderia explicar passo a passo como aplicar este script, pois ainda nao tenho muita experiência com Script e como eu posso adequar ao meu ambiente.

    Obrigado.
    quarta-feira, 14 de outubro de 2009 14:32
  • Olá,

    Voce precisa criar um arquivo no excel
    Neste arquivo, coloque o nome completo do usuario na coluna 1.
    Na coluna 2, coloque o nome que o usuario ira usar para logar no dominio.

    Salve este arquivo no c:\users.xls

    Copie o script que postei e altere a linha abaixo:

    Set objOU = GetObject("LDAP://OU=usuarios,ou=financeiro,dc=contoso,dc=local")


    Para uma OU que você desejar. Exemplo: CN=USERS,contoso,local

    Onde cn é o container users (padrão)

    Se funcionar, basta você incluir novas colunas no arquivo do excel e incluir no script. Exemplo :

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

    No exemplo, coloquei o telefone na coluna 3 do arquivo do excel.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    • Sugerido como Resposta Ed Nieves segunda-feira, 12 de julho de 2010 17:47
    • Marcado como Resposta Fábio JrModerator sexta-feira, 13 de janeiro de 2012 11:08
    quarta-feira, 14 de outubro de 2009 16:39
  • Jesiel,

    Copiei o script e fiz como vc falou.

    salvei o script com extensão VBS e realmente os usuarios foram adcionados.

     

    mas.....

    Queria que já criasse o nome do usuário tambem.

    E que as contas fossem criadas com a opção de mudar a senha no proximo logon.

     

    como faço isso?

    quarta-feira, 14 de outubro de 2009 22:07