触发器找出来密码错误信息

xifenfei

1. create or replace trigger logon_denied_to_alert
   
2. after servererror on database
   
3. declare
   
4.   message   varchar2(120);
   
5.   IP        varchar2(15);
   
6.   v_os_user varchar2(80);
   
7.   v_module  varchar2(50);
   
8.   v_action  varchar2(50);
   
9.   v_pid     varchar2(10);
   
10.   v_sid     number;
    
11. begin
    
12.   IF (ora_is_servererror(1017)) THEN
    
13.     if sys_context('userenv', 'network_protocol') = 'tcp' then
    
14.       IP := sys_context('userenv', 'ip_address');
    
15.     else
    
16.       select distinct sid into v_sid from sys.v_$mystat;
    
17.       SELECT p.SPID
    
18.         into v_pid
    
19.         FROM V$PROCESS p, V$SESSION v
    
20.        WHERE p.ADDR = v.PADDR
    
21.          AND v.sid = v_sid;
    
22.     end if;
    
23.     v_os_user := sys_context('userenv', 'os_user');
    
24.     dbms_application_info.READ_MODULE(v_module, v_action);
    
25.     message := to_char(sysdate, 'Dy Mon dd HH24:MI:SS YYYY') ||
    
26.                ' logon denied from ' || nvl(IP, v_pid) || ' ' || v_os_user ||
    
27.                ' with ' || v_module || ' ' || v_action;
    
28.     sys.dbms_system.ksdwrt(2, message);
    
29.   end if;
    
30. end;
    
31. /

复制代码