Статистика по распечатыванию на принтере

[Susanin]

Привет всем!
Есть такая задача.
Создать программу, которая-бы вела статистику о том, кто, когда, сколько распечатывал документов на принтере.
есть идея о том, как это вополтить. Хочу до начала работ выставить её на обсуждение. Может кто уже решал эту задачу, и что-то подскажет.
Идея состоит в том, что каждый раз при печати на принтере создается запись в системном журнале. Надо просто окрывать его, загружать и анализировать. И получим искомую статистику. В принице думаю все это вполне реально, и без особых затрат времени и ресурсов.
Вот и выставляю эту идею на обсуждение.
Заранее сенкс всем, кто откликнется.
Susanin

[GSerg]

В смысле, юзера сами журнал ведут?
Так юзай сводную таблицу экселя и не страдай фигнёй

[RayShade]

Под системным журналом автор топика надо полагать разумеет event log

[alibek]

Если речь идет именно об этом журнале, то тебе нужен журнал System, делай фильтр Source=Print и экспортируй в текстовый файл (или напрямую работай с логами).
Вот пример копирования лога в базу данных

Код: Выделить всё

Set objConn = CreateObject("ADODB.Connection")
Set objRS = CreateObject("ADODB.Recordset")
objConn.Open "DSN=EventLogs;"
objRS.CursorLocation = 3
objRS.Open "SELECT * FROM EventTable" , objConn, 3, 3
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRetrievedEvents = objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent")
For Each objEvent in colRetrievedEvents
    objRS.AddNew
    objRS("Category") = objEvent.Category
    objRS("ComputerName") = objEvent.ComputerName
    objRS("EventCode") = objEvent.EventCode
    objRS("Message") = objEvent.Message
    objRS("RecordNumber") = objEvent.RecordNumber
    objRS("SourceName") = objEvent.SourceName
    objRS("TimeWritten") = objEvent.TimeWritten
    objRS("Type") = objEvent.Type
    objRS("User") = objEvent.User
    objRS.Update
Next
objRS.Close
objConn.Close


Как ты понимаешь, не обязательно делать выгрузку логов, можно анализировать непосредственно в коде.

Но более перспективной является другая идея, а именно поставить хук на спулер печати и регистрировать все, что проходит через него. Где-то глубоко в дебрях MSDN я видел пример такого шаманства, но это надо искать и искать.

[corgi]

Мне бы думалось что создавать свою прогу в этом случае бессмыслено когда существуют аналоги

[Sebas]

Кстати, а никто не знает как получить количество КОПИЙ задания?
ни одна прога этого не делает и в виндах не отображается...

[Susanin]

Сенкс всем откликнувшимся!
2 Corgi: Сейчас скачал несколько программ, посмотрю, но идея-то в том, что создав собственную прогу, можно внедрить её в ту систему комп. класса, что уже есть, и не надо будет мучаться с отдельными прогами - вся статистика будет сразу в одной проге - и инет и печать, Еще тока надыбать как следить за сканером. он в журнале системы не отображается..
2alibek:
Что-то типа хуков я еще не пробовал.... Но покапаюсь в MSDN - посмотрю, вещь интересная.

В любом случае резких против моей идеи я не услышал=можно браться за работу!!
Еще раз Сенкс
Susanin