use Win32::OLE;
my $strComputer = qw|.|;

&checkSEINPerformance;

sub checkSEINPerformance {
	my $objWMI = Win32::OLE->GetObject('winmgmts://' . $strComputer . '/root/cimv2');
	my $colProcesses = $objWMI->InstancesOf('Win32_Process');

	foreach my $objProcess (in $colProcesses) {
		if ($objProcess->Name =~ /SEINPerformance/) {
			return $objProcess->ProcessID;
		}
                else
                {
		     print qq|NOT IT: | . $objProcess->Name . 
                          qq|\t|       . $objProcess->ProcessID . 
                          qq|\n|;
                }
	}
	return -1;
}
1;