Mass password change for selective User id's ?

Question

Hi,
    Thanks to answer for my last question, really appreciated your help.
My new question: 
1.   If I create Mass User Id's by using SU10, pwd's are generated automatically. Is there a way to pick a pwd e.g  initpass for all ?
2.   Is there any program available which can be used to reset pwd's for several User Id's as   initpass or something like that ?
Please help. thnx in advance.
Syd.

Answer 1

You can also create an ABAP program which can be used to mass change users passwords.
Here are the functions that will do what you need
SUSR_GENERATE_PASSWORD - Generates a Password
BAPI_USER_CHANGE - You can use this BAPI to change just the password of a user
Here is an example of some abap code. There may be some syntax errors and possible other issues. I just typed this out and didnt check it. Hope this helps
constants: con_comma TYPE c VALUE ','.
data: it_tab TYPE filetable,
        gd_subrc TYPE i,
        v_filename_string TYPE string,
        p_npass like XU400-NEWCODE.
DATA: BEGIN OF itab OCCURS 0,
          dLine(40) type c,
      END OF itab.
DATA: begin of it_Users occurs 0,
          UserID like BAPIBNAME-BAPIBNAME,
          Password Like XUBCODE,
      end of it_Users.
parameters: p_file like rlgrap-filename default 'c:\users.txt' LOWER CASE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
*&                   FILE_OPEN_DIALOG METHOD                           *
    CALL METHOD cl_gui_frontend_services=>file_open_dialog
        EXPORTING
          window_title     = 'Select File'
          default_filename = '*.txt'
          multiselection   = ' '
        CHANGING
          file_table       = it_tab
          rc               = gd_subrc.
        LOOP AT it_tab INTO p_file.
        ENDLOOP.
        v_filename_string = p_file.
START-OF-SELECTION.
*&                   GUI_UPLOAD function                               *
   Upload file to internal table
      CALL FUNCTION 'GUI_UPLOAD'
        EXPORTING
          FILENAME                      = v_filename_string
          FILETYPE                      = 'ASC'
          HAS_FIELD_SEPARATOR           = 'X'
        TABLES
          DATA_TAB                      = ITAB
       EXCEPTIONS
         FILE_OPEN_ERROR               = 1
         FILE_READ_ERROR               = 2
         NO_BATCH                      = 3
         GUI_REFUSE_FILETRANSFER       = 4
         INVALID_TYPE                  = 5
         NO_AUTHORITY                  = 6
         UNKNOWN_ERROR                 = 7
         BAD_DATA_FORMAT               = 8
         HEADER_NOT_ALLOWED            = 9
         SEPARATOR_NOT_ALLOWED         = 10
         HEADER_TOO_LONG               = 11
         UNKNOWN_DP_ERROR              = 12
         ACCESS_DENIED                 = 13
         DP_OUT_OF_MEMORY              = 14
         DISK_FULL                     = 15
         DP_TIMEOUT                    = 16
         OTHERS                        = 17.
      IF SY-SUBRC <> 0.
       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
Loop through internal table and split the comma delimited file
  LOOP AT ITAB.
      SPLIT ITAB-dLINE AT con_comma INTO it_Users-UserID
                                       it_Users-Password.
      APPEND it_Users.
  ENDLOOP.
LOOP AT it_Users.
     if it_users-Password is initial.
        CALL FUNCTION 'SUSR_GENERATE_PASSWORD'
             IMPORTING
                 PASSWORD = p_npass
     endif.
     CALL FUNCTION 'BAPI_USER_CHANGE'
               EXPORTING
                 USERNAME                = it_users-userid
                 PASSWORD                = p_npass
                 PASSWORDX               = 'X'
               TABLES
                 RETURN                  = it_ret2.
              Loop at it_ret2.
                if it_ret2-number = 039.
                  write: / 'password changed'.
                else.
                  write: / it_ret2-message.
                endif.
              endloop.
              Write: / ''.
              refresh it_ret2.
ENDLOOP.