Cobol Foro
Página 1 de 2 1 2
Mostrar 40 mensajes desde este tema en una página

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Como tomar el usuario de windows (https://www.cobolforo.es/showthread.php?t=742)

JuanJuan77 12 de octubre de 2017 15:59
Como tomar el usuario de windows
 
hola, alguien sabe como tomar el usuario de windows desde powercobol?

gracias

Rapinto 12 de octubre de 2017 19:46
Aqui vai:

Código COBOL:
  1.  @OPTIONS NOALPHA                                                 
  2. ***************************************************************** 
  3. *  Copyright (c) 2000 R.P.S.                                      
  4. *  Created      :    Jun 2000                                     
  5. *  Last Modified:    Jun 2000                                     
  6. ***************************************************************** 
  7.  IDENTIFICATION DIVISION.                                         
  8.  PROGRAM-ID.    WINUSER.                                          
  9.  AUTHOR.        Rui Pinto.                                        
  10. *-----------------------------------------------------------------
  11.  ENVIRONMENT DIVISION.                                            
  12.  CONFIGURATION SECTION.                                           
  13.  SPECIAL-NAMES.                                                   
  14.  INPUT-OUTPUT SECTION.                                            
  15.  FILE-CONTROL.                                                    
  16. *-----------------------------------------------------------------
  17.  DATA DIVISION.                                                   
  18.  FILE SECTION.                                                    
  19.  WORKING-STORAGE SECTION.                                         
  20.  01  USERNAME               PIC X(64).                            
  21.  01  USERNAME-LEN           PIC S9(9)    COMP-5.                  
  22.  LINKAGE SECTION.                                                 
  23.  01  USER                   PIC X(64).                            
  24.  PROCEDURE DIVISION USING USER.                                   
  25.  MAIN SECTION.                                                    
  26.  MAIN-00.                                                         
  27.        MOVE ALL SPACE TO USERNAME USER.                             
  28.      MOVE 64 TO USERNAME-LEN.                                     
  29.      CALL "GetUserNameA" WITH STDCALL USING                       
  30.               BY REFERENCE USERNAME                               
  31.               BY REFERENCE USERNAME-LEN.                          
  32.      MOVE USERNAME TO USER.                                       
  33.  MAIN-99.                                                         
  34.  END PROGRAM WINUSER.                                            

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

Un saludo,
Rui

JuanJuan77 17 de octubre de 2017 16:42
Hola, gracias,

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

Gracias

Kuk 17 de octubre de 2017 17:41
JuanJuan77, usa la búsqueda: [Aporte] GetUserName - COBOL Foro

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

JuanJuan77 17 de octubre de 2017 20:20
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 17 de octubre de 2017 21:01
JuanJuan77, debes poner en las propiedades del código:
Código:
ALPHAL(WORD)

JuanJuan77 17 de octubre de 2017 22:03
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 18 de octubre de 2017 09:45
JuanJuan77, [Información] El Form queda Minimizado haciendo ExecuteSync - Página 2 - COBOL Foro

Adrianeloy 18 de octubre de 2017 18:29
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 19 de octubre de 2017 16:12
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


La franja horaria es GMT +2. Ahora son las 23:33.
Página 1 de 2 1 2
Mostrar 40 mensajes desde este tema en una página

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.