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