How Do I run this code by dbl clicking a field in a form.

[jjmontreal]

I am trying to run this code in a form when a user double clicks in a particular field. I am unsure how I should do it since it uses 2 text files, one to generate and the other to store to eleminate redundancy. If you can help this newbie, thanks.

'==========================================================================
'
' NAME: RandomPasswordGenerator.vbs
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' URL: http://www.thespidersparlor.com
' DATE  : 7/29/2004
' Modified by Homer Simpson, 9/05/2007 for Wire Room Pin generation
'
' COMMENT: Generates Random Passwords meeting "Complex" Requirements
'          By default will generate a 4 digit password.
'          Edit line passLen = 4 to change length
'==========================================================================
Option Explicit
'On Error Resume Next
 
Dim BankCode, newpass, passList, inFlag, pgLength, x, fso, ts, passLen, WshShell, passin 
Const ForWriting = 2, ForAppending = 8, ForReading = 1
passLen = 4
 
'Give inFlag (input Flag) an initial value to ensure we run once
inFlag = "invalid"
 
Do While inFlag = "invalid"
    BankCode = InputBox("Enter a valid Bank Code")
 
    'Quit if no entry
    If BankCode = "" Then WScript.Quit
    BankCode=UCase(BankCode)    
    'copy this line per bank. Put codes in upper case
    If (BankCode = "BW") or (BankCode = "BWE") then inFlag = "valid"
     If (BankCode = "CB") or (BankCode = "CBE") then inFlag = "valid"
      If (BankCode = "FB") or (BankCode = "FBE") then inFlag = "valid"
       If (BankCode = "MB") or (BankCode = "MBE") then inFlag = "valid"
        If (BankCode = "MM") or (BankCode = "MME") then inFlag = "valid"
         If (BankCode = "ON") or (BankCode = "ONE") then inFlag = "valid"
Loop
 
 
'Generate the PIN
inFlag= "invalid"
Do While inFlag = "invalid"
    set ts = nothing
    set fso = nothing
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile ("PasswordList.txt", ForReading)
    newpass = generatePassword(passLen)
    newpass = BankCode + newpass
 
    ' validate password uniqueness
 
    inflag="valid"
    Do While ts.AtEndOfStream <> true
        passin=ts.ReadLine
        if passin = newpass then inFlag="invalid"
    Loop
Loop
set ts = nothing
set fso = nothing
 
'Now save it all to a text file.
passList = newpass & vbCrLf
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.CreateTextFile ("NewPin.txt", ForWriting)
ts.write passList
 
set ts = nothing
set fso = nothing
 
'Open PIN in notepad
set WshShell = WScript.CreateObject("WScript.Shell")
 
'Launch Notepad from the command line 
WshShell.Run "Notepad.exe NewPin.txt"
 
'Write Password to permanent list
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile ("PasswordList.txt", ForAppending)
ts.write passList
 
set ts = nothing
set fso = nothing
 
'end of program
 
Function generatePassword(PASSWORD_LENGTH)
 
Dim NUMLOWER, NUMUPPER 
Dim newPassword, count, pwd
 
 NUMLOWER    = 48  ' 48 = 0
 NUMUPPER    = 57  ' 57 = 9
 
 ' initialize the random number generator
 Randomize()
 
 newPassword = ""
 count = 0
 DO UNTIL count = PASSWORD_LENGTH
 
       pwd = Int( ( NUMUPPER - NUMLOWER + 1 ) * Rnd + NUMLOWER )
 
  newPassword = newPassword + Chr( pwd )
 
  count = count + 1
 
 Loop
 
'The password is good so return it
 generatePassword = newPassword
End Function

[Scott Price]

It looks to me like you have two separate and independent functions doing the same thing here. Did you write these?

If you are only trying to generate a random password by double-clicking, you should be able to use the second function (starting with line 86 of your code), you'll need to pass it the length, but in the double click event of your text box, write this kind of code:

Call generatePassword(6)

This code will pass the password length of 6 characters.

The generatePasswor d function will, of course, go into a standard code module as a Public Function.

From what I can tell just looking at this, the first function you have is a highly specific password generator possibly for a banking institution?

Regards,
Scott