none
script user AD RRS feed

  • Pergunta

  • Jesiel, boa tarde
    Fiz alguns testes com o script de criação de usuários e funcionou perfeitamente. A única dúvida é que preciso criar alguns usuários cerca de 600 usuários no AD só que o campo sAMAccountName precisa ser numérico, tentei criar o arquivo .xls com a coluna informada por voce com valores númericos e o script não funcionou, se colocar os usuários com caracteres funciona perfeitamente, tem alguma solução?Muito obrigado.
    terça-feira, 21 de julho de 2009 21:04

Respostas

Todas as Respostas

  • Olá,

    Tente formatar a coluna do Excel para Texto.

    Mesmo sendo número, o ad vai aceitar caracter (formato)


    Faça os testes e nos retorne.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta Junior_mcp quarta-feira, 22 de julho de 2009 15:04
    • Não Marcado como Resposta Junior_mcp quarta-feira, 22 de julho de 2009 15:04
    quarta-feira, 22 de julho de 2009 01:41
  • OK vou efetuar os testes e retornar o resultado.

    Obrigado pela ajuda


    Junior
    MCP
    MCSA
    MCTS Windows 2008
    quarta-feira, 22 de julho de 2009 14:39
  • Perfeito Jesiel testei o script alterando o arquivo em Excel formatando a coluna para Texto.

    Rodei o script e importou todos usuarios que preciso.

    Obrigado.

    vou fazer a classificação.

    Junior
    quarta-feira, 22 de julho de 2009 15:06
  • Olá,

    Bacana Junior..

    Marque a resposta para finalizar a Thread.

    Jesiel
    • Marcado como Resposta Junior_mcp quarta-feira, 22 de julho de 2009 15:50
    quarta-feira, 22 de julho de 2009 15:13
  • Jesiel, boa tarde!

    Testei seu script e funcionou perfeitamente.

    Teria como incrementar uma coluna no Excel com a senha do usuário?

    quinta-feira, 23 de julho de 2009 15:41
  • Olá,

    Adicione a linha abaixo do objUser.setinfo:

    objUser.SetPassword nomedavariavelexcel


    Se tiver alguma dúvida, coloque o script na íntegra. Fica mais fácil para futuras consultas.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    quinta-feira, 23 de julho de 2009 16:19
  • Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open ("C:\users.xls")
    intRow = 1
    Do Until objExcel.Cells(intRow,1).Value = ""
        nome= objExcel.Cells(intRow, 1).Value
        cn= objExcel.Cells(intRow, 2).Value
        email= objExcel.Cells(intRow, 3).Value
    Set objOU = GetObject("LDAP://OU=teste,dc=fibra-acad,dc=int")
    Set objUser = objOU.Create("user", "cn="&nome)

    objUser.put "name",nome
    objUser.put "displayname",nome
    objUser.put "sAMAccountName",cn
    objUser.put "givenName",nome
    objUser.put "userPrincipalName",email
    objUser.setinfo
    objUser.SetPassword variavelExcel????
    intRow = intRow + 1
    Loop

    objExcel.Quit

    Que variável seria essa?

    quinta-feira, 23 de julho de 2009 17:01
  • Olá,

    Criei a variavel senha...  usando os valores da coluna 4 do excel.


    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open ("C:\users.xls")
    intRow = 1
    Do Until objExcel.Cells(intRow,1).Value = ""
        nome= objExcel.Cells(intRow, 1).Value
        cn= objExcel.Cells(intRow, 2).Value
        email= objExcel.Cells(intRow, 3).Value

        senha = objExcel.Cells(intRow, 4).Value

      
    Set objOU = GetObject("LDAP://OU=teste,dc=fibra-acad,dc=int ")
    Set objUser = objOU.Create("user", "cn="&nome)

    objUser.put "name",nome
    objUser.put "displayname",nome
    objUser.put "sAMAccountName",cn
    objUser.put "givenName",nome
    objUser.put "userPrincipalName",email
    objUser.setinfo
    objUser.SetPassword senha
    intRow = intRow + 1
    Loop

    objExcel.Quit


    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Sugerido como Resposta Daxel quinta-feira, 30 de julho de 2009 21:16
    quinta-feira, 23 de julho de 2009 19:05
  • Jesiel muito obrigado mesmo, o Sr. Não quebrou um galho e sim uma arvore.

    Estou muito agradecido mesmo.

    quinta-feira, 23 de julho de 2009 20:20