installierte und/oder Standarddrucker unter WIN ermitteln

26/02/2010 - 16:10 von Timothy Kesten | Report spam
Hi Folks,

ich habe eine kleine Anwendung , die unbedingt die installierten und/oder
den aktuellen Standarddrucker ermitteln/kennen muss.
Wie bekomme ich das mit Perl hin?

Danke

Timothy
 

Lesen sie die antworten

#1 Christian Winter
27/02/2010 - 15:20 | Warnen spam
Timothy Kesten schrieb:
ich habe eine kleine Anwendung , die unbedingt die installierten und/oder
den aktuellen Standarddrucker ermitteln/kennen muss.
Wie bekomme ich das mit Perl hin?



Am einfachsten meiner Meinung nach über das WMI. Ein kleines
Schnippsel:

#!perl

use strict;
use Win32::OLE;

my $printers = Win32::OLE->GetObject(
"winmgmts:"
)->InstancesOf("Win32_Printer")
or die "Unable to access WMI";

foreach my $prnt (in $printers) {
print $prnt->{Name} . " " .
($prnt->{Default} ? "(Default)" : "") .
$/;
}


Die vorhandenen Properties und Methoden für das Win32_Printer
Objekt finden sich auf der MSDN-Seite[1] beschrieben.

-Christian

[1] http://preview.tinyurl.com/yleaqlg

Ähnliche fragen