Логирование количества распечатанных страниц на принтере #475439

задача ежедневно снимать показания с принтеров - сколько страниц было распечатано за сутки (для расчета ремонта) нашел скрипт на vbs Проблема он читает из системного журнала сообщений по типу источника print но сейчас поглядел в свой журнал системы - у меня нет сообщений о том сколько страниц было распечатано сегодня. Соответственно и скрипт ничего не возвращает. Вопрос Где что надо включить, чтобы события с принтера записывались в журнал системы?

ЗЫ Домен

smaharbA вроде какую-то эпическую тонну скриптов для WMI на эту тему рисовал, если мне правильно изменяет память

молчит как партизан в аське )

В принтерах и факсах Файл - Свойства сервера. Последняя закладка.

а поточнее? )

Мля, во лень-то. Закладка Дополнительные параметры. Галка "Вести журнал сообщений очереди печати"

statwin вроде умеет, и не только это.

ниче не молчу аська включена

Можно настроить счетчики распечатанных страниц с записью в SQL базу, а потом записи обрабатывать. ТОлько почему-то счетчики то запускались со стартом винды, то иногда нет.

не просче ли выставить галочки у принтеров на сохранение очереди ?

Есть "Включить доп. возможности", но никакого журнала сообщений не вижу (

а так set wshshell=CreateObject("wscript.shell") call wshshell.run("%comspec% /c mofcomp -N:rootcimv2 %SystemRoot%system32WbemWbemcons.mof&&pause",9,-1) Computer="." Set Service = GetObject("winmgmts:\" & Computer & "RootCIMV2") Set oFilter = Service.Get("__EventFilter").SpawnInstance_ oFilter.Name = "MonPrnJobLog" oFilter.QueryLanguage = "WQL" oFilter.Query = "SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_PrintJob'" oFilter.Put_ Set oConsumer = Service.Get("LogFileEventConsumer").SpawnInstance_ oConsumer.Name = "MonPrnJobLog" oConsumer.FileName = "C:MonPrn.txt" oConsumer.Text = "Пользователь: %TargetInstance.Owner%, Компьютер: %TargetInstance.HostPrintQueue%, Принтер: %TargetInstance.Name%, Документ: %TargetInstance.Document%, Всего страниц: %TargetInstance.TotalPages%, Время печати:  %TargetInstance.TimeSubmitted%, Отпечатано страниц: %TargetInstance.PagesPrinted%" oConsumer.Put_ Set oFilter = Service.Get("__EventFilter.Name='MonPrnJobLog'") msgbox oConsumer.Text Set oConsumer = Service.Get("LogFileEventConsumer.Name='MonPrnJobLog'") Set oBinding = Service.Get("__FilterToConsumerBinding").SpawnInstance_ oBinding.Filter = oFilter.Path_ oBinding.Consumer = oConsumer.Path_ oBinding.Put_ запустить раз и зырить файлики

это ты всем счетчики поставил?

не там смотришь.

а где надо?

см.

ааа, точно , спасибо )