my ($strUser, $strDomain) = (
	Variant(VT_BSTR|VT_BYREF, '<undef>'), 
	Variant(VT_BSTR|VT_BYREF, '<undef>')
);
$objWMIProcess->GetOwner($strUser, $strDomain);
print 'Owner: ' . $strDomain->Value . '\\' . $strUser->Value, "\n";