#!perl

use strict;
use warnings;

use Win32::OLE 'in';
use Data::Dumper 'Dumper'; 

my $computer = shift || usage();
my $class = shift || usage();
my $ns = shift || '\\root\\CIMV2';

my $wmi = Win32::OLE->GetObject('winmgmts:{impersonationLevel=Impersonate}!\\\\' . $computer . $ns)
	|| die Win32::OLE->LastError;
my $coll = $wmi->InstancesOf($class); 

foreach(in $coll) {
	foreach(in $_->{Properties_}) {
		print $_->{Name}, ': ';
		
		my $val = $_->{Value} || '<undef>';
		print ref $val eq 'ARRAY' ? Dumper($val) : $val . "\n"
	}
}

sub usage {
	exit print qq{
Usage: perl $0 <computer name> <OLE class> [OLE namespace]
E.g.: perl $0 manager10 Win32_ComputerSystem

Note: default namespace is \\root\\CIMV2
WMI classes list: http://msdn.microsoft.com/en-us/library/aa394554(VS.85).aspx
	}
}