ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Windows [игнор отключен] [закрыт для гостей] / мониторинг печати с помощью WMI
12 сообщений из 12, страница 1 из 1
мониторинг печати с помощью WMI
    #36739112
seeerg_23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
seeerg_23
Участник
есть принтеры, подключённые по LPT, USB. Нужно получать с них информацию об общем количестве напечатанных страниц. нашёл информацию, что это можно сделать с помощью WMI, написав скрипт.
дайте, плз, больше инфы, ссылок, про то как мониторить печать принтеров. я всё нахожу сжато и много непонятного. может кто делал это, киньте код плз.
...
Рейтинг: 0 / 0
13.07.2010, 17:48
| Ответить | Цитировать | Написать  
мониторинг печати с помощью WMI
    #36739323
Фотография velfimov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
velfimov
Участник
seeerg_23,

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

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

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

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

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

Вот где ты нашел информацию там и бери.
Мониторить печать принтеров - это уже немного другая задача.
...
Рейтинг: 0 / 0
28.07.2010, 16:17
| Ответить | Цитировать | Написать  
мониторинг печати с помощью WMI
    #36764518
seeerg_23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
seeerg_23
Участник
тогда такой вопрос?? какм образом можно мониторить и управлять печатью несетевых принтров??
ну хотя бы мониторинг сначала сделать.
...
Рейтинг: 0 / 0
28.07.2010, 17:07
| Ответить | Цитировать | Написать  
мониторинг печати с помощью WMI
    #36764866
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Мониторинг чего, температуры?
...
Рейтинг: 0 / 0
28.07.2010, 19:16
| Ответить | Цитировать | Написать  
мониторинг печати с помощью WMI
    #36764982
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Сценарии управления принтерами
...
Рейтинг: 0 / 0
28.07.2010, 20:40
| Ответить | Цитировать | Написать  
мониторинг печати с помощью WMI
    #36764989
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
 
хороший пример
Код: 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
28.07.2010, 20:47
| Ответить | Цитировать | Написать  
мониторинг печати с помощью WMI
    #36765185
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
 
проверил все свойства кроме массивов ни в одном не показывает историю
Код: 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
29.07.2010, 00:06
| Ответить | Цитировать | Написать  
мониторинг печати с помощью WMI
    #36771625
seeerg_23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
seeerg_23
Участник
да, пример хороший. Но задача немного другая: добраться до счётчика печати. перечитал все параметры, которые можно выводить с помощью WMI, а вот какой параметр отвечает за количество напечатанных страниц ??? я не могу найти, если пропустил, тыкните пальцем плз.
...
Рейтинг: 0 / 0
02.08.2010, 18:09
| Ответить | Цитировать | Написать  
мониторинг печати с помощью WMI
    #36771781
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
seeerg_23,
то что вам нужно
...
Рейтинг: 0 / 0
02.08.2010, 19:33
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Windows [игнор отключен] [закрыт для гостей] / мониторинг печати с помощью WMI
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=26&msg=36765185&tid=1499507]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 60ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 241ms
total:  396ms
созд. / загр.: 396ms
x
x
Закрыть


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