ORACLE EBS程序重置密码

Posted 2022-08-01 sunansheng

/************************************************************
*PURPOSE: To change/reset password of a user from backend   *
*AUTHOR: Shailender Thallam                                 *
*************************************************************/
SET serveroutput ON;
DECLARE
  v_user_name    VARCHAR2(30):= UPPER('SYSADMIN');
  v_new_password VARCHAR2(30):= 'welcome1';
  v_status       BOOLEAN;
BEGIN
  v_status   := fnd_user_pkg.ChangePassword ( username => v_user_name, 
                                              newpassword => v_new_password 
                                            );
  IF v_status =TRUE THEN
    dbms_output.put_line ('The password reset successfully for the User:'||v_user_name);
    COMMIT;
  ELSE
    DBMS_OUTPUT.put_line ('Unable to reset password due to'||SQLCODE||' '||SUBSTR(SQLERRM, 1, 100));
    ROLLBACK;
  END IF;

这时候已经重置了密码，但是不强制要求用户登录的时候修改密码。可以清空fnd_user表的字段password_date值。