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;
		}
	}
	return -1;
}
##</code><code>##

Win32::OLE(0.1701) error 0x80070422: "The service cannot be started,
either because it is disabled or because it has no enabled devices
associated with it"
   after character 0 in "winmgmts://.root/cimv2" ....