Criar 10 usuários no Active Directory
_______________________________________________________________________________

Este script pode ser facilmente manipulado incluindo seus valores afim de atender uma determinada necessidade.

Neste o script criar 10 usuários no Active Directory no momento da execução

Código do Script
_______________________________________________________________________________

' Usuarios.vbs
'
' Marcos Henrique
' marcos@marcoshenrique.com
' www.marcoshenrique.com
'
Set objRootDSE = GetObject("LDAP://rootDSE")

Set objContainer = GetObject("LDAP://cn=Users," & _
    objRootDSE.Get("defaultNamingContext"))
 
For i = 0 To 9
    Set objLeaf = objContainer.Create("User", "cn=UserN" & i)
    objLeaf.Put "sAMAccountName", "UserN" & i
    objLeaf.SetInfo
Next
 
WScript.Echo "10 usuarios foram criados!"

01 Passo: Execute o script Usuarios.vbs

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

02 Passo: Usuários criados na OU=Users