24 lines
502 B
Perl
24 lines
502 B
Perl
|
|
use OLE;
|
|
use Win32;
|
|
$locator = CreateObject OLE 'WbemScripting.SWbemLocator';
|
|
|
|
$services = $locator->ConnectServer();
|
|
$enumerator = $services->InstancesOf("Win32_process");
|
|
|
|
use Win32::OLE::Enum;
|
|
$processes = Win32::OLE::Enum->new ($enumerator);
|
|
while ($process = $processes->Next()) {
|
|
print "Process: $process->{Name}\n";
|
|
$derivation = $process->{Derivation_};
|
|
$len = @$derivation;
|
|
|
|
print "The length of array: $len\n";
|
|
|
|
foreach $x (@$derivation) {
|
|
print "$x\n";
|
|
}
|
|
|
|
}
|
|
|