strComputer = "." >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>