SET serveroutput ON;
DECLARE
v_user_name VARCHAR2(30):= UPPER(<Insert user name
here>);
v_new_password VARCHAR2(30):= 'Welcome1'; -- give preferred password
here
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;
END;
Note:
This script do not work in case if user account is locked.
No comments:
Post a Comment