Forcing users to enter and periodically change their passwords

[Guest]

Hey All,
I would like to force all users on my networked application to enter
passwords and periodically change them. I am operating a security enhanced
split database with all the bells and whistles. I want to add this
functionality to my application. I want them to on their first log-in to be
required to perform this procedure. I currently have 100 users and 5 groups.
Any help you could provide would be greatly appreciated. Up to this point I
have been on my own. This one has me stumped.

 

[TC]

Quite doable. Try here for starters:


http://groups.google.com/group/microsoft.public.access.security/msg/8b16a7f57af37f2c

HTH,
TC [MVP Access]

 

[Albert D.Kallal]

It seems to me that a simple table that logs the last time the user logged
on would do the trick here.

Just have a last date, or even 'next date to change password' field in this
table.

You then simply make a form to prompt for a new password.

The code for changing a password looks like:

Function ChangePassword(ByVal strUser As String, _
ByVal strPwd As String) As Integer

Dim ws As Workspace
Dim usr As user

Set ws = DBEngine.Workspaces(0)
Set usr = ws.Users(strUser)
usr.NewPassword "", strPwd

End Function

Note that the above does not supply the old passwrod, and if the user does
not have admin privileges, then likely the above will not work. So, you can
well build a form that prompts for the old password, and the new one. As far
as I can remember, if you supply the old password, then admin privileges are
NOT needed. So, just make sure you build an nice little password form for
yourself to fix the case where users forget...

I also have some ideas for building some forms to managing users here:

http://www.members.shaw.ca/AlbertKallal/Articles/UseAbility/UserFriendly.htm