RE:[sap-security] Automatic way to block users that dont use the system?
Posted by
Admin at
|
Share this post:
|
|
0 Comments
 | Posted by SAP_Secure (SAP NW Security Consultant) on Aug 31 at 5:51 PM |  Mark as helpful |
Hi Thomas
I found some old programs from 8 years ago that an ABAP friend had written. I think the ZINACTIVE works. Its pretty straight forward and not check for special Users, Groups or who is running the program. With that, I can not promise it still works and ask you to proceed with caution and obviously take no responsibility for it. With that, here it is:
*&--------------------------------------------------------------------*
*& Report ZINACTIVE *
*& *
*&---------------------------------------------------------------------*
*& This program checks the lat logon date to the current date and *
*& changes the ?Valid To? date in USR02 to the Run Date. *
*&---------------------------------------------------------------------*
REPORT ZINACTIVE. .
*
TABLES: USR02, T000.
DATA: time_limit TYPE sy-datum.
DATA: days TYPE i VALUE 100.
time_limit = sy-datum - days.
SELECT * FROM T000.
SELECT * FROM USR02 CLIENT SPECIFIED WHERE MANDT = T000-MANDT.
case TRDAT
when < time_limit
update USR02 set ERDAT=sy-datum client specified.
ENDSELECT.
ENDSELECT.
Also, please look at USR02 in SE11 to make sure the 'Valid To' date is actually ERDAT.
Good luck
Chris Sugg
__.____._ I found some old programs from 8 years ago that an ABAP friend had written. I think the ZINACTIVE works. Its pretty straight forward and not check for special Users, Groups or who is running the program. With that, I can not promise it still works and ask you to proceed with caution and obviously take no responsibility for it. With that, here it is:
*&--------------------------------------------------------------------*
*& Report ZINACTIVE *
*& *
*&---------------------------------------------------------------------*
*& This program checks the lat logon date to the current date and *
*& changes the ?Valid To? date in USR02 to the Run Date. *
*&---------------------------------------------------------------------*
REPORT ZINACTIVE. .
*
TABLES: USR02, T000.
DATA: time_limit TYPE sy-datum.
DATA: days TYPE i VALUE 100.
time_limit = sy-datum - days.
SELECT * FROM T000.
SELECT * FROM USR02 CLIENT SPECIFIED WHERE MANDT = T000-MANDT.
case TRDAT
when < time_limit
update USR02 set ERDAT=sy-datum client specified.
ENDSELECT.
ENDSELECT.
Also, please look at USR02 in SE11 to make sure the 'Valid To' date is actually ERDAT.
Good luck
Chris Sugg
Copyright © 2009 CEB Toolbox, Inc. and message author.
Toolbox.com 4343 N. Scottsdale Road Suite 280, Scottsdale, AZ 85251
Toolbox.com 4343 N. Scottsdale Road Suite 280, Scottsdale, AZ 85251
Related Content
White Papers
View this thread online
Manage group e-mails
Create an FAQ on this topic
Tell us what you think
Unsubscribe from discussion
Manage group e-mails
Create an FAQ on this topic
Tell us what you think
Unsubscribe from discussion
