#!perl -w
use strict;
use Win32::OLE qw(in);

#Mode: Window Management Instrumentation (WMI)

# processproperties
my @properties = qw(Caption CreationClassName CreationDate CSCreationClassName
		    CSName Description ExecutablePath ExecutionState Handle
		    HandleCount InstallDate KernelModeTime MaximumWorkingSetSize
		    MinimumWorkingSetSize Name OSCreationClassName OSName
		    OtherOperationCount OtherTransferCount PageFaults PageFileUsage
		    ParentProcessId PeakPageFileUsage PeakVirtualSize PeakWorkingSetSize
		    Priority PrivatePageCount ProcessId QuotaNonPagedPoolUsage
		    QuotaPagedPoolUsage QuotaPeakNonPagedPoolUsage QuotaPeakPagedPoolUsage
		    ReadOperationCount ReadTransferCount SessionId Status TerminationDate
		    ThreadCount UserModeTime VirtualSize WindowsVersion WorkingSetSize
		    WriteOperationCount WriteTransferCount);

# processmethods
my @methods = qw(Create Terminate GetOwner GetOwnerSid);

my $server = ''; # local machine

my $locatorObj = Win32::OLE->new('WbemScripting.SWbemLocator')
    or die ("Error in creating locator object: ".Win32::OLE->LastError()."\n");

$locatorObj->{Security_}->{impersonationlevel} = 3;

my $serverObj = $locatorObj->ConnectServer($server, 'root\cimv2')
    or die ("Error in creating server object: ".Win32::OLE->LastError()."\n");

my $procSchema = $serverObj->Get('Win32_Process');

#@properties = map{ $_->{Name} } (in $procSchema->{Properties_});
#@methods    = map{ $_->{Name} } (in $procSchema->{Methods_});

foreach my $process (in $serverObj->InstancesOf("Win32_Process")){
    foreach (@properties){
	printf ("'%20s' => '%s'\n", $_, $process->{$_} || '' );
    }
    print ("-----------------------------------------------\n");
}