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

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 52174

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

Ausgedruckt am: 22.11.2024 um 13:11 Uhr

3 Kommentare

Neuester Kommentar

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

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