Brainwalk

Du kannst auch das mal versuchen:

 

"Select * from Win32_NTEventLogFile where LogFileName='System' and EventCode=307"

 

Hab zwar keinen 2008 R2 hier, aber du müsstest dir unter den Details der Events ja auch die XML-Ansicht anzeigen lassen, da kann man sehen wie die Einträge im Log erfolgen und wie die Parameter heißen.

 

Vielleicht kann das noch helfen:

Event ID 307 ? Print Job Status

Das Ganze sieht jetzt so aus :):

 

Private Function ReadEvents(Optional CompName As String = ".", _

Optional SheetName As String = "Eventlogdaten", _

Optional UserName As String = "", _

Optional UserPass As String = "") As Integer

 

Dim printEvents As Object

Dim printEvent As Variant

Dim EventData As Collection

Dim EventStructure As String

Dim objSWbemLocator As Object

Dim objWMIService As Object

Dim myWS As Worksheet

Dim offset As Long

 

Set myWS = Worksheets(SheetName)

Worksheets(SheetName).Range("A:I").ClearContents

 

On Error GoTo ErrHand

 

Application.StatusBar = "Initializing WMI..."

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")

Set objWMIService = objSWbemLocator.ConnectServer(CompName, "\root\cimv2", UserName, UserPass)

 

Application.StatusBar = "Querying destination Event Log..."

Set printEvents = objWMIService.ExecQuery("Select * from Win32_NTLogEvent WHERE EventCode=10 And SourceName='Microsoft-Windows-PrintSpooler'")

 

On Error GoTo 0

 

myWS.Cells(1, 1) = "Zeitpunkt"

myWS.Cells(1, 2) = "Zeitquantum"

myWS.Cells(1, 3) = "Dokumentnummer"

myWS.Cells(1, 4) = "Dokumentname"

myWS.Cells(1, 5) = "Besitzer"

myWS.Cells(1, 6) = "Anschluss"

myWS.Cells(1, 7) = "Drucker"

myWS.Cells(1, 8) = "Größe"

myWS.Cells(1, 9) = "Seiten"

 

offset = 2

 

Application.StatusBar = "Processing events..."

For Each printEvent In printEvents

myWS.Cells(offset, 1) = DateValue(Format$( _

Left$(printEvent.TimeGenerated, 14), _

"&&&&-&&-&& &&:&&:&&")) + _

TimeValue(Format$( _

Left$(printEvent.TimeGenerated, 14), _

"&&&&-&&-&& &&:&&:&&"))

 

myWS.Cells(offset, 2).Formula = "=Date(Year(A" & offset & ")," _

& "Month(A" & offset & "),1)"

 

myWS.Cells(offset, 3) = CLng(printEvent.InsertionStrings(0))

myWS.Cells(offset, 4) = "'" & printEvent.InsertionStrings(1)

myWS.Cells(offset, 5) = "'" & printEvent.InsertionStrings(2)

myWS.Cells(offset, 6) = "'" & printEvent.InsertionStrings(4)

myWS.Cells(offset, 7) = "'" & printEvent.InsertionStrings(3)

myWS.Cells(offset, 8) = CLng(printEvent.InsertionStrings(5))

myWS.Cells(offset, 9) = CLng(printEvent.InsertionStrings(6))

 

offset = offset + 1

If (offset - 2) Mod 100 = 0 Then

Application.StatusBar = offset - 2 & " Events processed..."

End If

Next

 

Application.StatusBar = "Done processing " & offset - 2 & " events"

ReadEvents = 0

Exit Function

 

ErrHand:

MsgBox "Bei der Verarbeitung der WMI-Abfrage ist ein Fehler aufgetreten:" & vbCrLf & _

Err.Description, vbExclamation, "Fehler bei Verarbeitung"

ReadEvents = -1

End Function

Besten Dank samsam,

die Links hatten den entscheidenden Tip:

 

Set printEvents = objWMIService.ExecQuery("Select * from Win32_NTLogEvent WHERE EventCode=10 And SourceName='Microsoft-Windows-PrintSpooler'")

 

Jetzt kann ich wieder schön in einer Excel Tabelle mit Grafiken sehen, wieviel auf einem Drucker je Monat gedruckt wurde, wieviel jeder Mitarbeiter gedruckt hat und auf welchem Drucker er geduckt hat. :D

Nur leider funktioniert eine Änderung auf:

 

Set printEvents = objWMIService.ExecQuery _

("SELECT * FROM Win32_NTEventLogFile " _

& "WHERE LogfileName = 'System' " _

& "AND SourceName = 'PrintSpooler'" _

& "AND EventCode=10")

 

... dann gar nicht mehr!

Der User ist Domainadmin.

Es kommt bei der Abfrage auch keine Fehlermeldung, d.h. der WMI-Zugriff scheint noch zu funktionieren.

Es werden nur keine Events zurückgegeben.

 

Nach dem hier: http://www.mcseboard.de/windows-forum-scripting-71/eventlog-abholung-windws-server-2008-a-143508.html

scheinen sich ja die Filenames komplett geändert zu haben. :confused:

Hallo,

 

unsere Mitarbeiter arbeiten auf Terminalservern auf denen Outlook 2003 installiert ist. Diese greifen auf einen Exchange 2007 zu.

Einige Mitarbeiter müssen Termine in öffentlichen Kalender einstellen und dazu auch eine Besprechungsanfrage an mehrere Teilnehmer verschicken.

Werden Besprechungen im eigenen Kalender eingestellt, kann man beim Einladen der Teilnehmer unter 'Aktionen' die Haken bei "Bitte um Antwort" und bei "Vorschläge für Besprechungszeit zulassen" rausnehmen.

Bei Besprechungen die in Öffentlichen Ordnern bereitgestellt werden sind die Punkte gar nicht unter 'Aktionen' zu finden.

Ich hab's jetzt auch mal mit nem Outlook 2003 versucht was nicht über nen TS läuft, da tritt das Problem auch auf. Nehm ich allerdings nen Outlook 2007 hab ich die beiden 'Aktionen' wieder.

Gibt es da Gruppenrichtlinien, die sowas beschränken? Unter welchem Punkt find ich die im Gruppenrichtlinieneditor eigentlich für Office/Outlook?

Oder ist das nen Problem auf dem Exchange. An den Rechten auf dem öffentlichen Ordner kann es nicht liegen, ich bin schon als Besitzer eingetragen.

 

Hat jemand eine Idee woran das liegt?

Hi Leute,

 

ich habe in einer Excel Tabelle Makros, mit deren Hilfe das EventLog eines MS Server 2003 den wir als Print-Server laufen hatten abgefragt wurde, um somit das Druckvolumen auszuwerten (je Drucker, je Mitarbeiter, usw.).

Jetzt wurde der Server auf MS Server 2008 umgestellt und die Abfrage der EventLogs klappt nicht mehr, kann mir da vielleicht jemand helfen.

 

Der alte Aufruf sah so aus:

 

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")

 

Set objWMIService = objSWbemLocator.ConnectServer(CompName, "\root\cimv2", UserName, UserPass)

 

Set printEvents = objWMIService.ExecQuery _

("SELECT * FROM Win32_NTLogEvent " _

& "WHERE Logfile = 'System' " _

& "AND SourceName = 'Print'" _

& "AND EventCode=10")

 

Wie müsste das jetzt aussehen?

Besten Dank.