Estimados,
Ya me arden un poco las pestañas ¡así que espero a que me ayuden!
Necesito generar un script en Perl que pueda generar en forma masiva usuarios en Windows. Les comento que el comando para ejecutar esto en Windows es NET USER y ejecutándolo por línea de comandos en Windows sería así:
net user (usuario) /add
El tema está es que eso solo me sirve para generar un solo usuario por comando y necesito crear un .pl que haga la creación de forma masiva. Por ejemplo, crear usuarios que vayan desde C28820 a C28890 llamando a ese comando desde el script.
Obviamente que si hay otra manera, bienvenida sea.
Saludos.-
-
- Publicidad
Generación de usuarios en Windows
5 mensajes
• Página 1 de 1
Generación de usuarios en Windows
por ellocodice » 2011-03-11 15:04 @670
- ellocodice
- Perlero nuevo
- Mensajes: 3
- Registrado: 2011-03-11 14:56 @664
Publicidad
Re: Generación de usuarios en Windows
por explorer » 2011-03-11 15:44 @697
Bienvenido a los foros de Perl en Español, ellocodice.
Pues si es tan fácil crear un usuario, lo único que te queda por hacer es un bucle que vaya recorriendo la lista de usuarios.
Algo así (no probado):
En este caso es fácil pasar de un usuario a otro, porque se compone de letras seguidas de números.
Pues si es tan fácil crear un usuario, lo único que te queda por hacer es un bucle que vaya recorriendo la lista de usuarios.
Algo así (no probado):
Using perl Syntax Highlighting
my $x = 'C28820'; # primer usuario
while ($x le 'C28890') { # último usuario
system('NET', 'USER', $x, '/add'); # creación
$x++; # siguiente usuario
}
while ($x le 'C28890') { # último usuario
system('NET', 'USER', $x, '/add'); # creación
$x++; # siguiente usuario
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
En este caso es fácil pasar de un usuario a otro, porque se compone de letras seguidas de números.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Generación de usuarios en Windows
por ellocodice » 2011-03-11 16:21 @723
¡¡Uhhh, qué maravilla, nunca me contestaron tan rápido!!
Te comento...
El script aparentemente va de maravillas, lo único que me queda es pasarle como parámetro el password que debería tener cada cuenta que en Windows se lo paso como un parámetro adicional al comando que te pase antes:
net user (usuario) /add (password)
¿Dónde se lo puedo poner en el script?
Muchas Gracias.
¡¡Listo!! ¡¡Olvídate de lo que te pregunte antes!!
Lo definí así:
¡¡Lo acabo de probar y es una máquina de generar usuarios!!
¡Te agradezco enormemente, amigo!
¡Slds desde Buenos Aires!
Te comento...
El script aparentemente va de maravillas, lo único que me queda es pasarle como parámetro el password que debería tener cada cuenta que en Windows se lo paso como un parámetro adicional al comando que te pase antes:
net user (usuario) /add (password)
¿Dónde se lo puedo poner en el script?
Muchas Gracias.
¡¡Listo!! ¡¡Olvídate de lo que te pregunte antes!!
Lo definí así:
Using perl Syntax Highlighting
my $x = 'C28820';
while ($x le 'C28890') {
system('NET', 'USER', $x, '/add', 'DMg7Cvp4');
$x++;
while ($x le 'C28890') {
system('NET', 'USER', $x, '/add', 'DMg7Cvp4');
$x++;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
¡¡Lo acabo de probar y es una máquina de generar usuarios!!
¡Te agradezco enormemente, amigo!
¡Slds desde Buenos Aires!
- ellocodice
- Perlero nuevo
- Mensajes: 3
- Registrado: 2011-03-11 14:56 @664
Re: Generación de usuarios en Windows
por ellocodice » 2011-03-14 12:00 @542
Hola nuevamente.
Estoy intentando hacer lo mismo pero en ActiveDirectory. El comando para crear usuarios en AD es el siguiente:
dsadd user cn=C28890,ou=empleados,dc=configuralo,dc=ca -passwd (password)
¿Cómo puedo hacer lo mismo en el script anterior?
Muchas gracias.
Estoy intentando hacer lo mismo pero en ActiveDirectory. El comando para crear usuarios en AD es el siguiente:
dsadd user cn=C28890,ou=empleados,dc=configuralo,dc=ca -passwd (password)
¿Cómo puedo hacer lo mismo en el script anterior?
Muchas gracias.
- ellocodice
- Perlero nuevo
- Mensajes: 3
- Registrado: 2011-03-11 14:56 @664
Re: Generación de usuarios en Windows
por explorer » 2011-03-14 12:06 @546
Poniendo el nombre del programa y los argumentos en el system() igual que antes.
En este caso, uno de los argumentos debe ir con comillas dobles, para que haga la interpolación del valor de $x:
"cn=$x,ou=empleados,dc=configuralo,dc=ca -passwd DMg7Cvp4"
En este caso, uno de los argumentos debe ir con comillas dobles, para que haga la interpolación del valor de $x:
"cn=$x,ou=empleados,dc=configuralo,dc=ca -passwd DMg7Cvp4"
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
5 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 15 invitados