EBS批量修改用户密码

DECLARE


  l_success boolean;


  cursor cur_imp is
    select t.user_name
      from fnd_user t
     where 1 = 1
       and t.creation_date >= to_date('2008/11/26', 'YYYY/MM/DD')
       and t.user_name not like 'MIS%';


BEGIN


  FOR l_rec IN cur_imp LOOP
    l_success := FND_USER_PKG.ChangePassword(username    => l_rec.user_name,
                                             newpassword => '123456');
    IF l_success THEN
      ---DBMS_OUTPUT.PUT_LINE('Password Changed');
      null;
    ELSE
      DBMS_OUTPUT.PUT_LINE('Something wrong');
    END IF;
    commit;
  end LOOP;


END;