FUNCTION getWinNTUserInfos RETURNS CHARACTER
( /* parameter-definitions */ ) :
DEF VAR sUserId AS CHAR INIT "" NO-UNDO.
DEF VAR iLength AS INT NO-UNDO.
DEF VAR iNoErreur AS INT NO-UNDO.
DEF VAR objUSer AS COM-HANDLE NO-UNDO.
/* Retreive user's login ID */
iLength = 128.
ASSIGN sUserId = FILL(" ":U,iLength).
RUN GetUserNameA (INPUT-OUTPUT sUserId, INPUT-OUTPUT iLength, OUTPUT iNoErreur) NO-ERROR.
ASSIGN sUserId = IF ERROR-STATUS:ERROR
THEN ?
ELSE STRING(sUserId).
RETURN sUserId.
END FUNCTION.