use Win32::OLE;

# PID of the target process
$intPID = 1468;

# ------ END CONFIGURATION ---------
print "Process PID: $intPID\n";

$objWMIProcess = Win32::OLE->GetObject('winmgmts:\root\cimv2:Win32_Process.Handle=\'' . $intPID . '\'');
print 'Name: ' . $objWMIProcess->Name, "\n";
print 'Command line: ' . $objWMIProcess->CommandLine, "\n";
print 'Description: ' . $objWMIProcess->Description, "\n";
print 'Exe Path: ' . $objWMIProcess->ExecutablePath, "\n";
print 'Parent Process ID: ' . $objWMIProcess->ParentProcessId, "\n";
$objWMIProcess->GetOwner($strUser, $strDomain);
print 'Owner: ' . $strDomain . '\\' . $strUser, "\n";