Filed under: WINDOWS SERVER 2003
Por Victor Hugo Rodrigues
Data de criação: 18/01/2008
Resumo
Quantas vezes nos deparamos com o desafio de criar muitas contas de usuário e só temos em mão uma planilha ou um arquivo de teste com o nome do usuário?
Este artigo aplica-se aos seguintes produtos e tecnologias:
- Windows Server 2003
- Active Directory
Criando contas de usuário usando uma planilha com VBScript
Há alguns meses estava de frente com um grande desafio criar mais de 500 contas de usuário no Active Directory, só tinha em mãos o nome completo deles.E agora? Criar todos na mão? Submeter-me a um provável erro digitação? Perder tempo?
Pesquisando na internet encontrei esse site http://www.computerperformance.co.uk/, contém muitos tutoriais e scripts.Nele encontrei o um excelente script que utiliza uma planilha para criar os usuários no Active Directory.
Link do Script: http://www.computerperformance.co.uk/vbscript/vbscript_user_spreadsheet.htm
Links Relacionados
· http://www.computerperformance.co.uk/
Conclusão
No site apesar de Inglês esta muito bem explicado.Quem estiver com duvidas quanto como montar a planilha e o script, coloca nos comentários as duvidas que eu mando a planilha e o script por e-mail.
11 Comentários até o momento
Deixe um comentário
Ótimo site!
Comentário por Mílcher C. Camargo março 14, 2008 @ 1:25 pmFavor enviar a planilha e o script criando contas de usuário.
Atenciosamente
Comentário por Manoel Freire de Araújo Filho setembro 21, 2008 @ 10:32 pmManoel Freire de Araújo Filho
[...] o script, coloca nos comentários as duvidas que eu mando a planilha e o script por e-mail. Fonte: techexp Tags: Windows Server [...]
Pingback por Criar contas de usuário usando uma planilha « Soluções Microsoft em Ambiente Corporativo novembro 5, 2008 @ 3:28 pmOla Tudo Bem,
Estava lendo seu material, achei interessante criação de usuario pela planilha, como eu preciso criar 300 usuarios voce pode me mandar planilha por e-mail…
Obrigado
Comentário por Tony Anderson novembro 19, 2008 @ 1:24 amBoa tarde
Comentário por Luis Cordeiro dezembro 18, 2008 @ 3:53 pmmuito interessante, mas pode-me mandar um exel e script para eu poder tentar, pois tenho 1500 contas de alunos para criar
Prof. Luis Cordeiro
Prezado estou com dificuldades de adicionar o usuario a um grupo no AD. Fiz o Script segue!
‘ ——————————————————’
Option Explicit
Dim objRootLDAP, objContainer, objUser, objShell, objGroup
Dim objExcel, objSpread, intRow
Dim strUser, strOU, strSheet
Dim strCN, strPWD, strUserDN, strAcao, strError, strChamado,strgrupo
const strDomainDN = “DC=empresa,DC=timbrasil,DC=com,DC=br”
strSheet = “C:\ADScripts\grupo\Grupo.xls”
Set objExcel = CreateObject(“Excel.Application”)
Set objSpread = objExcel.Workbooks.Open(strSheet)
objExcel.Visible =true
intRow = 2
Do Until objExcel.Cells(intRow,1).Value = “”
strCN = Trim(objExcel.Cells(intRow, 1).Value)
strUserDN = GetUserDNBysAMAccountName(strCN)
strgrupo = Trim(objExcel.Cells(intRow, 2).Value)
Dim bolReturn
bolReturn = Grupo(strgrupo)
if bolReturn then
objExcel.Cells(intRow, 4).Value=”OK”
Else
objExcel.Cells(intRow, 4).Value=”NOK”
objExcel.Cells(intRow, 5).Value=strError
End If
objExcel.Cells(intRow, 3).Value=strUserDN
intRow = intRow + 1
Loop
objExcel.Quit
Function GetUserDNBysAMAccountName(byval strpUserLogonName)
Dim objCon
Dim objRs
Dim strSQL
Set objCon = createobject(“ADODB.Connection”)
Set objRs = createobject(“ADODB.Recordset”)
strSQL = “;(sAMAccountName=” & strpUserLogonName & “);distinguishedName;subtree”
objCon.Provider = “ADSDSOObject”
call objCon.Open(“ADs Provider”)
Set objRs = objCon.Execute(strSQL)
if not objRs.EOF then
GetUserDNBysAMAccountName = objRs.Fields(0).Value
else
GetUserDNBysAMAccountName = “”
end if
Call objCon.Close
set objCon = nothing
set objRs = nothing
End Function
Function Grupo (byval strUserDN)
grupo = True
Const ADS_PROPERTY_APPEND = 3
Dim objGroup
Set objGroup = GetObject (“LDAP://” & strUserDN)
objGroup.PutEx ADS_PROPERTY_APPEND, _
“member”,Array (“” & strgrupo & “”)
objGroup.SetInfo
End Function
WScript.Quit
Comentário por Joelson janeiro 20, 2009 @ 3:03 pmOlá…….gostei muito do site…..olhei também sobre como criar as contas….mas não entendi muito bem….poderia me ajudar????Não estou sabendo nem como faz a planilha e nem o script e muito menos como executá-la…..grato se puder me ajudar..
Comentário por Ricardo março 3, 2009 @ 7:25 pmOi, vc poderia enviar a planilha pra mim? Preciso criar constantemente vários usuários no AD e sempre perco muito tempo. Ficaria muito agradecida.
Comentário por manuela maio 21, 2009 @ 5:39 pmt+
só completando, se possível a planilha tivesse as opções de que o usuário não pode alterar a senha e a senha nunca expira. Isso facilitaria muito a minha vida
Comentário por manuela maio 21, 2009 @ 5:51 pmola desejo ter uma planilha para controlar as despesas da minha casa agradece carlos junior
Comentário por carlos junior julho 20, 2009 @ 8:33 pmOpa muito legal esse post msm
Comentário por João maio 19, 2010 @ 1:33 amEu não entendi como montar a planilha, nem cheguei no script ainda
^^ se puder mandar os 2 para eu estudar um pouco
Abraço e vlw
otimo Blog