A partir de Windows XP et 2003

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters = objWMIService.ExecQuery _
    ("Select * from Win32_Printer")

For Each objPrinter in colInstalledPrinters
    objPrinter.CancelAllJobs()
Next
 

A partir de Windows 2000

Set objComputer = GetObject("WinNT://atl-ps-01")
objComputer.Filter = Array("printQueue")

For Each objPrinter in objComputer
    objPrinter.Purge
Next