>lcComputer = '.' >loWMIService = Getobject('winmgmts:' ; > + '{impersonationLevel=impersonate}!\\' + lcComputer + '\root\cimv2') > >*!* loInstalledPrinters = loWMIService.ExecQuery ; > ("Select * from Win32_Printer Where PrinterStatus = '1' or PrinterStatus = '2'") > >loInstalledPrinters = loWMIService.ExecQuery ; > ("Select * from Win32_Printer ") > >For Each loPrinters In loInstalledPrinters >CLEAR > >? loPrinters.GetObjectText_ >? loprinters.Name > wait >Next > >RETURN > >>