Windows Network Name and Secured Workgroup

[Sniper-BoOyA-]

Good Afternoon,

I made a database for our people in the laboratory, which contains data of and results of different tests.

I made a seperate secured workgroup, which stores all the login info and the different security levels.

Yesterday ive added a new Module in the VBA code, which basically keeps track of changes made using forms.

All the changes are being stored in a table i made called 'Audit'.

Audit is a simple table with the following records :

Formname - Form used to change data
Controlname - What record is being changed
Data - Date the change has been made
Time - Time the change has been made
OldValue - Value before the change
NewValue - Value after the change
User - Who has made the change
Computer - What computer has been used to make the change
Reason- Why was the change necesarry..

Now both the Username and the Computername are the Network names..

Is it possible to link the login information used to login into the secured workgroup, with the Windows Network name ??

So it automatically logs in the user with the right security level etc.. ??

 

[DCrake]

I can see where you are coming from and it sounds like a logical thing to do, however, lets create the senerio whereby User A logs into their machine with the normal windows login name and password. Then goes away for lunch. User B noticies this and goes to theri machine and launches the application. In your example the app would load using the same credentials as User A. User B is free do do whatever they want safe in the knowledge that nothing can be traced back to them because the app thinks User A doing the work not User B.

Food for Thought.

 

[reddwarf]

it does sound unsafe

easy to do though

fosusername() = loginname

have this in the autoexec.

are you using the :

Function fOSUserName() As String
' Returns the login name for Adminstrator use
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If (lngX > 0) Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = vbNullString
End If
End Function

 

[Sniper-BoOyA-]

Hmm you guys got a point there...

Maybe i should just keep it as it is.. Thanks for the quick reply though.. Really appreciate it!

 

[Sniper-BoOyA-]

it does sound unsafe

easy to do though

fosusername() = loginname

have this in the autoexec.

are you using the :

Function fOSUserName() As String
' Returns the login name for Adminstrator use
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If (lngX > 0) Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = vbNullString
End If
End Function

Yes, that is correct.

 

[reddwarf]

maybe you could......

have it log in using the fosusername and set privileges - but then set a "no activity" shutdown for say 5 mins.

in the scanrio above, if you logged in and walked away from the PC, then anyone could come and use it with your log in anyway.

you could even lock it so only lets you log in if fosusername = user name - that way = others couldnt steal passwords and use on their own profiles/pc's......extra secure !

 

[Sniper-BoOyA-]

maybe you could......

have it log in using the fosusername and set privileges - but then set a "no activity" shutdown for say 5 mins.

in the scanrio above, if you logged in and walked away from the PC, then anyone could come and use it with your log in anyway.

you could even lock it so only lets you log in if fosusername = user name - that way = others couldnt steal passwords and use on their own profiles/pc's......extra secure !

Ooh thats a pretty good idea actually.. Thanks, and ill have a look.

So all i need to do is add the fOSUsername()=loginname to the autoexec, and eventually add the "no activity" event ?

 

[reddwarf]

pretty much

on the autoexec ( asssuing you have one ) get it to name your log ion field with whatever value your FOSUSER returns. then, on the log in page, just lock the user field and have a box ready for password.

you will need to use the SETVALUE command in the autoexec macro

somat like this :

item : [forms]![name of form you use to log in]![field name for user eg USERID]
expression : fosusername() ....' you may need to use the [ ].

this will then set the username value to the logged onm user om on your log in form. if you lock the field user's will not be able to change it.

See my other thread for NO ACTIVITY and USER BOOTING to get this feature working (which is VERY handy).
http://www.access-programmers.co.uk/forums/showthread.php?p=983695#post983695

 

[Sniper-BoOyA-]

Cheers m8!

Allready have the 'no activity form' rdy, just need to implement the fOSUsername() = Loginname of securedworkgroup part.

Thanks a lot!

 

[Sniper-BoOyA-]

I went through the post u made earlier about remotely kicking people from the database, and i tested it myself just for giggles, and it works great.

I was wondering if its possible to run the no activity timer after a certain time. Lets say, 17:00 o 'clock..

Ive tried the ifstatement

If Now()>17:00 ..

But that didnt quite work

 

[ghudson]

If Format(Now(), "hh:nn") > "17:00" Then

 

[Sniper-BoOyA-]

ooh i was close Thanks m8 !