Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Windows [игнор отключен] [закрыт для гостей] / мониторинг печати с помощью WMI / 12 сообщений из 12, страница 1 из 1
13.07.2010, 17:48
    #36739112
seeerg_23
seeerg_23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
мониторинг печати с помощью WMI
есть принтеры, подключённые по LPT, USB. Нужно получать с них информацию об общем количестве напечатанных страниц. нашёл информацию, что это можно сделать с помощью WMI, написав скрипт.
дайте, плз, больше инфы, ссылок, про то как мониторить печать принтеров. я всё нахожу сжато и много непонятного. может кто делал это, киньте код плз.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2010, 20:14
    #36739323
velfimov
velfimov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
мониторинг печати с помощью WMI
seeerg_23,

а я вот на самом принтере смотрю
(когда лень корму оторвать то на некоторых моделях через вебинтерфейс)
на каждом по разному

но Шарп это просто идеал!
без всяких бегоней по меню жмёшь кнопку и о чудо результат на экране

а так ещё можно "Свойства"-"Свойства принтера"- "Основные операции" - кнопка "О программе"

короче каждая модель со своим закидоном

для сетевых принтеров есть туча утилит, которые даже лимиты печати позволяют выставлять
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2010, 09:08
    #36739807
seeerg_23
seeerg_23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
мониторинг печати с помощью WMI
так каким образом смотрите?? можно код в студию??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2010, 16:01
    #36764321
seeerg_23
seeerg_23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
мониторинг печати с помощью WMI
дайте, плз, ссылку, где приводится пример как вытащить информацию с принтера, а именно о счётчике страниц, подключённого по юсб, лпт
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2010, 16:17
    #36764373
Anatoly Podgoretsky
Anatoly Podgoretsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
мониторинг печати с помощью WMI
У каждого принтера это уникально и делается это с помощью утилит принтера или через ВЕБ интерфейс, или распечатывается тестовая страниц, ничего из этого как правило не документировано, а если и документировано, то можно голову словамь.

Вот где ты нашел информацию там и бери.
Мониторить печать принтеров - это уже немного другая задача.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2010, 17:07
    #36764518
seeerg_23
seeerg_23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
мониторинг печати с помощью WMI
тогда такой вопрос?? какм образом можно мониторить и управлять печатью несетевых принтров??
ну хотя бы мониторинг сначала сделать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2010, 19:16
    #36764866
Anatoly Podgoretsky
Anatoly Podgoretsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
мониторинг печати с помощью WMI
Мониторинг чего, температуры?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2010, 20:40
    #36764982
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
мониторинг печати с помощью WMI
Сценарии управления принтерами
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2010, 20:47
    #36764989
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
мониторинг печати с помощью WMI
 
хороший пример
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
' PrinterWMI.vbs
' Sample VBScript to interrogate Printer properties with WMI
' Author Guy Thomas http://computerperformance.co.uk/
' Version 2.3 - December 2005
' --------------------------------------------------------------' 
Option Explicit
Dim objWMIService, objItem, colItems, strComputer, intPrinters

strComputer ="."
intPrinters =  1 

' --------------------------------------------
' Pure WMI Section
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery _
("SELECT * FROM Win32_Printer")

Call Wait() ' Goto Sub Routine at the end

' On Error Resume Next
For Each objItem In colItems
WScript.Echo "Printers on " _
& objItem.name & ", Printer Number: " & intPrinters & VbCr & _ 
"====================================" & VbCr & _ 
"Availability: " & objItem.Availability & VbCr & _
"Description: " & objItem.Description & VbCr & _ 
"Printer: " & objItem.DeviceID & VbCr & _ 
"Driver Name: " & objItem.DriverName & VbCr & _ 
"Port Name: " & objItem.PortName & VbCr & _ 
"Printer State: " & objItem.PrinterState & VbCr & _ 
"Printer Status: " & objItem.PrinterStatus & VbCr & _ 
"PrintJobDataType: " & objItem.PrintJobDataType & VbCr & _ 
"Print Processor: " & objItem.PrintProcessor & VbCr & _ 
"Spool Enabled: " & objItem.SpoolEnabled & VbCr & _ 
"Separator File: " & objItem.SeparatorFile & VbCr & _ 
"Queued: " & objItem.Queued & VbCr & _ 
"Status: " & objItem.Status & VbCr & _ 
"StatusInfo: " & objItem.StatusInfo & VbCr & _ 
"Published: " & objItem.Published & VbCr & _ 
"Shared: " & objItem.Shared & VbCr & _ 
"ShareName: " & objItem.ShareName & VbCr & _ 
"Direct: " & objItem.Direct & VbCr & _ 
"Location: " & objItem.Location & VbCr & _ 
"Priority: " & objItem.Priority & VbCr & _ 
"Work Offline: " & objItem.WorkOffline & VbCr & _ 
"Horizontal Res: " & objItem.HorizontalResolution & VbCr & _
"Vertical Res: " & objItem.VerticalResolution & VbCr & _ 
""
intPrinters = intPrinters +  1 
Next

sub Wait()
If strComputer = "." then
strComputer = "Local Host"
else strComputer = strComputer
end if

WScript.Echo "Wait 2 mins for " & strComputer _
& " to enumerate printers"

End Sub

WScript.Quit

' End of Sample Printer VBScript
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.07.2010, 00:06
    #36765185
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
мониторинг печати с помощью WMI
 
проверил все свойства кроме массивов ни в одном не показывает историю
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
Option Explicit
Dim objWMIService, objItem, colItems, strComputer, intPrinters
dim fso ,ts , ForAppending
strComputer ="."
intPrinters =  1 

' --------------------------------------------
' Pure WMI Section
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery _
("SELECT * FROM Win32_Printer")

Call Wait() ' Goto Sub Routine at the end
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
ForAppending =  8  ' открываем записываем в конец файла
Set ts = fso.OpenTextFile("log.txt", ForAppending, True)
 'On Error resume next
For Each objItem In colItems
ts.Write "Printers on " _
& objItem.name & ", Printer Number: " & intPrinters & VbCr & _ 
"====================================" & VbCr & _ 
"Attributes: "&objItem.Attributes & VbCr & _
"Availability: "&objItem.Availability & VbCr & _
"AvailableJobSheets: "&objItem.AvailableJobSheets & VbCr & _
"AveragePagesPerMinute: "&objItem.AveragePagesPerMinute & VbCr & _
"CharSetsSupported: "&objItem.CharSetsSupported& VbCr & _
"Comment: "&objItem.Comment& VbCr & _
"ConfigManagerErrorCode: "&objItem.ConfigManagerErrorCode& VbCr & _
"ConfigManagerUserConfig: "&objItem.ConfigManagerUserConfig& VbCr & _
"CreationClassName: "&objItem.CreationClassName& VbCr & _
"CurrentCapabilities: "&objItem.CurrentCapabilities& VbCr & _
"CurrentCharSet: "&objItem.CurrentCharSet& VbCr & _
"CurrentLanguage: "&objItem.CurrentLanguage& VbCr & _
"CurrentMimeType: "&objItem.CurrentMimeType& VbCr & _
"CurrentNaturalLanguage: "&objItem.CurrentNaturalLanguage& VbCr & _
"CurrentPaperType: "&objItem.CurrentPaperType& VbCr & _
"Default: "&objItem.Default& VbCr & _
"DefaultCapabilities: "&objItem.DefaultCapabilities& VbCr & _
"DefaultCopies: "&objItem.DefaultCopies& VbCr & _
"DefaultLanguage: "&objItem.DefaultLanguage& VbCr & _
"DefaultMimeType: "&objItem.DefaultMimeType& VbCr & _
"DefaultNumberUp: "&objItem.DefaultNumberUp& VbCr & _
"DefaultPaperType: "&objItem.DefaultPaperType& VbCr & _
"DefaultPriority: "&objItem.DefaultPriority& VbCr & _
"Description: "&objItem.Description& VbCr & _
"DetectedErrorState: "&objItem.DetectedErrorState& VbCr & _
"DeviceID: "&objItem.DeviceID& VbCr & _
"Direct: "&objItem.Direct& VbCr & _
"DoCompleteFirst: "&objItem.DoCompleteFirst& VbCr & _
"DriverName: "&objItem.DriverName& VbCr & _
"EnableBIDI: "&objItem.EnableBIDI& VbCr & _
"EnableDevQueryPrint: "&objItem.EnableDevQueryPrint& VbCr & _
"ErrorCleared: "&objItem.ErrorCleared& VbCr & _
"ErrorDescription: "&objItem.ErrorDescription& VbCr & _
"ErrorInformation: "&objItem.ErrorInformation& VbCr & _
"ExtendedDetectedErrorState: "&objItem.ExtendedDetectedErrorState& VbCr & _
"ExtendedPrinterStatus: "&objItem.ExtendedPrinterStatus& VbCr & _
"Hidden: "&objItem.Hidden& VbCr & _
"HorizontalResolution: "&objItem.HorizontalResolution& VbCr & _
"InstallDate: "&objItem.InstallDate& VbCr & _
"JobCountSinceLastReset: "&objItem.JobCountSinceLastReset& VbCr & _
"KeepPrintedJobs: "&objItem.KeepPrintedJobs& VbCr & _
"LanguagesSupported: "&objItem.LanguagesSupported& VbCr & _
"LastErrorCode: "&objItem.LastErrorCode& VbCr & _
"Local: "&objItem.Local& VbCr & _
"Location: "&objItem.Location& VbCr & _
"MarkingTechnology: "&objItem.MarkingTechnology& VbCr & _
"MaxCopies: "&objItem.MaxCopies& VbCr & _
"MaxNumberUp: "&objItem.MaxNumberUp& VbCr & _
"MaxSizeSupported: "&objItem.MaxSizeSupported& VbCr & _
"Name: "&objItem.Name& VbCr & _
"Network: "&objItem.Network& VbCr & _
"PaperTypesAvailable: "&objItem.PaperTypesAvailable& VbCr & _
"Parameters: "&objItem.Parameters& VbCr & _
"PNPDeviceID: "&objItem.PNPDeviceID& VbCr & _
"PortName: "&objItem.PortName& VbCr & _
"PowerManagementSupported: "&objItem.PowerManagementSupported& VbCr & _
"PrinterState: "&objItem.PrinterState& VbCr & _
"PrinterStatus: "&objItem.PrinterStatus& VbCr & _
"PrintJobDataType: "&objItem.PrintJobDataType& VbCr & _
"PrintProcessor: "&objItem.PrintProcessor& VbCr & _
"Priority: "&objItem.Priority& VbCr & _
"Published: "&objItem.Published& VbCr & _
"Queued: "&objItem.Queued& VbCr & _
"RawOnly: "&objItem.RawOnly& VbCr & _
"SeparatorFile: "&objItem.SeparatorFile& VbCr & _
"ServerName: "&objItem.ServerName& VbCr & _
"Shared: "&objItem.Shared& VbCr & _
"ShareName: "&objItem.ShareName& VbCr & _
"SpoolEnabled: "&objItem.SpoolEnabled& VbCr & _
"StartTime: "&objItem.StartTime& VbCr & _
"Status: "&objItem.Status& VbCr & _
"StatusInfo: "&objItem.StatusInfo& VbCr & _
"SystemCreationClassName: "&objItem.SystemCreationClassName& VbCr & _
"SystemName: "&objItem.SystemName& VbCr & _
"TimeOfLastReset: "&objItem.TimeOfLastReset& VbCr & _
"UntilTime: "&objItem.UntilTime& VbCr & _
"VerticalResolution: "&objItem.VerticalResolution& VbCr & _
"WorkOffline: "&objItem.WorkOffline& VbCr & _
""& VbCr
intPrinters = intPrinters +  1 

Next
ts.Close
sub Wait()
If strComputer = "." then
strComputer = "Local Host"
else strComputer = strComputer
end if

WScript.Echo "Wait 2 mins for " & strComputer _
& " to enumerate printers"

End Sub

WScript.Quit

' End of Sample Printer VBScript
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2010, 18:09
    #36771625
seeerg_23
seeerg_23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
мониторинг печати с помощью WMI
да, пример хороший. Но задача немного другая: добраться до счётчика печати. перечитал все параметры, которые можно выводить с помощью WMI, а вот какой параметр отвечает за количество напечатанных страниц ??? я не могу найти, если пропустил, тыкните пальцем плз.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2010, 19:33
    #36771781
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
мониторинг печати с помощью WMI
seeerg_23,
то что вам нужно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Windows [игнор отключен] [закрыт для гостей] / мониторинг печати с помощью WMI / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 488ms
Закрыть
start [/forum/topic.php?fid=26&mobile=1&tid=1499507]:
 0ms
get settings:
 9ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 179ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 214ms
total:  488ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]