lelykalm
Goto Top

windows 2003 server - logon report

brauche dringend hilfe!
gibt es unter windows 2003 server die moeglichkeit zu sehen, wer und wann sich ein user eingelogged hat?? wenn ja, wo bitte finde ich das?
und falls ich ein skript einbauen muss, wo genau?? ackack
ja, bin ziemlich aufgeschmissen!
Bitte bitte helft mir

gruss Lely

Content-Key: 52174

Url: https://administrator.de/contentid/52174

Printed on: April 20, 2024 at 00:04 o'clock

Member: gemini
gemini Feb 20, 2007 at 17:54:35 (UTC)
Goto Top
Willkommen im Forum Lely,

wenn du das Sicherheitsprotokoll des DC nach der ID 540 filterst erhältst du die erfolgreichen Anmeldungsereignisse.

Alternativ kannst du ein Anmelde- und Abmeldescript für die OU festlegen, das bspw. Zeit, Benutzername, Computername etc. in ein File schreibt. Ein Logfile für alle Benutzer ist hier wahrscheinlich ungeeignet, da es zu Konflikten kommt wenn die Datei geöffnet ist weil ein Benutzer sich gerade anmeldet und ein zweiter Benutzer ebenfalls versucht das Log zu öffnen.

HTH,
gemini
Member: balougonzo
balougonzo Feb 20, 2007 at 18:59:07 (UTC)
Goto Top
Wie könnte den so ein Script aussehen?
Member: gemini
gemini Feb 20, 2007 at 19:47:49 (UTC)
Goto Top
Wie könnte den so ein Script aussehen?
In etwa so; ist natürlich nur als Skizze zu vertehen; irgendwelche Prüfungen, Fehlerroutinen etc. sind nicht implementiert.
Es erwartet genau 1 Argument, wobei im Beispiel 1 dem Logon- und 2 dem Logoffscript zugewiesen wird.
Das Log wird in einem zentralen Pfad unter dem Computernamen erwartet, falls das nicht vorhanden ist wird ein neues erstellt.
Die Ereignisse werden in der Form Logon/Logoff - TT.MM.JJ - hh:mm - User: <username> an die Logdatei angefügt.
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set WshNetwork = Wscript.CreateObject("Wscript.Network")  
Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")  
Set objArgs = Wscript.Arguments

strComputer = WshNetwork.ComputerName
strUserName = WshNetwork.UserName
strTime = FormatDateTime(Date, 2) & " - " & FormatDateTime(Time, 4)  
strLog = "\\Pfad\zum\Logfile\"  

If objArgs.Count != 1 Then Wscript.Quit

If objArgs(0) = 1 Then
	strType = "Logon"  
ElseIf objArgs(0) = 2 Then
	strType = "Logoff"  
End If

strData = strType & " - " & strTime & " - User: " & strUserName  

Set objFile = objFSO.OpenTextFile(strLog & strComputer & ".log" , ForAppending, TRUE)  
	objFile.WriteLine(strData)
objFile.Close