Quote!Programme, die sich in die Registry eingetragen haben
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
use strict; use Win32::OLE qw{ in }; use constant bFlagReturnImmediately => 0x10; use constant bFlagForwardOnly => 0x20; my $wmi = Win32::OLE->GetObject("winmgmts:\\\\localhost\\root\\CIMV2") or die "GetObject failed: $!\n"; my $products = $wmi->ExecQuery("SELECT * FROM Win32_Product", "WQL", bFlagReturnImmediately | bFlagForwardOnly) or die "WMI::ExecQuery failed: $!\n"; foreach my $product (in $products) { print $product->{InstallDate}, "\t", $product->{Caption}, "\n"; }