Reset an AD user's password using auto password generator

Posted on 2009-04-06
Last Modified: 2013-12-24
i have the attached code provided here by Rob to auto generate a password using predetermined rules.
i need a way that would prompt me to enter a username and will reset the user's password to the auto generated value of the script (with the "user must change password at next logon" checked by default)

' Basis from here:


' Question link:


'Description: Auto generates password according to the following rules:

' Be at least 8 positions in length but up to 9.

' Contain at least one English letter and one digit character

' Should not contain a digit character in the first and last position!(0-9)

' No special characters - lower case letters and digits only

' Must begin and end with a letter

' Should not contain identical consecutive characters (aa, ##, 88.)

' Should not contain specific words (e.g. help, desk)


Const MinLength = 8

Const MaxLength = 9


While ValidatePassword(strPassword) = False

        strPassword = GeneratePassword


MsgBox strPassword


Function GeneratePassword()


        strRndPwd = ""


        If MinLength = "" Or MaxLength = "" Then

                WScript.Echo "Min and max lengths are not defined. Please set MinLength and MaxLength globally."

                Exit Function

        End If



        intLength = Int((MaxLength - MinLength + 1) * Rnd + MinLength)


        Const AsciiLower = 32

        Const AsciiUpper = 126


        While Len(strRndPwd) <= intLength


                strChr = Chr(Int((AsciiUpper - AsciiLower + 1) * Rnd + AsciiLower))

                If (Asc(strChr) >= 48 And Asc(strChr) <= 57) Or (Asc(strChr) >= 97 And Asc(strChr) <= 122) Then strRndPwd = strRndPwd & strChr



        GeneratePassword = strRndPwd

End Function


Function ValidatePassword(strValPwd)

	Set objRegEx = CreateObject("VBScript.RegExp")

	boolValid = True

	' Check the length requirement

	If Len(strValPwd) < MinLength Or Len(strValPwd) > MaxLength Then boolValid = False

	' Look for an english character

	If boolValid = True Then

		objRegEx.Pattern = "[a-z]"

		Set colMatches = objRegEx.Execute(strValPwd)  

		If colMatches.Count = 0 Then boolValid = False

	End If

	' Look for a digit

	If boolValid = True Then

		objRegEx.Pattern = "[0-9]"

		Set colMatches = objRegEx.Execute(strValPwd)  

		If colMatches.Count = 0 Then boolValid = False

	End If

	' Look for a digit in the first or last position

	If boolValid = True Then

		strFirstChr = Left(strValPwd, 1)

		strLastChr = Right(strValPwd, 1)

		If IsNumeric(strFirstChr) Or IsNumeric(strLastChr) Then boolValid = False

	End If

	' Prevent specific words from being the password

	Set objDict = CreateObject("Scripting.Dictionary")

	objDict.Add "ncx", 0

	objDict.Add "kbs", 0

	objDict.Add "qazwsx", 0

	objDict.Add "cns", 0

	objDict.Add "comverse", 0

	objDict.Add "help", 0

	objDict.Add "desk", 0

	If objDict.Exists(strValPwd) = True Then boolValid = False

	' Return the valid code

	ValidatePassword = boolValid

End Function

Open in new window

Question by:johnnyjonathan
  • 2
LVL 12

Accepted Solution

chandru_sol earned 500 total points
ID: 24079549

HTA in the link below will give you exactly what you needed

LVL 12

Expert Comment

ID: 24127844
Thanks for the Grade!!

Featured Post

What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

I annotated my article on ransomware somewhat extensively, but I keep adding new references and wanted to put a link to the reference library.  Despite all the reference tools I have on hand, it was not easy to find a way to do this easily. I finall…
In this article, we will see the basic design consideration while designing a Multi-tenant web application in a simple manner. Though, many frameworks are available in the market to develop a multi - tenant application, but do they provide data, cod…
Video by: Steve
Using examples as well as descriptions, step through each of the common simple join types, explaining differences in syntax, differences in expected outputs and showing how the queries run along with the actual outputs based upon a simple set of dem…
This tutorial will walk an individual through the process of configuring their Windows Server 2012 domain controller to synchronize its time with a trusted, external resource. Use Google, Bing, or other preferred search engine to locate trusted NTP …

708 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now