Urgente

[Karla V.]

Se bloquearon los 2 usuarios administradores que tenía en el mandante productivo, los tengo en otro mandante, como hago para transportar o pasar solo esos 2 usuarios especificos al mandante productivo????

[SPEREZNUNEZ]

Conces la pass de sap*?? podrias entrar con el y desbloquearlos.

[jgsanz]

Conociendo la password de SAP*, ddic... algun usuario administrador o si tienes CUA, desde la cua...si no tienes nada de lo dicho, tendras que desbloquear y resetear la password de sap* (si lo necesitas esto ultimo, dimelo y te digo como).

[Karla V.]

Gracias, no conocia la clave pero el proveedor de sap eliminó el usuario y sap lo creo automaticamente.

[pedro43]

Os paso un código:

REPORT ZBCPASSWORD.

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: / 'Solo SAP* puede ejecutar el programa'. EXIT.
*ENDIF.

**** Se comprueba que el usuario tiene permisos de administrador***
AUTHORITY-CHECK OBJECT 'S_ADMI_FCD'
ID 'S_ADMI_FCD' FIELD 'PADM'.

IF SY-SUBRC <> 0.
message i077(s#) with '' raising not_authorized.
exit.
endif.


AUTHORITY-CHECK OBJECT 'S_USER_GRP'
ID 'CLASS' FIELD 'SUPER'
ID 'ACTVT' FIELD '01'.

IF SY-SUBRC <> 0.
message i077(s#) with '' raising not_authorized.
exit.
endif.
**** Fin de la comprobación de autorizaciones ***




IF SY-SUBRC <> 0.
WRITE: / USER, 'El usuario no existe!'. EXIT.
ENDIF.
PASSWD = USR02-BCODE.
CLEAR USR02.
WRITE: / 'La contraseña del usuario',USER, 'actualizada en mandantes:'.
SELECT * FROM T000 WHERE 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.

saludos