the-brain
Goto Top

Druckaufträge Protokollieren auf Win 2003 Server

Hallo Zusammen,

habe folgendes vor :

Wir haben ein Windows 2003 Server System auf dem unsere Netzwerkdrucker verwaltet und freigegeben werden, nun möchte ich für einzelne Drucker das monatliche Druckaufkommen protokollieren aber dies auch gleich wieder auf die einzelnen Domänenbenutzer herunterbrechen.

Kennt ihr ein tool oder einen Trick wie ich das machen könnte Spooler eventuell.

Vielen Dank

Content-ID: 6771

Url: https://administrator.de/forum/druckauftraege-protokollieren-auf-win-2003-server-6771.html

Ausgedruckt am: 23.12.2024 um 12:12 Uhr

linkit
linkit 11.02.2005 um 10:44:05 Uhr
Goto Top
the-brain
the-brain 11.02.2005 um 12:11:41 Uhr
Goto Top
Danke für den Link aber suche etwas einfaches kostenloses Freeware eben.

aber alternativ wäredas eine lösung
gemini
gemini 11.02.2005 um 23:30:34 Uhr
Goto Top
Im Systemprotokoll wird jeder Druckjob protokolliert.

~~~~~~~~~~~~~~~~~~~~~
Ereignistyp: Informationen
Ereignisquelle: Print
Ereigniskategorie: Keine
Ereigniskennung: 10
Datum: 11.02.2005
Zeit: 21:53:05
Benutzer: NT-AUTORITÄT\SYSTEM
Computer: TAFS01
Beschreibung:
Dokument 2, Unbenannt - Editor im Besitz von Administrator wurde über Anschluss LPT2: auf Ricoh Aficio AP3800C PCL5c gedruckt. Größe in Bytes: 72; Seiten gedruckt: 1

Weitere Informationen über die Hilfe- und Supportdienste erhalten Sie unter http://go.microsoft.com/fwlink/events.asp.
~~~~~~~~~~~~~~~~~~~~~

strFile = "c:\PrintEvents.log"  
strComputer = "."  
Set objWMIService = GetObject("winmgmts:" _  
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
Set colLoggedEvents = objWMIService.ExecQuery _
        ("Select * from Win32_NTLogEvent Where Logfile = 'System' and " _  
            & "EventCode = '10'")  

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFile = objFSO.CreateTextFile(strFile)
    objFile.WriteLine "Time:" & vbTab & vbTab & vbTab & vbTab & "Computer:" & vbTab & "User:" & vbTab & vbTab & vbTab & vbTab & "Message:"  

For Each objEvent in colLoggedEvents
    objFile.WriteLine objEvent.TimeWritten & vbTab & objEvent.ComputerName & vbTab & vbTab & objEvent.User & vbTab & vbTab & objEvent.Message

Next
objFile.Close

Schreibt Datum, Computer, User und Beschreibung des Ereigisses 10 (Print) in die Datei 'PrintEvents.log.
Auf jeden Fall eine kostenlose Lösung.
fv123
fv123 17.05.2006 um 13:26:51 Uhr
Goto Top
Und wo baut man das ein?