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 RETURNThanks in Advance