Creating 1000 User Accounts
———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————– –Creating 1000 User Accounts 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.SetInfoNext WScript.Echo "1000 Users created." ———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————–—-Creating an Active Directory User Account————————————————————————- Creates a user account in Active … Read more