SAP获取windows登录信息

最新推荐文章于 2024-12-06 11:02:31 发布

转载最新推荐文章于 2024-12-06 11:02:31 发布 · 1k 阅读

标签

#windows #sap #user #interface #delete

本文介绍如何在ABAP环境中使用特定方法获取当前Windows用户的登录名和域名。通过调用`cl_gui_frontend_services`的方法`get_user_name`和`environment_get_variable`，可以有效地从运行环境获取这些信息。

我们windows登录后按Ctrl + Alt + Delete之后会出现登录信息：
XXX 已登录为DOMAIN/USERNAME。
登录日期 2009-3-23 8：00：00

通过一下方法可以获取DOMAIN和USERNAME的数据：
CALL METHOD cl_gui_frontend_services=>get_user_name
CHANGING
user_name = username
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.

CALL METHOD cl_gui_frontend_services=>environment_get_variable
EXPORTING
variable = 'USERDOMAIN'
CHANGING
value = domainname
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.

另外还有一个函数获取windows用户名和域名的函数

FUNCTION Z_RETURN_USERNAME.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  EXPORTING
*"    VALUE(USERNAME) TYPE  STRING
*"    VALUE(DOMAINNAME) TYPE  STRING
*"----------------------------------------------------------------------

  CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_USER_NAME
CHANGING
   USER_NAME          = USERNAME
EXCEPTIONS
   CNTL_ERROR          = 1
   ERROR_NO_GUI       = 2
   NOT_SUPPORTED_BY_GUI = 3
   OTHERS             = 4.

  IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.

  CALL METHOD CL_GUI_FRONTEND_SERVICES=>ENVIRONMENT_GET_VARIABLE
EXPORTING
   VARIABLE          = 'USERDOMAIN'
CHANGING
   VALUE             = DOMAINNAME
EXCEPTIONS
   CNTL_ERROR          = 1
   ERROR_NO_GUI       = 2
   NOT_SUPPORTED_BY_GUI = 3
   OTHERS             = 4.

  IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.

  CALL METHOD CL_GUI_CFW=>FLUSH
EXCEPTIONS
   CNTL_SYSTEM_ERROR = 1
   CNTL_ERROR       = 2
   OTHERS          = 3.

ENDFUNCTION.