Creacion bulk de usuarios de dominio

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"