获取登陆的IP地址和电脑名称

最新推荐文章于 2019-01-09 18:53:51 发布

原创最新推荐文章于 2019-01-09 18:53:51 发布 · 891 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#list #user

ABAP基础专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一个ABAP程序示例，展示了如何通过调用方法get_ip_address获取客户端IP地址，并进一步通过调用TH_USER_LIST函数获取当前用户的详细信息。此示例适用于希望了解ABAP中用户信息获取机制的开发者。

   DATA obj TYPE REF TO cl_gui_frontend_services.
  CREATE OBJECT obj.
  CALL METHOD obj->get_ip_address
    RECEIVING
      ip_address = host.
  DATA: t_uinfo TYPE TABLE OF uinfo WITH HEADER LINE .
  DATA: t_usrinfo TYPE TABLE OF usrinfo WITH HEADER LINE .
  CALL FUNCTION 'TH_USER_LIST'
    TABLES
      list    = t_uinfo
      usrlist = t_usrinfo.

  CLEAR: term .
  READ TABLE t_usrinfo WITH KEY mandt = sy-mandt bname = sy-uname tcode = sy-tcode hostaddr = host .
  IF sy-subrc = 0 .
    term = t_usrinfo-term .
  ENDIF.