ORACLE�B�B�E�T�E��E絅螢�j�E�v�B�BACCESS�A�EXCEL�A�H�A蘋��c�E�A�I�A�T�A�n�A�A�B�B

ORACLE�B�B�E�T�E��E絅螢�j�E�v�B�BACCESS�A�EXCEL�A�H�A蘋��c�E�A�I�A�T�A�n�A�A

M.S

v0.1, 2006-03-06

ACCESS�A�EXCEL�A�H�A蕕�n�A�m�B�u�j�e�g蠅�z�E��E蹈�[�E薀爐�H�A蘋��c�E�A�I�A�T�A�\�A�b�A�n�A�A�E�A�B�V�E�P�A��A�u�A蠅�J�A�P�B�v
�^��c�E�A�L�A�\�Z豺腓�}�B�u�^��c�E�A��A襪�l�j�A�T�q�B�u�E蹈�[�A發�l�A蠅�\�A�A�B�u�A�n�A�m�A�n�A�m�B�v�B�v
�C荳�l�A�L�A�j�E�l�E螢��B�V�A�i�E��A�A�A�j�B�u�c�~�A�L�A�\�A�E�A�l�A��A�u�A蠅�J�A�P�B�v
�E�l�E螢��B�V�A�H�A�L�A�J�A�P�A�z�A�k�B�u�T�C�P�w�A�q�A�L�A�j�A�b�A�^�A�I�A�A�B�v
�Z�[�B�u�E�l�E螢��B�V�A�c�P��A�P�A襯�P�E��B�V�E�J�B�n�E罅�V�E�J�B�q�A�q�A�}�B�uGRANT�A�k


  grant resource,connect,alter system to xxxx;
  grant select any dictionary to xxxx;

�A�\�A�B�A�j�A�b�A�^�A�I�A�A�B�v
�A�E�A譴蕕�}�A�u�A�b�A�J�A�k�T�C�P�w�A�q�A�P�A��A�J�A�T�A�v
�A�E�A譴�I�A�q�X�A�^�I�A�L�B�u�C�\�A蕕�H�A�z�c�T�E�C�A��l�b�^�N�A�L�A�j�A皸貔��^��k�A�A�}�T�`�A�J�A�T�A�v
�`�G�A�j�E�j�V�H�A�z�^��k�A�A�q�A�F�A�A�A�j�P��A�e�A�j�A�b�A�^�A�I�A�A�A�J�A�T�B�v

1. TABLE�A�lPROCEDURE�A�lTRIGGER

REATE TABLE killer_log
AS
SELECT * FROM V$SESSION WHERE rownum < 1;

CREATE OR REPLACE PROCEDURE killer_proc
  (
    i_sid     IN NUMBER,
    i_serial# IN NUMBER
  )  IS
    PRAGMA AUTONOMOUS_TRANSACTION;
    v_csr INTEGER;
    v_rowctr INTEGER;
    v_sqlstr VARCHAR2(100);
  BEGIN

     insert into killer_log 
     select * from sys.v_$session where sid=i_sid and serial#=i_serial#;
     commit;

    v_sqlstr := 'ALTER SYSTEM KILL SESSION ''' ||
                 TO_CHAR(i_sid)                ||
                 ','                           ||
                 TO_CHAR(i_serial#)            ||
                 ''' immediate';
     v_csr := DBMS_SQL.OPEN_CURSOR;
     DBMS_SQL.PARSE(v_csr, v_sqlstr, DBMS_SQL.NATIVE);
     v_rowctr := DBMS_SQL.EXECUTE(v_csr);
     DBMS_SQL.CLOSE_CURSOR(v_csr);

  EXCEPTION
   when OTHERS then
      dbms_output.put_line('killer_proc err');
  END;
  /
  

CREATE OR REPLACE TRIGGER logon_killer
   AFTER LOGON
   ON DATABASE
  DECLARE
   v_sid     NUMBER;
   v_serial# NUMBER;
   v_program VARCHAR2(64);
   v_jobno   INTEGER;
 BEGIN
   SELECT sid,serial#,program
     INTO v_sid, v_serial#,v_program
     FROM sys.v_$session
    WHERE audsid =
      (
        SELECT USERENV('SESSIONID')
        FROM dual
      );
    IF (upper(v_program) like 'MSACCESS.EXE%')
       or (upper(v_program) like 'EXCEL.EXE%')
    THEN
        DBMS_JOB.SUBMIT(
          job=>v_jobno,
          what=>'killer_proc('||v_sid||', '||v_serial#||');'
        );
    END IF;
 EXCEPTION
  when OTHERS then
      dbms_output.put_line('logon_killer err');
 END;
 /

2. �P�P�\�L�w躄�

v 0.1 2006-03-06 �X虍�k