|
|
Ok, i ran this script that i got from the script repository and it worked.
Only thinkg i need to know how to do now is either figure what the password
is for all these accounts or find a way to change all 1000 of these accounts
passwords without manually doing it. The script i used is below
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=applabs" & i)
objLeaf.Put "sAMAccountName", "UserNo" & i
objLeaf.SetInfo
Next
WScript.Echo "1000 Users created."
|
|
On May 16, 12:28 am, Jason tres <Jason t...[ at ]discussions.microsoft.com>
wrote:
[Quoted Text] > Ok, iranthisscriptthat igotfrom thescriptrepositoryand it worked.
> Only thinkg i need to know how to do now is either figure what the password
> is for all these accounts or find a way to change all 1000 of these accounts
> passwords without manually doing it. Thescripti used is below
>
> 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=applabs" & i)
> objLeaf.Put "sAMAccountName", "UserNo" & i
> objLeaf.SetInfo
> Next
>
> WScript.Echo "1000 Users created."
Hi -
We use justldap for this too. You have 30 days to do it for free.
Wfmo
|
|
Hi,
for /l %a in (1,1,1000) do dsmod user
"cn=applabs%a,ou=users,dc=your,dc=domain,dc=com" -pwd "newpassword"
pls change to correct DN and run in command prompt. If you want to run in a
batch file, pls change %a to %%a.
regards,
"Jason tres" wrote:
[Quoted Text] > Ok, i ran this script that i got from the script repository and it worked.
> Only thinkg i need to know how to do now is either figure what the password
> is for all these accounts or find a way to change all 1000 of these accounts
> passwords without manually doing it. The script i used is below
>
> 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=applabs" & i)
> objLeaf.Put "sAMAccountName", "UserNo" & i
> objLeaf.SetInfo
> Next
>
> WScript.Echo "1000 Users created."
>
>
>
|
|
What is the password for these accounts
"neothwin" wrote:
[Quoted Text] > Hi,
>
> for /l %a in (1,1,1000) do dsmod user
> "cn=applabs%a,ou=users,dc=your,dc=domain,dc=com" -pwd "newpassword"
>
> pls change to correct DN and run in command prompt. If you want to run in a
> batch file, pls change %a to %%a.
>
> regards,
>
> "Jason tres" wrote:
>
> > Ok, i ran this script that i got from the script repository and it worked.
> > Only thinkg i need to know how to do now is either figure what the password
> > is for all these accounts or find a way to change all 1000 of these accounts
> > passwords without manually doing it. The script i used is below
> >
> > 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=applabs" & i)
> > objLeaf.Put "sAMAccountName", "UserNo" & i
> > objLeaf.SetInfo
> > Next
> >
> > WScript.Echo "1000 Users created."
> >
> >
> >
|
|
And, more appropriately, where are their mailboxes? Seems to me that the OP
had no problem creating the accounts, just in creatingt them with mailboxes.
/Al
"Jason tres" <Jasontres[ at ]discussions.microsoft.com> wrote in message
news:BE8E5FE8-B5F0-4645-B73E-37546E0EAF28[ at ]microsoft.com...
[Quoted Text] > What is the password for these accounts
>
> "neothwin" wrote:
>
>> Hi,
>>
>> for /l %a in (1,1,1000) do dsmod user
>> "cn=applabs%a,ou=users,dc=your,dc=domain,dc=com" -pwd "newpassword"
>>
>> pls change to correct DN and run in command prompt. If you want to run in
>> a
>> batch file, pls change %a to %%a.
>>
>> regards,
>>
>> "Jason tres" wrote:
>>
>> > Ok, i ran this script that i got from the script repository and it
>> > worked.
>> > Only thinkg i need to know how to do now is either figure what the
>> > password
>> > is for all these accounts or find a way to change all 1000 of these
>> > accounts
>> > passwords without manually doing it. The script i used is below
>> >
>> > 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=applabs" & i)
>> > objLeaf.Put "sAMAccountName", "UserNo" & i
>> > objLeaf.SetInfo
>> > Next
>> >
>> > WScript.Echo "1000 Users created."
>> >
>> >
>> >
|
|
|