To understand your print environment, it is necessary to examine the way the queues on the print servers are used. The MonitorPrintQueue.vbs script uses the Win32_PrintJob WMI class to obtain useful information about the load placed on your print servers. Because MonitorPrintQueue.vbs is based on previous scripts, you will look only at the Worker and Output information section of the script. You assign "Select * from Win32_PrintJob" to the wmiQuery variable in the Reference section. That is the main change required in that section.
Option Explicit
'On Error Resume Next
Dim strComputer
Dim wmiNS
Dim wmiQuery
Dim objWMIService
Dim colItems
Dim objItem
Dim intTotalJobs
Dim intTotalPages
Dim intMaxPrintJob
strComputer = '.'
wmiNS = '\root\cimv2'
wmiQuery = 'Select * from win32_PrintJob'
Set objWMIService = GetObject('winmgmts:\\' _
& strComputer & wmiNS)
Set colItems = objWMIService.ExecQuery(wmiQuery)
If colItems.count = 0 Then
WScript.Echo('There are no print jobs at this time')
Else
For Each objItem In colItems
intTotalJobs = intTotalJobs + 1
intTotalPages = intTotalPages + objItem.TotalPages
If objItem.TotalPages > intMaxPrintJob Then
intMaxPrintJob = objItem.TotalPages
End If
Next
WScript.Echo 'Total print jobs in queue: ' & intTotalJobs
WScript.Echo 'Total pages in queue: ' & intTotalPages
WScript.Echo 'Largest print job in queue: ' & intMaxPrintJob
End If