使用ABAP代碼修改指定使用者的密碼

*&---------------------------------------------------------------------*

*& Report  ZZCHANGE_PW

*&

report  zzchange_pw.

data:  new_user type xubname,

      password type rfcauth,

      message(120),

      wa_user_data type zsystem_master_c,

      return like  bapiret2 occurs 0 with header line,

      profiles like bapiprof occurs 0 with header line,

      activitygroups like bapiagr occurs 0 with header line.

activitygroups-agr_name = 'LCT_CONVERSION'.

append activitygroups.

profiles-bapiprof = 'T-LT780009'.

append profiles.

select single * from zsystem_master_c into

           wa_user_data where rfcdest = ''.

call function 'ZENCODE_RFC_DATA'

 EXPORTING

   user    = wa_user_data-rfcuser

   code    = wa_user_data-rfcpw

   option  = 'D'

 IMPORTING

   value_r = password.

if sy-mandt = '000'.

 new_user = 'RFC_CONV'.

 perform change_role using new_user.

 perform change_password using new_user password.

elseif sy-mandt = '001'.

 do 2 times.

   if sy-index = 1.

* Create LCT User LCT_USER for conversion purposes in client 001

     new_user = 'LCT_USER'.

     perform change_role using new_user.

   elseif sy-index = 2.

     activitygroups-agr_name = 'SAP_J2EE_ADMIN'.

     append activitygroups.

     new_user = 'IDESADM'.

   endif.

   perform change_password using new_user password.

 enddo.

endif.

*&      Form  get_additional_user_data

*       text

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

form get_additional_user_data .

 select single * from zsystem_master_c into

           wa_user_data where rfcdest = 'A1S_TO_A1S'.

 call function 'ZENCODE_RFC_DATA'

   EXPORTING

     user    = wa_user_data-rfcuser

     code    = wa_user_data-rfcpw

     option  = 'D'

   IMPORTING

     value_r = password.

endform.                    "get_additional_user_data

*&      Form  change_password

*      -->NEW_USER   text

*      -->PASSWORD   text

form change_password using new_user password.

 call function 'BAPI_USER_CHANGE'

     username  = new_user

     password  = password

     passwordx = 'X'

   TABLES

     return    = return.

 append return.

* User entsperren (durch Falschanmeldungen wahrscheinlich gesperrt)

 call function 'BAPI_USER_UNLOCK'

     username = new_user

     return   = return.

endform.                    " change_password

*&      Form  change_role

*      -->P_NEW_USER  text

FORM change_role  USING    NEW_USER.

* Assign activity groups to users

*      clear return.

 call function 'BAPI_USER_ACTGROUPS_ASSIGN'

     username       = new_user

     activitygroups = activitygroups

     return         = return.

* Assign profiles to user

 clear return.

 call function 'BAPI_USER_PROFILES_ASSIGN'

     profiles = profiles

ENDFORM.                    " change_role