ABAP Get SAP Login Name and Windows Domain User Name.

csstome

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