如何把一个用户下的所有对象的所有权限一次性赋给另一个用户

Question

1). logon as grantor, for instance USER1
2). run PL/SQL scripts:
DECLARE
   p_grantee   VARCHAR2 (30) := 'USER2';
BEGIN
   FOR rec IN (SELECT object_name, object_type
                    , DECODE (object_type
                            , 'TABLE', 'ALL'
                            , 'VIEW', 'SELECT'
                            , 'EXECUTE'
                             ) grant_type
               FROM   user_objects)
   LOOP
      BEGIN
         EXECUTE IMMEDIATE 'grant all on ' || rec.object_name || ' to ' || p_grantee;
      EXCEPTION
         WHEN OTHERS
         THEN
            PRINT (SUBSTR (SQLERRM, 1, 240));
      END;
   END LOOP;
END;
/