Posted: Sat Nov 17, 2007 7:02 pm Post subject: Copy user's password from one client to all other clients
Code:
REPORT ZCPPASSW.
*
* Run this progam as sap* in cient xxx. The user you specify
* as a parameter, will have the same, client xxx password set in every client
* where it exists.
*
TABLES: USR02, T000.
DATA: PASSWD LIKE USR02-BCODE.
PARAMETERS: USER LIKE USR02-BNAME.
SELECT SINGLE * FROM USR02 WHERE BNAME = USER.
IF SY-UNAME <> 'SAP*'.
WRITE: / 'Only SAP* is allowed to run this program'. EXIT.
ENDIF.
IF SY-SUBRC <> 0.
WRITE: / USER, 'user does not exist!'. EXIT. "No template user
ENDIF.
PASSWD = USR02-BCODE.
CLEAR USR02.
WRITE: / 'The password of', USER, 'updated in client:'.
SELECT * FROM T000 WHERE MANDT <> '066' AND MANDT <> SY-MANDT.
SELECT * FROM USR02 CLIENT SPECIFIED WHERE MANDT = T000-MANDT AND
BNAME = USER.
WRITE: / USR02-MANDT.
USR02-BCODE = PASSWD.
USR02-LTIME = SY-UZEIT.
USR02-BCDA1 = USR02-BCDA2 = USR02-BCDA3 = SY-DATUM.
USR02-BCDA4 = USR02-BCDA5 = SY-DATUM.
UPDATE USR02 CLIENT SPECIFIED.
ENDSELECT.
ENDSELECT.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.
