#!/usr/bin/perl use Win32::Printer::Enum; use Win32::Printer::Enum qw ( Jobs ); my $printer = 'Xerox-Phaser-8560'; my @printers = Printers(); # to get printernames foreach my $p (@printers) { if ($p->{PrinterName} eq $printer) { my @jobs = Jobs($p->{PrinterName}, 0, 1); # how I can clear the jobs here or is any other # effective method to clear the print queue for # a print server? } }
In reply to clear print queue in windows by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |