Como tomar el usuario de windows

[JuanJuan77]

hola, alguien sabe como tomar el usuario de windows desde powercobol?

gracias

[Rapinto]

Aqui vai:


@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.



Esta rotina é de NetCobol. Pode ser chamada do PowerCobol ou adaptada para PowerCobol.

Un saludo,
Rui

[JuanJuan77]

Hola, gracias,

en powercobol no me reconoce "GetUserNameA", me debe estar faltando algo, que puede ser?

Gracias

[Kuk]

JuanJuan77, usa la búsqueda: [Aporte] GetUserName - COBOL Foro (http://cobolforo.es/showthread.php?t=57)

En cuanto a tu pregunta, qué error te da exactamente?

[JuanJuan77]

me da el error al compilar:
unresolved external symbol _GETUSERNAMEA@8
GetUserNameA.dll : fatal error LNK1120: 1 unresolved externals

Por lo que lei hay q agregar una libreria: ADVAPI32.LIB. Si es asi como se agrega?

gracias

saludos

[Kuk]

JuanJuan77, debes poner en las propiedades del código:
ALPHAL(WORD)

[JuanJuan77]

Hola, disculpame, pero en powercobol no se donde poner ese codigo y como hacerlo, probe con
@OPTIONS ALPHAL(WORD)

@OPTIONS ALPHAL(WORD)
identification division.

pero no compila

saludos y gracias

[Kuk]

JuanJuan77, [Información] El Form queda Minimizado haciendo ExecuteSync - Página 2 - COBOL Foro (http://cobolforo.es/showthread.php?p=1386#post1386)

[Adrianeloy]

JuanJuan77, tenes que editar el proyecto y agregar ADVAPI32.LIB como una DLL (te recomiendo que copies ADVAPI32.LIB a la carpeta donde tengas tu proyecto).
Te adjunto el proyecto entero funcionando por si tenes algun problema.
Un abrazo

https://drive.google.com/open?id=0B8Bt_53F6JhYR0J0d0NSeDhqT1k

[JuanJuan77]

Hola, estoy usando powercobol 7, en este me da error todas las opciones que me dijeron, alguno pudo en el 7 o en el 9?

saludos

[Kuk]

JuanJuan77, tienes que hacer Rebuild de todo el proyecto, no hagas Build

[fastpho]

JuanJuan77, te paso un ejemplo en pw5 con el fuente y el ejecutable
para leer el nombre de usuario