ABAP Get SAP Login Name and Windows Domain User Name

 *-----------------------------------------------------------------------
*  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.