RegOpenKeyEx( $hKey, $sKey, 0, KEY_READ, $key) or  warn "Can't ope
+n $hKey\\$sKey: ", regLastError(),"\n";

$error = regLastError();
return "error" if ($error ne "");

##</code><code>##

	RegOpenKeyEx( $hKey, $sKey, 0, KEY_READ, $key) or  warn "Can't open $hKey\\$sKey: ", regLastError(),"\n";
	
	
	RegQueryValueEx( $key, $sValue, [], $type, $data, [] ) or  warn "Can't read $hKey\\$sKey: ", regLastError(),"\n";
	
	RegCloseKey( $key ) or warn "Can't close $hKey\\$sKey: ", regLastError(),"\n";

	chomp($data);
	return $data;