ABAP Get SAP Login Name and Windows Domain User Name.

来源：互联网发布：淘宝小号怎么找回来编辑：程序博客网时间：2024/04/30 10:08

*-----------------------------------------------------------------------
* Company XXX Company Limited
*
* Report Name: ZZW_GET_USERNAME
*
* Author: Lilo.Zhu
*
* Date: 2008.04.11
*-----------------------------------------------------------------------
* Description:
* =============
*   This report is to Get SAP Login Name and Windows Domain User Name.
*
*-----------------------------------------------------------------------
* Change History:
* ===============
* Task# Date        By        Description
* 0000   2008.04.11 Lilo      Initial Implementation
*                              Transport Request :
*----------------------------------------------------------------------

REPORT ZZW_GET_USERNAME .

DATA: G_DESKTOP(20) TYPE C.

Parameters: R1 RADIOBUTTON group a,
R2 RADIOBUTTON group a.

START-OF-SELECTION.

IF R1 ='X'.
    WRITE: / 'SAP Login Name:'.
    WRITE: / SY-UNAME.
ELSE.
    WRITE: /'Windows Domain Login:'.
*1: Host name (host name of current system)
*2: Windows directory
*3: System directory
*4: Temp. directory
*5: Domain user name <-
*6: Platform
*7: Windows build number
*8: Windows version
*9: Program name
*10: Program path
*11: Current directory (Directory for current process)
    CALL FUNCTION 'GUI_GET_DESKTOP_INFO'
      EXPORTING
        TYPE = '5'
     CHANGING
      return = G_DESKTOP.
   WRITE: / G_DESKTOP.
ENDIF.