用户信息

ABAP获取登陆用户信息(SAP登录增强)

需求：记录所有登陆用户的信息。方案：SMOD -> EXIT_SAPLSUSF_001 [login]

*&---------------------------------------------------------------------*
*&  包含                ZXUSRU01
*&---------------------------------------------------------------------*

*SAP账号使用合规性审计.
TABLES: zzuser_logon_inf.

DATA: ls_uinfo      TYPE zzuser_logon_inf,
      lv_addrnumber TYPE ad_addrnum,
      lv_persnumber TYPE ad_persnum,
      lv_name_first TYPE ad_namefir,
      lv_name_last  TYPE ad_namelas,
      computer_name TYPE string,
      lt_guiversion TYPE filetable,
      lw_guiversion LIKE LINE OF lt_guiversion,
      lv_ostype     TYPE i,
      lv_osuname    TYPE string,
      lv_rc         TYPE i  VALUE 0.

ls_uinfo-zdate = sy-datum.
ls_uinfo-ztime = sy-uzeit.
ls_uinfo-zuser = sy-uname.

***取用户名称(描述)
SELECT SINGLE persnumber addrnumber INTO
  (lv_persnumber, lv_addrnumber)
  FROM usr21
  WHERE bname = sy-uname.

IF sy-subrc = 0.
  SELECT SINGLE name_first name_last INTO (lv_name_first,lv_name_last)
  FROM adrp
  WHERE persnumber = lv_persnumber.

  IF sy-subrc = 0.
    CONCATENATE lv_name_last  lv_name_first INTO ls_uinfo-zname.
    CONDENSE ls_uinfo-zname NO-GAPS.
  ENDIF.
ENDIF.

*取用户IP.
CALL METHOD cl_gui_frontend_services=>get_ip_address
  RECEIVING
    ip_address = ls_uinfo-zip.
CALL METHOD cl_gui_cfw=>flush.

*取用户hostname.
CALL METHOD cl_gui_frontend_services=>get_computer_name(
  CHANGING
    computer_name = computer_name ).
CALL METHOD cl_gui_cfw=>flush.
ls_uinfo-zterminal = computer_name .

*取用户IP.
CALL METHOD cl_gui_frontend_services=>get_ip_address
  RECEIVING
    ip_address = ls_uinfo-zip.
CALL METHOD cl_gui_cfw=>flush.

*获取客户端版本.
CALL METHOD cl_gui_frontend_services=>get_gui_version
  CHANGING
    version_table = lt_guiversion
    rc            = lv_rc.
CALL METHOD cl_gui_cfw=>flush.

*获取客户端操作系统类型.
CALL METHOD cl_gui_frontend_services=>get_platform
  RECEIVING
    platform = lv_ostype.
CALL METHOD cl_gui_cfw=>flush.

*获取客户端系统用户名.
CALL METHOD cl_gui_frontend_services=>get_user_name
  CHANGING
    user_name = lv_osuname.
CALL METHOD cl_gui_cfw=>flush.
ls_uinfo-zos_uname = lv_osuname.


CASE lv_ostype.
  WHEN 0.
    ls_uinfo-zostype = 'PLATFORM_UNKNOWN'.
  WHEN 1.
    ls_uinfo-zostype = 'PLATFORM_MAC'.
  WHEN 2.
    ls_uinfo-zostype = 'PLATFORM_NT40'.
  WHEN 3.
    ls_uinfo-zostype = 'PLATFORM_WINDOWS95'.
  WHEN 4.
    ls_uinfo-zostype = 'PLATFORM_WINDOWS98'.
  WHEN 5.
    ls_uinfo-zostype = 'PLATFORM_NT50'.
  WHEN 6.
    ls_uinfo-zostype = 'PLATFORM_OS2'.
  WHEN 7.
    ls_uinfo-zostype = 'PLATFORM_LINUX'.
  WHEN 8.
    ls_uinfo-zostype = 'PLATFORM_HPUX'.
  WHEN 9.
    ls_uinfo-zostype = 'PLATFORM_TRU64'.
  WHEN 10.
    ls_uinfo-zostype = 'PLATFORM_AIX'.
  WHEN 11.
    ls_uinfo-zostype = 'PLATFORM_SOLARIS'.
  WHEN 12.
    ls_uinfo-zostype = 'PLATFORM_MACOSX'.
  WHEN 13.
    ls_uinfo-zostype = 'PLATFORM_WINDOWSXP'.
  WHEN 14.
    ls_uinfo-zostype = 'PLATFORM_WINDOWS7/8/10'.
  WHEN OTHERS.
    ls_uinfo-zostype = 'PLATFORM_UNKNOWN'.
ENDCASE.


LOOP AT lt_guiversion INTO lw_guiversion.
  CONCATENATE ls_uinfo-zguiversio lw_guiversion ' / ' INTO ls_uinfo-zguiversio.

  CLEAR lw_guiversion.
ENDLOOP.

INSERT zzuser_logon_inf FROM ls_uinfo.
COMMIT WORK AND WAIT.

CLEAR ls_uinfo.
CLEAR lv_addrnumber.
CLEAR lv_persnumber.
CLEAR lv_name_first.
CLEAR lv_name_last.
CLEAR computer_name.
CLEAR lv_ostype.
CLEAR lv_osuname.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

*&---------------------------------------------------------------------*

*& 包含 ZXUSRU01

*&---------------------------------------------------------------------*

*SAP账号使用合规性审计.

TABLES: zzuser_logon_inf.

DATA: ls_uinfo TYPE zzuser_logon_inf,

lv_addrnumber TYPE ad_addrnum,

lv_persnumber TYPE ad_persnum,

lv_name_first TYPE ad_namefir,

lv_name_last TYPE ad_namelas,

computer_name TYPE string,

lt_guiversion TYPE filetable,

lw_guiversion LIKE LINE OF lt_guiversion,

lv_ostype TYPE i,

lv_osuname TYPE string,

lv_rc TYPE i VALUE 0.

ls_uinfo-zdate = sy-datum.

ls_uinfo-ztime = sy-uzeit.

ls_uinfo-zuser = sy-uname.

***取用户名称(描述)

SELECT SINGLE persnumber addrnumber INTO

(lv_persnumber, lv_addrnumber)

FROM usr21

WHERE bname = sy-uname.

IF sy-subrc = 0.

SELECT SINGLE name_first name_last INTO (lv_name_first,lv_name_last)

FROM adrp

WHERE persnumber = lv_persnumber.

IF sy-subrc = 0.

CONCATENATE lv_name_last lv_name_first INTO ls_uinfo-zname.

CONDENSE ls_uinfo-zname NO-GAPS.

ENDIF.

*取用户IP.

CALL METHOD cl_gui_frontend_services=>get_ip_address

RECEIVING

ip_address = ls_uinfo-zip.