最佳解答者
Reset 1000 or above accounts under Windows Server 2003

問題
解答
-
I found vbs sample from Microsoft scripting guy web site.
Seems you can do that by vbs.
Web site
http://www.microsoft.com/technet/scriptcenter/resources/qanda/oct04/hey1015.mspx
I think should refer to the section about setting ldap users password.
You should first export the user list from AD and use text editor to combine the script with the exported user list.
Wish it help.
2008年12月30日 上午 01:37 -
Dear Customer,
Thank you for posting!
I have tested the following script on our testing environment and it works fine without any issues.
Dim oDN,oUsr
Set oDN = GetObject("LDAP://OU=Go Live
Accounts,OU=Spansion,OU=Customers,DC=hosting,DC=corio,DC=com")
oDN.Filter= Array("user")
For Each oUsr In oDN
'Gets the user Object
Set oUsr = GetObject(oUsr.ADsPath)
'Substitute desired password
oUsr.SetPassword "span1234"
Next
SECOND SCRIPT (Tested and working fine)
UserContainer = "OU=Go Live Accounts,OU=Spansion,OU=Customers, "
Set RootDSE = GetObject("LDAP://RootDSE")
Set UserContainer = GetObject("LDAP://" & UserContainer &
RootDSE.Get("DefaultNamingContext"))
UserContainer.Filter = Array("User")
For Each User In UserContainer
User.SetPassword "span1234"
Next
Hope it helps.
Sincerely,
Tom Zhang2008年12月30日 上午 03:31版主 -
Beside that, you may also set "Require change password in Next Login" by having a look in the following link,
"How Can I Set a User’s Password and Then Require Them to Change That Password the Next Time They Logon?"
http://www.microsoft.com/technet/scriptcenter/resources/qanda/dec06/hey1214.mspx
2008年12月30日 上午 04:11
所有回覆
-
I found vbs sample from Microsoft scripting guy web site.
Seems you can do that by vbs.
Web site
http://www.microsoft.com/technet/scriptcenter/resources/qanda/oct04/hey1015.mspx
I think should refer to the section about setting ldap users password.
You should first export the user list from AD and use text editor to combine the script with the exported user list.
Wish it help.
2008年12月30日 上午 01:37 -
Dear Customer,
Thank you for posting!
I have tested the following script on our testing environment and it works fine without any issues.
Dim oDN,oUsr
Set oDN = GetObject("LDAP://OU=Go Live
Accounts,OU=Spansion,OU=Customers,DC=hosting,DC=corio,DC=com")
oDN.Filter= Array("user")
For Each oUsr In oDN
'Gets the user Object
Set oUsr = GetObject(oUsr.ADsPath)
'Substitute desired password
oUsr.SetPassword "span1234"
Next
SECOND SCRIPT (Tested and working fine)
UserContainer = "OU=Go Live Accounts,OU=Spansion,OU=Customers, "
Set RootDSE = GetObject("LDAP://RootDSE")
Set UserContainer = GetObject("LDAP://" & UserContainer &
RootDSE.Get("DefaultNamingContext"))
UserContainer.Filter = Array("User")
For Each User In UserContainer
User.SetPassword "span1234"
Next
Hope it helps.
Sincerely,
Tom Zhang2008年12月30日 上午 03:31版主 -
Beside that, you may also set "Require change password in Next Login" by having a look in the following link,
"How Can I Set a User’s Password and Then Require Them to Change That Password the Next Time They Logon?"
http://www.microsoft.com/technet/scriptcenter/resources/qanda/dec06/hey1214.mspx
2008年12月30日 上午 04:11