Password reset for all clients

[Former Member]

Hi

I need to Reset Password on ALL clients within current system for logged on User.

Any suggestions please

Thanks

Regards

[Former Member]

Got a Program for this. Am just pasting the code..try it

TABLES: T000, USR02.

DATA: BEGIN OF I_USR02.

INCLUDE STRUCTURE USR02.

DATA: END OF I_USR02.

SELECTION-SCREEN BEGIN OF BLOCK STANDARD

WITH FRAME TITLE TEXT-001

NO INTERVALS.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT (23) TEXT-005.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT (23) TEXT-004.

PARAMETERS NO RADIOBUTTON GROUP RAD1.

SELECTION-SCREEN COMMENT (23) TEXT-002.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT (23) TEXT-005.

PARAMETERS YES RADIOBUTTON GROUP RAD1.

SELECTION-SCREEN COMMENT (23) TEXT-003.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK STANDARD.

*----

---

• MAIN PROGRAM

*----

---

IF NO = 'X'.

MESSAGE I999 WITH

'Program Terminated at User Request'.

LEAVE PROGRAM.

ELSE.

PERFORM CHANGE_PASSWORD.

SELECT * FROM T000.

SELECT * FROM USR02 CLIENT SPECIFIED

WHERE MANDT = T000-MANDT AND

BNAME = SY-UNAME.

IF USR02-MANDT = SY-MANDT.

WRITE : 1 USR02-MANDT COLOR 6 INVERSE.

WRITE : 5 USR02-BCODE COLOR 6 INVERSE.

ELSE.

WRITE : 1 USR02-MANDT COLOR COL_KEY INTENSIFIED.

WRITE : 5 USR02-BCODE COLOR COL_BACKGROUND INTENSIFIED OFF.

ENDIF.

IF USR02-UFLAG = 0.

WRITE : 24 'Not Locked' COLOR COL_BACKGROUND INTENSIFIED OFF.

ELSEIF USR02-UFLAG = 64.

WRITE : 24 'Locked: System Admin.' COLOR 6 INVERSE.

ELSEIF USR02-UFLAG = 128.

WRITE : 24 'Locked: incorrect Logons.' COLOR 6 INVERSE.

ELSE.

ENDIF.

WRITE : 50 USR02-TRDAT COLOR COL_BACKGROUND INTENSIFIED OFF.

WRITE : 61 USR02-CLASS COLOR COL_BACKGROUND INTENSIFIED OFF.

NEW-LINE.

ENDSELECT.

ENDSELECT.

ENDIF.

TOP-OF-PAGE.

NEW-PAGE NO-TITLE NO-HEADING.

PERFORM LISTTITEL.

TOP-OF-PAGE DURING LINE-SELECTION.

PERFORM LISTTITEL.

----

---

• FORM CHANGE_PASSWORD *

----

---

FORM CHANGE_PASSWORD.

SELECT * FROM USR02 INTO I_USR02 "grab userid and store data

WHERE BNAME = SY-UNAME.

ENDSELECT.

IF SY-SUBRC NE 0.

EXIT.

ENDIF.

UPDATE USR02 CLIENT SPECIFIED "Write current client pwd over

SET "other clients that have id in.

BCODE = I_USR02-BCODE

OCOD1 = I_USR02-OCOD1

CODV1 = I_USR02-CODV1

OCOD2 = I_USR02-OCOD2

BCDA2 = I_USR02-BCDA2

CODV2 = I_USR02-CODV2

OCOD3 = I_USR02-OCOD3

BCDA3 = I_USR02-BCDA3

CODV3 = I_USR02-CODV3

OCOD4 = I_USR02-OCOD4

BCDA4 = I_USR02-BCDA4

CODV4 = I_USR02-CODV4

OCOD5 = I_USR02-OCOD5

BCDA5 = I_USR02-BCDA5

CODV5 = I_USR02-CODV5

CODVN = I_USR02-CODVN

TRDAT = I_USR02-TRDAT

LTIME = I_USR02-LTIME

BCDA1 = I_USR02-BCDA1

WHERE BNAME = SY-UNAME AND

MANDT NE SY-MANDT. "Every client but current.

ENDFORM. "CHANGE_PASSWORD

----

---

• FORM LISTTITEL *

----

---

FORM LISTTITEL.

WRITE: / 'List of client(s) on which the Password for User',

SY-UNAME COLOR COL_KEY INTENSIFIED,

'has been reset.'.

WRITE: / 'Password originated on Client : ',

SY-MANDT COLOR COL_KEY INTENSIFIED.

SKIP.

WRITE: / 'System: ' COLOR COL_HEADING INVERSE,

20 SYST-SYSID COLOR COL_KEY INTENSIFIED.

WRITE: / 'Date: ' COLOR COL_HEADING INVERSE,

20 SYST-DATUM COLOR COL_HEADING INVERSE.

WRITE: / 'Time: ' COLOR COL_HEADING INVERSE,

20 SYST-UZEIT COLOR COL_HEADING INVERSE.

ULINE AT (73).

WRITE: /(73) SPACE COLOR COL_HEADING INTENSIFIED.

WRITE: 1 'Cl.' COLOR COL_HEADING INTENSIFIED.

WRITE: 4 SY-VLINE.

WRITE: 5 'Encrypted Password' COLOR COL_HEADING INTENSIFIED.

WRITE: 23 SY-VLINE.

WRITE: 24 'Lock Status' COLOR COL_HEADING INTENSIFIED.

WRITE: 49 SY-VLINE.

WRITE: 50 'Last Used' COLOR COL_HEADING INTENSIFIED.

WRITE: 60 SY-VLINE.

WRITE: 61 'User Grp.' COLOR COL_HEADING INTENSIFIED.

WRITE: 73 SY-VLINE.

ULINE /(73).

ENDFORM. " LISTTITEL

Regards

[Konstantin]

Hi!

IMHO you write in the wrong forum branch. How does the issue refers to cProjects or cFolders?

You'll find more qualified help in the related issue branch.

Regards, Konstantin