Script para dropar objetos no banco 2 - Oracle

Este script para dropar os objetos no banco já é mais refinado, porém é preciso estar logado com o owner que vai ter os objetos excluído.
* necessário
1 - ter certeza do que está fazendo, não me presonsabilizo pelo mau uso do script
2 - executar o script


declare
 vCursor number;
 vComando varchar2(2000);
 vError number;
begin
vCursor := dbms_sql.open_cursor;
for rObjetos in (select *
                   from user_objects
                   where object_type in ('TABLE','FUNCTION','PROCEDURE','SYNONYM','VIEW','PACKAGE','SEQUENCE')
               ) loop
   vComando := 'Drop '||rObjetos.object_type|| ' ' || rObjetos.object_name;
   if rObjetos.object_type = 'TABLE' then
      vComando := vComando || ' cascade constraint';
   end if;
   dbms_sql.parse(vCursor, vComando, dbms_sql.native);
   vError := dbms_sql.execute(vCursor);
end loop;
dbms_sql.close_cursor(vCursor);
end;
/
exit;