tanitopoli

Les paso un script para cuando se necesita crear varios usuarios de dominio al mismo tiempo. Se que no es complicado hacer click y crearlos sin script, pero para mi es mas comodo esto, ya que tengo que estar creando entornos de prueba con muchos usuarios. Quizas alguien puede tunear el script un poco mas y hacerlo inclusive mas simple. Creacion Dim oContainer 'Container para el nuevo usuario Dim oUser 'Usuario creado 'Obtener el container , siendo el dominio "TEST02.local" y la OU "Test" Set oContainer=GetObject("LDAP://OU=TEST, DC=TEST02,DC=local" ) 'Creamos el usuario Set oUser = oContainer.Create("User","CN=Test User 01" ) 'Se asignan las propiedades del usuario oUser.Put "samAccountName","user1" oUser.Put "givenName","Test" oUser.Put "sn","User 01" oUser.Put "userPrincipalName","[email protected]" oUser.SetInfo oUser.SetPassword("pepe123" ) 'Limpio variable Set oUser = Nothing 'Lo mismo pero sin comentarios, para mostrar que es solo copiar y pegar X veces cambiando los datos del usuario Set oUser = oContainer.Create("User","CN=Test User 02" ) oUser.Put "samAccountName","user2" oUser.Put "givenName","Test" oUser.Put "sn","User 02" oUser.Put "userPrincipalName","[email protected]" oUser.SetInfo oUser.SetPassword("pepe123" ) Set oUser = Nothing 'Limpio todo. Set oUser = Nothing Set oContainer = Nothing WScript.Echo "Finished" Borrado Dim oContainer Set oContainer=GetObject("LDAP://OU=TEST,DC=TEST02,DC=local" ) oContainer.Delete "user","CN=Test User 02" Set oContainer = Nothing WScript.Echo "Finished"

Que linda la nieve, no? sobre todo cuando se derrite, se congela y se hace hielo. link: http://www.videos-star.com/watch.php?video=dooKpdIwwR4 No quiero imaginarme el bardo que seria en BA. Saludos!