GetUserName - Para saber qual o User Login:

COBOL Código:
  1.  @OPTIONS NOALPHA
  2. *****************************************************************
  3. *  Copyright (c) 2000 R.P.S.
  4. *  Created      :    Jun 2000
  5. *  Last Modified:    Jun 2000
  6. *****************************************************************
  7.  IDENTIFICATION DIVISION.
  8.  PROGRAM-ID.    WINUSER. 
  9.  AUTHOR.        Rui Pinto.           
  10. *-----------------------------------------------------------------
  11.  ENVIRONMENT DIVISION.
  12.  CONFIGURATION SECTION.
  13.  SPECIAL-NAMES.
  14.  INPUT-OUTPUT SECTION.
  15.  FILE-CONTROL.
  16. *-----------------------------------------------------------------
  17.  DATA DIVISION.
  18.  FILE SECTION.
  19.  WORKING-STORAGE SECTION.
  20.  01  USERNAME               PIC X(64).
  21.  01  USERNAME-LEN           PIC S9(9)    COMP-5.
  22.  LINKAGE SECTION.
  23.  01  USER                   PIC X(64).
  24.  PROCEDURE DIVISION USING USER.
  25.  MAIN SECTION.
  26.  MAIN-00.
  27.        MOVE ALL SPACE TO USERNAME USER.
  28.      MOVE 64 TO USERNAME-LEN.
  29.      CALL "GetUserNameA" WITH STDCALL USING
  30.               BY REFERENCE USERNAME
  31.               BY REFERENCE USERNAME-LEN.
  32.      MOVE USERNAME TO USER.
  33.  MAIN-99.
  34.  END PROGRAM WINUSER.

Saludos,
Rui Pinto