-----------------------------------------------------

#!perl 

use Win32::OLE qw(in); 


if ( $ARGV[0] ) { 
$strComputer = $ARGV[0]; 
} else { 
$strComputer = "."; 
} 

$strComputer = '.'; 
$objWMIService = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\CIMV2'); 
$colItems = $objWMIService->ExecQuery('SELECT * FROM Win32_Process WHERE Name = \'explorer.exe\'', undef, 48); 
foreach my $objItem (in $colItems) { 

print 'PageFileUsage: ' . $objItem->PageFileUsage, "\n";