Crear 300 usuarios utilizando scripts

Adapta este que pego abajo


'Este script crea 100 usuarios en la ou 100usuarios en el contexto de
nombres por defecto
' es decir, en el dominio por defecto donde se ejecute.
'

Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://ou0usuarios," & _
objRootDSE.Get("defaultNamingContext"))

'Para crear el usuario, como mínimo es necesario ponerle el cn y la
cuenta SAM
For i = 1 To 100
Set objUser = objContainer.Create("User", "cn=UserNo" & i)
objUser.Put "sn", "SNUser" & i
objUser.Put "sAMAccountName", "UserNo" & i
objUser.SetInfo
Next

WScript.Echo "100 Usuarios creados."


Guillermo Delprato
MVP-MCT-MCSE-MCP
Buenos Aires, Argentina

NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos.
Este mensaje se proporciona "como está" sin garantías de ninguna clase,
y no otorga ningún derecho. Ud. asume los riesgos
This posting is provided "AS IS" with no warranties, and confers no
rights. You assume all risk for your use.





"David" wrote in message
news::

Hola Amigos
Alguien me puede ayudar a como crear 300 usuarios mediante el uso de
scripts.

muchas gracias por su apoyo que me puedan brindar.

Atte.

David