Eliminando Usuarios conectados

Este script es de mucha utilidad, cuando requerimos eliminar un usuario con todo su esquema y existen conexiones que deben ser eliminadas. SET SERVEROUTPUT ON SIZE 1000000 DECLARE CURSOR C1 IS SELECT SID, SERIAL#,USERNAME,SCHEMANAME,OSUSER,MACHINE,PROGRAM,TYPE FROM GV$SESSION WHERE USERNAME = '&A'; BEGIN FOR VAR1 IN C1 LOOP EXIT WHEN C1%NOTFOUND; DBMS_OUTPUT.PUT_LINE('Eliminando: '|| VAR1.SID || ', ' || VAR1.SERIAL# || ', ' || VAR1.USERNAME || ', ' || VAR1.OSUSER || ', ' || VAR1.TYPE); EXECUTE IMMEDIATE ('ALTER SYSTEM KILL SESSION ('||VAR1.SID||','||VAR1.SERIAL#||')'); END LOOP; END;