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

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

[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=0B8...0J0d0NSeDhqT1k

[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