腳本殺用戶

connect system/qhdlgis@qhgis1;
declare
  cursor c is select sid,a.SERIAL# from v$session a where a.username='SDE' ;
begin
  for c1 in c loop
   begin 
   dbms_output.put_line('alter system kill session '||''''||c1.sid||','||c1.SERIAL#||'''');
   execute immediate 'alter system kill session '||''''||c1.sid||','||c1.SERIAL#||'''';
   exception when others then
     null;
   end;
  end loop;
end;
/

connect system/qhdlgis@qhgis2;
declare
  cursor c is select sid,a.SERIAL# from v$session a where a.username='SDE' ;
begin
  for c1 in c loop
   begin 
   dbms_output.put_line('alter system kill session '||''''||c1.sid||','||c1.SERIAL#||'''');
   execute immediate 'alter system kill session '||''''||c1.sid||','||c1.SERIAL#||'''';
   exception when others then
     null;
   end;
  end loop;
end;
/