hola, alguien sabe como tomar el usuario de windows desde powercobol?
gracias
Versión para Imprimir
hola, alguien sabe como tomar el usuario de windows desde powercobol?
gracias
Aqui vai:
COBOL Código:
@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
Hola, gracias,
en powercobol no me reconoce "GetUserNameA", me debe estar faltando algo, que puede ser?
Gracias
@JuanJuan77, usa la búsqueda: [Aporte] GetUserName - COBOL Foro
En cuanto a tu pregunta, qué error te da exactamente?
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
@JuanJuan77, debes poner en las propiedades del código:CODE Código:
ALPHAL(WORD)
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
@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=0B8...0J0d0NSeDhqT1k
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