GetUserName

[Rapinto]

GetUserName - Para saber qual o User Login:


@OPTIONS NOALPHA
************************************************** ***************
* Copyright (c) 2000 R.P.S.
* Created : Jun 2000
* Last Modified: Jun 2000
************************************************** ***************
IDENTIFICATION DIVISION.
PROGRAM-ID. WINUSER.
AUTHOR. Rui Pinto.
*-----------------------------------------------------------------
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
*-----------------------------------------------------------------
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 USERNAME PIC X(64).
01 USERNAME-LEN PIC S9(9) COMP-5.
LINKAGE SECTION.
01 USER PIC X(64).
PROCEDURE DIVISION USING USER.
MAIN SECTION.
MAIN-00.
MOVE ALL SPACE TO USERNAME USER.
MOVE 64 TO USERNAME-LEN.
CALL "GetUserNameA" WITH STDCALL USING
BY REFERENCE USERNAME
BY REFERENCE USERNAME-LEN.
MOVE USERNAME TO USER.
MAIN-99.
END PROGRAM WINUSER.



Saludos,
Rui Pinto