Creating users in Windows 2003

Question

I need a script to create 10 users in Windows 2003.

Answer 1

Will VB script work?

Option Explicit
Dim strUser
Dim objRootLDAP, objContainer, objNewUser

for count =0 to 9

strUser = "stackOUser" + count 


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

' Build the actual User.
Set objNewUser = objContainer.Create("User", "cn=" & strUser)
objNewUser.Put "sAMAccountName", strUser
objNewUser.SetInfo 

next

WScript.Quit