Resources For IT Professionals

United States (English) Drop down arrow

Россия (Pусский)中国（简体中文）Brasil (Português)

Post an article

Wikis - Page Details

First published by arnavsharma (Microsoft Community Contributor, Microsoft Partner)
When: 24 Feb 2013 1:58 AM
Last revision by Maheshkumar S Tiwari
When: 19 Sep 2013 10:53 AM
Revisions: 2
Comments: 4

Options

Subscribe to Article (RSS)

Can You Improve This Article?

Positively! Click Sign In to add the tip, solution, correction or comment that will help other users.

Report inappropriate content using these instructions.

Create random passwords with Characters and integers, using VB script

This VB script can be used for creation of passwords for new users during account creation.

Dim intMax, iLoop, k, intValue, strChar, strName, intNum

' Specify the alphabet of characters to use.
Const Chars = "abcdefghijklmnopqrstuvwxyz"

' Specify length of names.
intMax = 5

' Specify number of names to generate.
intNum = 1

Randomize()
For iLoop = 1 To intNum
    strName = ""
    For k = 1 To intMax
        ' Retrieve random digit between 0 and 25 (26 possible characters).
        intValue = Fix(26 * Rnd())
        ' Convert to character in allowed alphabet.
        strChar = Mid(Chars, intValue + 1, 1)
        ' Build the name.
        strName = strName & strChar
    Next

' Number of Integers can be specified here

    Wscript.Echo strName & Int( ( 7789 - 7 + 889 ) * Rnd + 999 )
Next