Progress - Usuario Windows

   
Vista:

Usuario Windows

Publicado por Nico (7 intervenciones) el 28/01/2010 20:04:24
Hola:
Necesito un codigo Progress para obtener el nombre de usuario de inicio de sesion de windows...
Gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Usuario Windows

Publicado por Claudio (9 intervenciones) el 30/01/2010 00:29:19
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

RE:Usuario Windows

Publicado por Nico (7 intervenciones) el 02/02/2010 13:32:39
Buenisimo, muchas gracias!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Usuario Windows

Publicado por Rayne Flores (7 intervenciones) el 12/11/2012 20:57:34
Excelente aporte, muy buen procedimiento, aplicable y muy rapido
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar