Win32::OLE - show all installed SW fails on W2003

[MoshiachNow]

HI

On Server 2003 the following code does not produce any output,Any idea ? (works OK on all other platforms).

use Win32::OLE('in');
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;

my $objWMIService = Win32::OLE->GetObject
("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n";
$colItems = $objWMIService->ExecQuery
("SELECT * FROM Win32_Product","WQL",wbemFlagReturnImmediately | wbemFlagForwardOnly);

foreach my $objItem (in $colItems)
{
print "Name: $objItem->{Name}\n";
print "Vendor: $objItem->{Vendor}\n";
print "Version: $objItem->{Version}\n";
print "\n";
}

Thanks

Long live king Moshiach !

http://www.7for70.com/

 

[PaulTEG]

can you find where it's crashing, could be a limitation of the module, maybe they changed the way they did some things as of Server 2003, or could be a permissions thing

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[MoshiachNow]

Thanks

Long live king Moshiach !

http://www.7for70.com/