VBScript - Delete 1000 users at one time

I was playing with a script I got from the MS repository to create 1000 sample users and was wondering what I would change in it to make it delete the same 1000 users. I tried changing the objContainer.Create to objContainer.Delete and removed the two lines below it with no success. I posted the script below.

Thanks in advance
Randy


Set objRootDSE = GetObject("LDAP://rootDSE")

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

For i = 1 To 1000
Set objLeaf = objContainer.Create("User", "cn=UserNo" & i)
objLeaf.Put "sAMAccountName", "UserNo" & i
objLeaf.SetInfo
Next

WScript.Echo "1000 Users created."

You can use this script to delete all of the users that you created.Your script created 1000 users named UserNo1, UserNo2, and so on. To remove them, you first connect to the container object as before. This time there is no need to access (or create) a directory tree, you can connect to a user account directly by name. In this case the loop goes through each name as before only this time we're deleting them.

If you want to learn to use ADSI effectively, you should learn by example. It's definitely worth taking the time to check out the Microsoft Scripting Guys' ADSI Scriptomatic. The MSDN also contains a great ADSI reference called the ADSI Scripting Primer.

Hope this helps.

Thanks for the reply
When I run that I get error on line 7 char 5 no such object on the server.
Any ideas

Thanks
Randy

That indicates that it couldn't find the specified user.

The 1st user was already deleted so I changed it from 1 to 1000 to 2 to 1000 and it worked perfect.

Thank You very much
Randy

Excellent. That would explain it. I was beating my head against a wall trying to figure out why on earth that wouldn't have worked if the users existed. Thanks for the update. I glad that helped you out.