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

    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.