Reset 1000 or above accounts under Windows Server 2003

解答

• 

  

  0

  登入以投票

  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
• 

  

  0

  登入以投票

  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 Zhang

   

  2008年12月30日 上午 03:31

  版主
• 

  

  0

  登入以投票

  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