Cobol Foro - [Herramienta] Nombre de Ordenador

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Herramienta] Nombre de Ordenador (https://www.cobolforo.es/showthread.php?t=1041)

Recato53

7 de octubre de 2019 11:02

Nombre de Ordenador

Como puedo saber el nombre del Ordenador donde estoy trabajando.

Muchas gracias.

Gusaiello

7 de octubre de 2019 12:35

Ejecutando el comado SET sin parámetros, la variable COMPUTERNAME contiene el nombre del ordenador.

fastpho

8 de octubre de 2019 14:42

Recato53, Para Leer el nombre del equipo seria :

Código COBOL:

*---------------------------------------------------
 01 lpBuffer   PIC X(256) is global *> nombre equipo.
 01 nSize      PIC s9(9) comp-5 is global.
 01  ret        pic s9(9) comp-5 is global.
*-------------------------------
         move 255 to nSize.
          Call "GetComputerNameA" with stdcall linkage
          using by reference lpBuffer
                  by reference nSize
          returning ret.

Recato53

9 de octubre de 2019 11:28

Muchas gracias fastpho

Con ese comando obtengo el nombre del equipo en el que estoy trabajando.

Ahora me gustaría saber si hay forma de saber el nombre del equipo (clientname) cuando estoy trabajando en escritorio remoto.

La franja horaria es GMT +2. Ahora son las 02:41.