Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Cobol » nombre de pc en red

Cobol - nombre de pc en red

Volver
Nuevo Tema
<<>>
 
Vista:

nombre de pc en red

Publicado por dahool (1 intervención) el 28/11/2003 17:35:20
Como puedo obtener el nombre de red de la PC programando con AcuCobol?

gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Obtener el nombre de red de una PC en AcuCobol en Windows y Unix/Linux

Publicado por Alejandro (300 intervenciones) el 05/09/2023 20:26:01
Para obtener el nombre de red de una PC programando en AcuCobol, puedes utilizar una llamada a una función del sistema operativo subyacente. En Windows, puedes utilizar la función `GetComputerName` para obtener el nombre de la computadora, mientras que en sistemas Unix/Linux, puedes usar comandos como `hostname`. A continuación, te proporciono ejemplos de cómo hacerlo en AcuCobol en ambas plataformas:

En Windows (utilizando `GetComputerName`):



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
IDENTIFICATION DIVISION.
       PROGRAM-ID. Get-Computer-Name.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 COMPUTER-NAME PIC X(50).
       01 LENGTH        PIC S9(4) BINARY.
       01 RET-CODE      PIC S9(9) BINARY.
       PROCEDURE DIVISION.
       CALL 'GetComputerNameA' USING COMPUTER-NAME LENGTH
       IF LENGTH > 0 THEN
           MOVE COMPUTER-NAME(1:LENGTH) TO COMPUTER-NAME
           DISPLAY "Nombre de la computadora: " COMPUTER-NAME
       ELSE
           DISPLAY "Error al obtener el nombre de la computadora."
       END-IF.
       STOP RUN.

Este programa utiliza la función `GetComputerNameA` para obtener el nombre de la computadora en Windows y luego lo muestra en la pantalla.

En Unix/Linux (utilizando `hostname`):



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
IDENTIFICATION DIVISION.
       PROGRAM-ID. Get-Computer-Name-Unix.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 COMPUTER-NAME PIC X(50).
       01 COMMAND-STRING PIC X(100) VALUE "hostname".
       01 LENGTH        PIC S9(4) BINARY.
       01 RET-CODE      PIC S9(9) BINARY.
       PROCEDURE DIVISION.
       CALL 'SYSTEM' USING COMMAND-STRING RETURNING RET-CODE
       IF RET-CODE = 0 THEN
           MOVE FUNCTION TRIM(COMMAND-STRING) TO COMPUTER-NAME
           DISPLAY "Nombre de la computadora: " COMPUTER-NAME
       ELSE
           DISPLAY "Error al obtener el nombre de la computadora."
       END-IF.
       STOP RUN.

Este programa utiliza el comando `hostname` a través de la función `SYSTEM` para obtener el nombre de la computadora en sistemas Unix/Linux y luego lo muestra en la pantalla.

Estos son ejemplos simples de cómo obtener el nombre de red de una PC en AcuCobol en Windows y Unix/Linux. Asegúrate de adaptarlos según tus necesidades y de manejar posibles errores en la llamada al sistema o la función correspondiente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar