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

En la siguiente página tienes un ejemplo de cómo crear 1000 cuentas de usuario con un script. En esa misma web tienes más ejemplos relacionados.
http://www.microsoft.com/technet/sc...fault.mspx


Saludos
José Antonio Quílez
Sevilla - España
________________

"David" escribió en el mensaje 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

Ok muchas gracias
estoy revisando, para crear los usuario tengo que tener una relacion en
algun tipo de archivo (txt, csv, etc)?


"José Antonio Quílez [MS MVP]" wrote:

En la siguiente página tienes un ejemplo de cómo crear 1000 cuentas de usuario con un script. En esa misma web tienes más ejemplos relacionados.
http://www.microsoft.com/technet/sc...fault.mspx


Saludos
José Antonio Quílez
Sevilla - España
________________

"David" escribió en el mensaje 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

Ese script te crea las cuentas de usuario poniendo nombres numerados consecutivamente. Para poner los nombres de cuenta como quieras puedes crear un archivo de texto, y sustituir el bucle del script por otro en el que leas el fichero linea a linea, usando el primer campo de la linea, por ejemplo, como nombre de la cuenta en lugar de "UserNo" & i.
Te he creado el siguiente script, que te lee de un fichero de texto users.txt (en su mismo directorio) linea a linea los usuarios en la forma

Administracion,PepeLo,Pepe Lopez,91234232
Administracion,JuanRu,Juan Ruiz,954487686
Nominas,LuisMa,Luis Marquez,953325526

y que te crea las cuentas de usuario, estableciéndoles también el teléfono y la cuenta de correo basada en el username. El primer campo es la OU en la que te lo creará. No lo he probado, pues no estoy ahora mismo en el trabajo, pero creo recordar que las OUs tienen que estar creadas de antemano.

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("users.txt", ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
Set objOU = GetObject("LDAP://OU=" & arrServiceList(0) & ",dc=dominio,dc=com")
Set objUser = objOU.Create("User", "cn=" & arrServiceList(1))
objUser.Put "sAMAccountName", arrServiceList(1)
objUser.Put "DisplayName", arrServiceList(2)
objUser.Put "TelephoneNumber", arrServiceList(3)
objUser.Put "mail", arrServiceList(0) & "@dominio.com"
objUser.SetInfo
Loop

Te he puesto esos atributos como ejemplo, pero puedes crear las cuentas de usuario estableciendo tantos campos como necesites. Sólo tienes que incluirlos en la linea de cada usuario, teniendo en cuenta que el primero (la OU de destino en mi ejemplo) está numerado como 0. El nombre de los distintos campos lo puedes encontrar en otros ejemplos de la página que te he dicho antes, o también puedes usar la herramienta de administración del esquema de AD (tendrás que ejecutar una mmc /a y agregar ese complemento), y ver con ella los nombres de todos los atributos de la clase User.

Espero que te sirva, pues es muy fácil modificarlo a tu gusto y creo que se entiende bastante bien.


Saludos
José Antonio Quílez
Sevilla - España
________________

"David" escribió en el mensaje news:

Ok muchas gracias
estoy revisando, para crear los usuario tengo que tener una relacion en
algun tipo de archivo (txt, csv, etc)?


"José Antonio Quílez [MS MVP]" wrote:

En la siguiente página tienes un ejemplo de cómo crear 1000 cuentas de usuario con un script. En esa misma web tienes más ejemplos relacionados.
http://www.microsoft.com/technet/sc...fault.mspx


Saludos
José Antonio Quílez
Sevilla - España
________________

"David" escribió en el mensaje 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

Sorry, en la linea del mail sustituye el (0) por (1). Es que lo de crearlos en distintas OUs lo he hecho después y he tenido que cambiar los números de los campos, y ese se me pasó.


Saludos
José Antonio Quílez
Sevilla - España
________________

"José Antonio Quílez [MS MVP]" escribió en el mensaje news:%
Ese script te crea las cuentas de usuario poniendo nombres numerados consecutivamente. Para poner los nombres de cuenta como quieras puedes crear un archivo de texto, y sustituir el bucle del script por otro en el que leas el fichero linea a linea, usando el primer campo de la linea, por ejemplo, como nombre de la cuenta en lugar de "UserNo" & i.
Te he creado el siguiente script, que te lee de un fichero de texto users.txt (en su mismo directorio) linea a linea los usuarios en la forma

Administracion,PepeLo,Pepe Lopez,91234232
Administracion,JuanRu,Juan Ruiz,954487686
Nominas,LuisMa,Luis Marquez,953325526

y que te crea las cuentas de usuario, estableciéndoles también el teléfono y la cuenta de correo basada en el username. El primer campo es la OU en la que te lo creará. No lo he probado, pues no estoy ahora mismo en el trabajo, pero creo recordar que las OUs tienen que estar creadas de antemano.

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("users.txt", ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
Set objOU = GetObject("LDAP://OU=" & arrServiceList(0) & ",dc=dominio,dc=com")
Set objUser = objOU.Create("User", "cn=" & arrServiceList(1))
objUser.Put "sAMAccountName", arrServiceList(1)
objUser.Put "DisplayName", arrServiceList(2)
objUser.Put "TelephoneNumber", arrServiceList(3)
objUser.Put "mail", arrServiceList(0) & "@dominio.com"
objUser.SetInfo
Loop

Te he puesto esos atributos como ejemplo, pero puedes crear las cuentas de usuario estableciendo tantos campos como necesites. Sólo tienes que incluirlos en la linea de cada usuario, teniendo en cuenta que el primero (la OU de destino en mi ejemplo) está numerado como 0. El nombre de los distintos campos lo puedes encontrar en otros ejemplos de la página que te he dicho antes, o también puedes usar la herramienta de administración del esquema de AD (tendrás que ejecutar una mmc /a y agregar ese complemento), y ver con ella los nombres de todos los atributos de la clase User.

Espero que te sirva, pues es muy fácil modificarlo a tu gusto y creo que se entiende bastante bien.


Saludos
José Antonio Quílez
Sevilla - España
________________

"David" escribió en el mensaje news:

Ok muchas gracias
estoy revisando, para crear los usuario tengo que tener una relacion en
algun tipo de archivo (txt, csv, etc)?


"José Antonio Quílez [MS MVP]" wrote:

En la siguiente página tienes un ejemplo de cómo crear 1000 cuentas de usuario con un script. En esa misma web tienes más ejemplos relacionados.
http://www.microsoft.com/technet/sc...fault.mspx


Saludos
José Antonio Quílez
Sevilla - España
________________

"David" escribió en el mensaje 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