Bulk password reset script

[lafleur1977]

Hello,

Does anybody have a script which will allow me to reset multiple users passwords all in one go?

Thanks.

[jamesb]

I tend to use one developed by Matthew Hull. I found it somewhere on the internet, but can't remember where. It'll reset all the passwords for users in a specific OU rather than just all passwords at once. The script itself is here:

'Created by Matthew Hull 5/20/04
'Last modified 9/9/05
'Version 1.01
'This script will reset the passwords for all users in a specified OU.
'You can have it assign the same password to all users or generate a 
'random password for each user.
'Version History
'~~~~~~~~~~~~~~~
'Version 1.01 - Improved error detection.
'Version 1.0 - First version of this script released.
Option Explicit
On Error Resume Next
Dim intPasswordLength, strOU, objUser, objOU, objADHelper, intRandomNumber, txtLogFile
Dim strPassword, bolForceChange, strLogFile, objFSO, bolNeverExpire
'*****************************************************************************************
strOU = "Script Test" 'Name of the OU that contains the users you want to modify
strLogFile = "C:\Password Change Log.csv" 'Location and name of the log
bolForceChange = False 'Set True to have the user to change their password on next logon
bolNeverExpire  = True 'Set True to set the password never to expire
intPasswordLength = 8 'Set the length of the random password
strPassword = "" 'Set generic password for all users if inPasswordLength = 0
'*****************************************************************************************
'Exit the script if bolForceChange and bolNeverExpire are set to true.
If bolForceChange And bolNeverExpire Then
   MsgBox "bolForceChange and bolNeverExpire cannot both be True." & vbCRLF & _
   "The script will now exit.",vbCritical,"Error"
   WScript.Quit
End If
'Create the OU Helper object and get the OU object using the OU Helper object   
Set objADHelper = CreateObject("ADHelper.wsc")
'Exit if the ADHelper object isn't installed
If Err Then
   MsgBox "You must have ADHelper 1.0 or later installed on your PC.  " & _
      "The script will now exit.",vbCritical,"Network Missing"
   Err.Clear
   WScript.Quit
End If
'Use the ADHelper object to create the OU object
Set objOU = objADHelper.OUObject(strOU)
'Exit if the there is an error creating the OU object
If Err Then
   MsgBox "There is a problem with your strOU setting, OU Not Found" & _
      "The script will now exit.",vbCritical,"OU Not Found"
   Err.Clear
   WScript.Quit
End If
'Create the File System Object, and use it to create the log file
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set txtLogFile = objFSO.CreateTextFile(strLogFile)
txtLogFile.WriteLine("Display Name,User Name,Password")
If Err Then ErrorMessage
'Loop through each user and set the password
For Each objUser in objOU
   If intPasswordLength <> 0 Then
      strPassword = GeneratePassword(intPasswordLength)
   End If
   If objUser.class = "user" Then
      Call SetPassword(objUser, strPassword, bolForceChange, bolNeverExpire)
      txtLogFile.WriteLine("""" & objUser.DisplayName & """," & _
         objUser.SamAccountName & "," & strPassword)
   End If   
Next
MsgBox "The passwords have been reset.",vbOkOnly,"Done"
'Close the log file
txtLogFile.Close
'*****************************************************************************************
Sub SetPassword(objUser,strPassword,bolForceChange,bolNeverExpire)
   Dim intUAC
   objUser.SetPassword(strPassword)
   objUser.SetInfo
   objUser.Put "UserAccountControl", 512 ' Normal Account
   objUser.SetInfo
   If bolForceChange Then
      objUser.Put "pwdLastSet", 0 'User must change password at next login          
      objUser.SetInfo        
   End If
   intUAC = 512
   If bolNeverExpire Then
      intUAC = intUAC + 65536
   End If
   objUser.Put "UserAccountControl", intUAC
   objUser.SetInfo
End Sub
'*****************************************************************************************
Function GeneratePassword(intLength)
   Dim intIndex, intRandomNumber
   Randomize Timer
   For intIndex = 1 to intLength
      intRandomNumber = Int(2 * Rnd)   
      Select Case intRandomNumber
         Case 0 
            intRandomNumber = Int(10 * Rnd) + 48 '0-9
         Case 1
            intRandomNumber = Int(26 * Rnd) + 97 'a-z
      End Select   
      GeneratePassword = GeneratePassword & Chr(intRandomNumber)
   Next
End Function
'*****************************************************************************************
Sub ErrorMessage
   MsgBox "There was an error detected." & vbCRLF & vbCRLF & "Error Description: " & _
      Err.Description & vbCRLF & "Error Number: " & Err.Number & vbCRLF & vbCRLF & _
      "The script will now exit...",vbCritical,"Error"
   WScript.Quit
End Sub
'*****************************************************************************************

[mattx]

Hello,

Does anybody have a script which will allow me to reset multiple users passwords all in one go?

Thanks.

I just pipe group names to a text file and then create a batch with:

net user [ USERNAME ] [ NEWPASSWORD ]

Depending on how many groups you have will obvioulsy depend on how long it takes !!!

[lafleur1977]

thanks for your help guys, i will give them ago :]

[rh91uk]

http://www.wisesoft.co.uk/software/a...t/default.aspx

This is great, I use it to acomplish the exact same thing you want to do.

[stariq]

Another one for wisesoft Account Management

Saved us sssooo much hassle!

ST

[timbo343]

i use something called activeman that ties into AD. Mikey Magic's Web Site - Active User Manager for Windows 2000 & 2003 Active Directory (AD)

[SpuffMonkey]

I just pipe group names to a text file and then create a batch with:

net user [ USERNAME ] [ NEWPASSWORD ]

Depending on how many groups you have will obvioulsy depend on how long it takes !!!

This is a useful bodge - specially combined with Excel - so you can just drag the commands down a column in front of the imported logins

[john]

I use http://www.wisesoft.co.uk/software/p...d_control.aspx from Wisesoft for my bulk resetting needs, works very well, infact I use a lot of the Wise Soft tools they are really good

[rh91uk]

This is a useful bodge - specially combined with Excel - so you can just drag the commands down a column in front of the imported logins

Agreed - Excel has just saved us a lot of time here!