List Print Queue Statistics in Windows
You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.
List Print Queue Statistics in Windows using VBScript, WMI and LDAPExample(s)
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colPrintQueues = objWMIService.ExecQuery _ ("Select * from Win32_PerfFormattedData_Spooler_PrintQueue Where " & _ "Name <> '_Total'") For Each objPrintQueue in colPrintQueues Wscript.Echo "Name: " & objPrintQueue.Name Wscript.Echo "Jobs: " & objPrintQueue.Jobs Wscript.Echo "Current jobs spooling: " & objPrintQueue.JobsSpooling Wscript.Echo "Maximum jobs spooling: " & objPrintQueue.MaxJobsSpooling Wscript.Echo "Total jobs printed: " & objPrintQueue.TotalJobsPrinted Wscript.Echo "Job errors: " & objPrintQueue.JobErrors Wscript.Echo "Not ready errors: " & objPrintQueue.NotReadyErrors Wscript.Echo "Out of paper errors: " & objPrintQueue.OutOfPaperErrors Next