Is there any way I can get accurate status of Windows Printers (and possibly the "Qty of Documents" pending) from Windows "Printers & Faxes" page ?
I have already tried:
objWMIService = Getobject("winmgmts:"+ "{impersonationLevel=impersonate}!\\" + strComputer + "\root\cimv2")
colInstalledPrinters = objWMIService.ExecQuery("SELECT * FROM Win32_Printer")
For Each objPrinter In colInstalledPrinters
Do Case
Case objPrinter.PrinterStatus = 1
strPrinterStatus = "Offline" && "Other"
Case objPrinter.PrinterStatus = 2
strPrinterStatus = "Online" && "Unknown"
Case objPrinter.PrinterStatus = 3
strPrinterStatus = "Ready" && "Idle"
Case objPrinter.PrinterStatus = 4
strPrinterStatus = "Printing"
Case objPrinter.PrinterStatus = 5
strPrinterStatus = "Warmup"
ENDCASE
NEXT
But this returns bogus results. For example it returns
objPrinter.PrinterStatus = 3 (defined as Idle)
when the the printer status actually indicates "Error" in Windows Printers page.
I need something more reliable so that I can accurately evaulate Printer status.
Thanks.