We help IT Professionals succeed at work.

Monitor Logins

630 Views
Last Modified: 2012-05-10
HI

We have 200 PCs in a library at are college and we want to monitor which student are logging into them on a daily basis. We want log files generated and stored on ONE central server.

I know we can enable auditing but that creates events in the security log on the DC that logs the student in. We have got loads of domain controllers here and the IT director doesn't want to be trawling through event viewer on all of them.

Here is the kicker. We are trying to find a way of doing this for free. Does someone have a script or something?

Many thanks
Comment
Watch Question

Commented:
the best solution would be some type of log management system. Take a look at Splunk.
You will also need to check your auditing level.

http://www.splunk.com/

http://www.nagios.org/products/enterprisesolutions/splunk

http://technet.microsoft.com/en-us/library/dd772662(WS.10).aspx

Commented:
You could use the eventcomb utility from Microsoft to consolidate the events into a single file. See the following for more details:

http://support.microsoft.com/kb/824209


Commented:
To record user logons to a text file (log.txt) containing computer name, time and date etc. I add a logon script to the group policy settings for the users concerned that contains the following (saved as a vbs file):


Option Explicit
Dim Message
Dim WshShell, objEnv
Dim objFSO, objFolder, objShell, objTextFile, objFile
Dim strDirectory, strFile, strText, strTestForDir
strDirectory = "\\servername\logs$"
strFile = "\log.txt"

' Get the WshShell object.
Set WshShell = CreateObject("WScript.Shell")

' Get collection by using the Environment property.
Set objEnv = WshShell.Environment("Process")

' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(strDirectory)

Message="Logon"
set objFile = nothing
set objFolder = nothing

Const ForAppending = 8

Set objTextFile = objFSO.OpenTextFile _
(strDirectory & strFile, ForAppending, True)
Message = objEnv("Username") & "," & objEnv("computername") & "," & Time & "," & date & "," & Message
' Writes message every time you run this VBScript
objTextFile.WriteLine(Message)
objTextFile.Close

WScript.Quit

' End of VBScript to write to a file with error-correcting Code
Commented:
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION

Author

Commented:
x3man, that's what I'm after. Nice one
Unlock the solution to this question.
Join our community and discover your potential

Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.