Progress - Usuario Windows

Hola:
Necesito un codigo Progress para obtener el nombre de usuario de inicio de sesion de windows...
Gracias...

probá con este código, llama a una función API en WIN32:

DEFINE VARIABLE chrUserID AS CHARACTER NO-UNDO.
DEFINE VARIABLE intResult AS INTEGER NO-UNDO.
DEFINE VARIABLE intSize AS INTEGER NO-UNDO.

PROCEDURE GetUserNameA EXTERNAL "ADVAPI32.DLL":
DEFINE OUTPUT PARAMETER chrUserID AS CHARACTER NO-UNDO.
DEFINE INPUT-OUTPUT PARAMETER intBufferSize AS LONG NO-UNDO.
DEFINE RETURN PARAMETER intResult AS SHORT NO-UNDO.
END PROCEDURE.

ASSIGN chrUserID = FILL(' ',256)
intSize = 255.

RUN GetUserNameA (OUTPUT chrUserID,
INPUT-OUTPUT intSize,
OUTPUT intResult).

IF intResult = 1 THEN
MESSAGE "ID Usuario = " TRIM(chrUserID) VIEW-AS ALERT-BOX.

Buenisimo, muchas gracias!

Excelente aporte, muy buen procedimiento, aplicable y muy rapido