Try:
### Getting the parent process id using WMI ###
# Get the WMI root on the users machine
my $ppid;
my $objWMIService =
Win32::OLE->GetObject("winmgmts:\\\\.\\root\\CIMV2");
if ( defined($objWMIService) ) {
# Get the object corresponding to Win32_Process where process id
is the current process
my $objProcessList = $objWMIService->ExecQuery("Select
ParentProcessId from Win32_Process WHERE ProcessId = $$");
if (defined($objProcessList)) {
# Get the parent process ids
foreach my $prsObj (in($objProcessList)) {
$ppid = $prsObj->ParentProcessId;
last;
}
}
}
________________________________
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of James
Couball
Sent: Thursday, May 03, 2007 3:20 PM
To: [email protected]
Subject: getppid() on Windows
Is there a way to get the parent process id of a Windows process just
like getppid() (since getppid() doesn't seem to be implemented in
ActiveState perl)?
Sincerely,
James Couball
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
