Change Password

[Secret Squirrel]

I'm using ULS with my database and was wondering if there is a way to force
the users to change their password after a specific amount of time.

 

[Douglas J. Steele]

No.

 

[Arvin Meyer [MVP]]

Not that I know of, but you could create a schedule in Access or Outlook to
remind them and kick out a user that doesn't change it.

I always find that user don't create strong enough passwords, so I create
them and make them use them. Since they can't get to a menu in my secure
apps, they can't change them. I make the change and force them to accept the
new one. Here's some code to generate a random 14 charcter password:

Function RandomPwd(Optional ByVal intPwdLength As Integer = 14) As String
' Based on code by Klaus Oberdalhoff
Dim intUpper As Integer
Dim intLower As Integer
Dim intAscii As Integer

'Pwd > 5 and <= 12 characters -- else 10 character
If intPwdLength < 6 Or intPwdLength > 14 Then intPwdLength = 8

Dim i As Integer
Dim strTemp As String
strTemp = ""

intUpper = 127 ' Ascii value 127
intLower = 33 ' Ascii value 33

Randomize

For i = 1 To intPwdLength
intAscii = Int((intUpper - intLower + 1) * Rnd + intLower)
strTemp = strTemp & Chr(intAscii)
Next i

RandomPwd = strTemp

End Function

 

[Tom Wickerath]

Hi Arvin,

intUpper = 127 ' Ascii value 127

You might want to consider resetting the upper limit for intUpper to 126,
cause Chr(127) is not supported by Windows (yields a square box in the
password generated, when you output the results to the Immediate Window).


Tom Wickerath
Microsoft Access MVP
http://www.accessmvp.com/TWickerath/
http://www.access.qbuilt.com/html/expert_contributors.html
__________________________________________

 

[Arvin Meyer [MVP]]

Sounds about right. I think Klaus is a member of the MVP eList, so you may
want to email him as well.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

 

[John W. Vinson]

I always find that user don't create strong enough passwords, so I create
them and make them use them. Since they can't get to a menu in my secure
apps, they can't change them. I make the change and force them to accept the
new one. Here's some code to generate a random 14 charcter password:

You're a cruel man, Arvin... <g>

 

[Arvin Meyer [MVP]]

You're a cruel man, Arvin... <g>

If you think that's bad, I periodically wandered into their offices after
hours and removed the password sticky notes from monitors, keyboards and
under the pencil trays in their desks.

 

[John W. Vinson]

If you think that's bad, I periodically wandered into their offices after
hours and removed the password sticky notes from monitors, keyboards and
under the pencil trays in their desks.

Hey. Don't remove them... exchange them (or edit them).