Серый форум — VBS\JS: лог печати - как сделать?

Re: VBS\JS: лог печати - как сделать?

2010-11-18T13:58:35Z

Хорошо!

Рабочий кусочек кода для ENG Windows:

            intPosL = InStr(1, strMsg, "owned", vbTextCompare)
            intPosR = InStr(1, strMsg, "printed", vbTextCompare)
            strOwner = Mid(strMsg, intPosL + 9, intPosR - intPosL - 14)

Спасибо!:)

Re: VBS\JS: лог печати - как сделать?

2010-11-18T13:45:30Z

bnp322, достаточно текста одного сообщения. Вероятную причину ошибки я уже указал.

Re: VBS\JS: лог печати - как сделать?

2010-11-18T13:44:25Z

Он ищет слова "владельца" и "напечатан" ?

Re: VBS\JS: лог печати - как сделать?

2010-11-18T13:37:27Z

Event Source: Print
Event Category: None
Event ID: 10
Date: 18.11.2010
Time: 21:33:33
User: xyz\user
Computer: TERMINAL
Description:
Document 21, Document owned by bnp was printed on hp LaserJet 1320 PCL 6 via port reklama. Size in bytes: 1008; pages printed: 1

Re: VBS\JS: лог печати - как сделать?

2010-11-18T13:36:01Z

bnp322 пишет:

Это?

Да.

bnp322 пишет:

owned by popova <...> pages printed: 2

Вы обратили внимание на то, что у Вас текст сообщения на английском (по крайней мере, в нужной для обработки части), а сценарий ищет слова-флаги на русском? Если нет, то вот и причина некорректной работы.

Re: VBS\JS: лог печати - как сделать?

2010-11-18T13:24:49Z

Это?

Event Type: Information
Event Source: Print
Event Category: None
Event ID: 10
Date: 18.11.2010
Time: 16:42:46
User: xyz\popova
Computer: TERMINAL
Description:
Document 18, Табличный документ owned by popova was printed on hp LaserJet 1320 PCL 6 (from REK1) in session 8 via port TS010. Size in bytes: 577450; pages printed: 2

Re: VBS\JS: лог печати - как сделать?

2010-11-18T13:19:45Z

bnp322 пишет:

... Если я пытаюсь все это сделать на 2003 терминальном сервере, где печатают ежедневно, то : Количество событий = 276 неизменно. Т.е. если я выберу анализ 1 дня или 1 месяца ничего не изменится <...> "Вылазили" пустые окна без всяких символов

1. Количество найденных событий никак не зависит от диапазона дат, который назначен сценарию для анализа.
2. Проверьте настройки периодичности очистки журнала событий.
3. Имя пользователя, как уже сказано в моём предыдущем сообщении, определяйте так: objItem.User.
4. Приведите содержимое одной записи журнала событий о результатах обработки задания печати. Конфиденциальные данные можете заменить на вымышленные.

Re: VBS\JS: лог печати - как сделать?

2010-11-18T13:17:15Z

Dmitrii пишет:

Евген пишет:
... Мониторинг производиться только когда в драйвере принтера указано "сохранять задания после печати" - это однозначно !!!
Эта фраза относится к сценарию из Вашего сообщения, или из сообщения #3?

Из моего - однозначно !

Re: VBS\JS: лог печати - как сделать?

2010-11-18T12:56:58Z

Поверил!
Если в ХР включить ведение лога - все хорошо - даже если даты за пределами. Переменные intPosL и intPosR были равны 42 и 56 в конце цикла.
Независимо от 1 или двух напечатанных страниц. Файл Results.txt адекватен.
Если я пытаюсь все это сделать на 2003 терминальном сервере, где печатают ежедневно, то :
Количество событий = 276 неизменно. Т.е. если я выберу анализ 1 дня или 1 месяца ничего не изменится!
Я пытался получить переменные, выглядело это так

 ...
ll = intPosL
rr = intPosR
            strOwner = Mid(strMsg, intPosL + 10, intPosR - intPosL - 11)
 ...           
Wscript.Echo ll
Wscript.Echo rr
    Wscript.Echo "Готово."

"Вылазили" пустые окна без всяких символов

Re: VBS\JS: лог печати - как сделать?

2010-11-18T11:59:13Z

bnp322 пишет:

... если диапазон дат мониторинга больше реально наступившего, т.е. если сейчас я выберу параметр dtmLastDate = DateValue("20.11.2010"),
то сначала будет сообщение о кол-ве найденных сообщений (не ноль), а затем:
Строка: 23
Символ: 13
Ошибка: Недопустимый вызов или аргумент процедуры: 'Mid'
Код: 800A0005

Вообще-то, диапазон дат (если их значения заданы корректно) не должен вызывать никакой ошибки. Можно, например, задать дату начала диапазона более позднюю, чем дата окончания диапазона. Сценарий должен отработать без ошибок (проверялось), но файл отчёта, разумеется будет пустым. Но раз у Вас возникает ошибка, то следует заняться отладкой:
- "отловите" ту итерацию цикла, при работе которой возникает ошибка;
- проконтролируйте значения переменных intPosL и intPosR;
- соотнесите полученные значения с содержимым переменной strMsg.

Если не справитесь самостоятельно, то выложите сюда текст, являющийся значением переменной strMsg.

Кстати, имя пользователя, создавшего задание печати, можно получить и проще (найденный Вами сценарий уже староват): objItem.User

bnp322 пишет:

... в остальных случаях кол-во событий есть, а файл Results.txt пустой.

Такая ситуация характерна для случая, когда в журнале нет сообщений, дата создания которых попадает в заданный диапазон, либо границы диапазона (как уже упоминалось выше) заданы неверно.

Евген пишет:

... Мониторинг производиться только когда в драйвере принтера указано "сохранять задания после печати" - это однозначно !!!

Эта фраза относится к сценарию из Вашего сообщения, или из сообщения #3?
Если - последнее, то Вы ошибаетесь. Драйвер принтера здесь совершенно "невиновен". Протоколирование успешных событий печати - системная настройка. На серверных платформах "окошек" она включена по умолчанию. На XP включается так:
Папка "Принтеры и факсы" - меню "Файл" - пункт "Свойства сервера" - вкладка "Дополнительные параметры" - "коробочка" "Вести журнал сообщений очереди печати".
На Vista и 7 - не проверял.

Re: VBS\JS: лог печати - как сделать?

2010-11-18T11:12:54Z

Позвольте и мне выложить своё решение (у меня оно для принтеров OKI "окушек")
Мониторинг производиться только когда в драйвере принтера указано "сохранять задания после печати" - это однозначно !!! Не наступайте больше на эти грабли !!!
Устанавливать скрипт на компах, куда принтер подключен физически !
Потом просматривать логи на сетевой шаре в соответсвующем названию компа логе...

А вот и код...

Set objNetwork = CreateObject("Wscript.Network")
CompName = objNetwork.ComputerName
          
strComputer = "."
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForAppending = 8

' даём принтеру установку, чтобы он сохранял задания для логирования скриптом
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
If Left(objPrinter.DeviceID,3)="OKI" then
PrinterID=objPrinter.DeviceID
objPrinter.KeepPrintedJobs = True
objPrinter.Put_
End if
Next

'отменяем все задания
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
objPrinter.CancelAllJobs()
Next

'удаляем все задания
Set colPrintJobs = objWMIService.ExecQuery("Select * from Win32_PrintJob")
For Each objPrintJob in colPrintJobs 
objPrintJob.Delete_
Next

' ну и мониторим каждые 60 сек события о печати :-)
Set colPrintJobs = objWMIService.ExecNotificationQuery("select * from __InstanceCreationEvent Within 60 where TargetInstance isa 'Win32_PrintJob' and TargetInstance.JobStatus='Напечатано'")
Do While True
    Set objPrintJob = colPrintJobs.NextEvent
    If InStr(objPrintJob.TargetInstance.Name, PrinterID)<>0 Then 
        docname=objPrintJob.TargetInstance.Document
        size=objPrintJob.TargetInstance.Size
        owner=objPrintJob.TargetInstance.Owner
        jobstamp=WMIDateToString(objPrintJob.TargetInstance.TimeSubmitted)
        pages=objPrintJob.TargetInstance.TotalPages
        On error resume next
        Set LogFile = objFSO.OpenTextFile("\\192.168.42.90\Pubs\PM\" & CompName & "_Print.Log", ForAppending, True)
        LogFile.WriteLine Owner & "   " & jobstamp & "   " & docname & "   " & size & "   " & pages
        LogFile.Close
        On error goto 0
    End If
Loop 


Function WMIDateToString(dtmDate)

WMIDateToString = CDate(Mid(dtmDate, 5, 2) & "/" & _
                  Mid(dtmDate, 7, 2) & "/" & _
                  Left(dtmDate, 4) & "   " & _
                  Mid(dtmDate, 9, 2) & ":" & _
                  Mid(dtmDate, 11, 2) & ":" & _
                  Mid(dtmDate, 13, 2))

End Function

Re: VBS\JS: лог печати - как сделать?

2010-11-18T10:39:24Z

Опробовал в домене 2003.
2 проблемы:

1. если диапазон дат мониторинга больше реально наступившего, т.е. если сейчас я выберу параметр dtmLastDate = DateValue("20.11.2010"),
то сначала будет сообщение о кол-ве найденных сообщений (не ноль), а затем:
Строка: 23
Символ: 13
Ошибка: Недопустимый вызов или аргумент процедуры: 'Mid'
Код: 800A0005

2. в остальных случаях кол-во событий есть, а файл Results.txt пустой.

Re: VBS\JS: лог печати - как сделать?

2008-06-16T11:40:11Z

alexii пишет:

Можете расписать требуемые действия подробно, по шагам?

К сожалению, пока не могу, т.к. это лишь предположение.
Думаю, имеет смысл порыться в справочниках по реестру на предмет поиска нужного раздела (ключа).

Re: VBS\JS: лог печати - как сделать?

2008-06-13T13:02:54Z

можно будет включить регистрацию события об успешном завершении задания на печать в системном журнале

Можете расписать требуемые действия подробно, по шагам?

Re: VBS\JS: лог печати - как сделать?

2008-06-13T12:16:46Z

alexii пишет:

У меня такое наблюдается только на серверах печати (и на сервере терминалов). При локальной печати — в журнале тишина...

J.Rico пишет:

в журнале отсортировал по Источник=Print -> сообщения только об ошибках есть

Приношу свои извинения за плохо протестированный сценарий. Дело в том, что я писал его и, соответственно, проверял на работоспособность именно для сервера печати, работающего под управлением Windows 2003. А так как в работе сценарий не пригодился, то я отправил его "в запас" и забыл о подробностях тестирования.
Очевидно, что на рядовых станциях он сможет работать лишь в том случае, если на них можно будет включить регистрацию события об успешном завершении задания на печать в системном журнале.