locked
Reset 1000 or above accounts under Windows Server 2003 RRS feed

  • 問題

  • Is there any fast method to reset 1000 or above accounts (e.g. reset to the same password) under Windows Server 2003?

     

    Can anyone teach me how to do so?

     

    Thank you very much!

    2008年12月29日 下午 12:49

解答

  • 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 Zhang

     

    2008年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 Zhang

     

    2008年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