!/usr/bin/perl -w

use strict;
use Win32::OLE qw/in/;

#fill in domain and server
my $domain = '';
my $server = '';
my $printer;

my $objServer = Win32::OLE->GetObject("WinNT://$domain/$server");
$objServer->{FILTER} = ["printqueue"];

foreach $printer (in $objServer) {
	print "$printer->{NAME}\n";
}