strComputer = "." >>objWMIService = Getobject("winmgmts:"+ "{impersonationLevel=impersonate}!\\" + strComputer + "\root\cimv2") >>colInstalledPrinters = objWMIService.ExecQuery("SELECT * FROM Win32_Printer") >>For Each objPrinter In colInstalledPrinters >>?"Name: " + objPrinter.Name >>Do Case >>Case objPrinter.PrinterStatus = 1 >>strPrinterStatus = "Other" >>Case objPrinter.PrinterStatus = 2 >>strPrinterStatus = "Unknown" >>Case objPrinter.PrinterStatus = 3 >>strPrinterStatus = "Idle" >>Case objPrinter.PrinterStatus = 4 >>strPrinterStatus = "Printing" >>Case objPrinter.PrinterStatus = 5 >>strPrinterStatus = "Warmup" >>Endcase >>? "Printer Status: " + strPrinterStatus >>Next