Script for resetting passwords

[KeyserSoze1877]

I have the need to reset and unlock accounts in a AD Group. These are test accounts and will be locked up purposely and have their passwords reset.

I would like to create a script in VB or whatever that goes to this group and resets the passwords and unlocks the account if it's locked.

Anyone point me to a thread or offer a good starting point?

Thanks.

---------------
Keyser Soze
"There are no stupid questions, just stupid people.

 

[markdmac]

here is a smple to get you started.

'==========================================================================
'
' NAME: ResetPasswords.vbs
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' URL: [URL unfurl="true"]http://www.thespidersparlor.com[/URL]
' DATE  : 1/30/2004
'
' COMMENT: <comment>
'
'==========================================================================

UserName = InputBox("What Account Needs To Be Reset?","Change PWD?")
NewPass =  InputBox("Type New Password","Change PWD?")

Set objUser = GetObject _
("LDAP://cn="& UserName & ",ou=Users,dc=thespidersparlor,dc=com")
objUser.SetPassword NewPass
objUser.setInfo
Wscript.Echo "Password Changed"

I hope you find this post helpful. Please let me know if it was.

Regards,

Mark