Usuário com melhor resposta
Criar usuários em massa no AD 2003 - Usando uma planilha baseado em Excel

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.
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
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
-
-
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
-
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?