Set objRootDSE = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://cn=Users," & _ objRootDSE.Get("defaultNamingContext")) Const ADS_UF_NORMAL_ACCOUNT = 512 For i = 1 To 1000 Set objUser = objContainer.Create("User", "cn=UTORid" & i) objUser.Put "sAMAccountName", "UTORid" & i objUser.Put "altSecurityIdentities", "Kerberos:jonester@UTORONTO.CA" objUser.SetInfo objUser.SetPassword "2be.secure.try.this" objUser.Put "userAccountControl", &H200 objUser.SetInfo Next WScript.Echo "1000 Users created."