登陆SAP实现IP地址记录和绑定

一.登陆时候记录用户的IP地址等信息
首先在系统建立数据库表ZLOGONINFO记录用户登陆信息,包括信息(R/3用户名/终端名/IP地址/登
陆日期/登陆时间).
其次在R/3用户登陆增强(SUSR0001)写代码记录用户相关的信息到数据库表ZLOGONINFO,完成用户
登陆信息的记录
增强代码如下:
*----------------------------------------------------------------------
*   INCLUDE ZXUSRU01
*----------------------------------------------------------------------
************************************************
*  PROGRAM SAPMTZST   *
*  CREATED BY TXB, 10/18/2000   *
*  LAST CHANGE BY TXB, 10/19/2000   *
*  PURPOSE: DEMONSTRATION   *
************************************************
DATA HOSTADR LIKE UINFO-HOSTADR.
DATA HOSTADDR(8).
DATA TERM LIKE UINFO-TERM.
DATA XHCOUNT TYPE I.
DATA: IPTXT(15),ITIMES TYPE I,ITIMES1 TYPE I,HX(2).
DATA: RESULT TYPE I,RESULTTXT(3).
TABLES ZLOGONINFO.
CALL FUNCTION 'TH_USER_INFO'
IMPORTING HOSTADDR = HOSTADR   "like UINFO-HOSTADR (hex)
TERM