Hola ...
Te adjunto un fuente CL que recupera la IP, ya he visto que otro forero te
ha pasado un fuente RPG.
Saludos
Juan Brea
Columnas . . : 1 71 Examen
FCOM/QCLSRC
SEU==>
IP1
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7
*************** Principio de datos
************************************
0001.00
/*******************************************************************/
0002.00 /* ESTE CL NOS PERMITE RECUPERAR LA DIRECCION IP DE UN PC
*/
0003.00 /* CONECATDO AL AS/400.
*/
0004.00 /*
*/
0005.00 /* EN ESTE EJEMPLO NO SE HA IMPLEMENTADO UN CONTROL DE ERRORES:
*/
0006.00 /*
*/
0007.00 /* UTILIZACION DE LAS VARIABLES:
*/
0008.00 /*------------------------------
*/
0009.00 /* RCVVAR = CONTIENE TODA LA INFORMACION DEL REGISTRO DE LA API.
*/
0010.00 /* VARLEN = ESPECIFICA LA LONGITUD DE LA VARIABLE RCVVAR EN
BINARIO*/
0011.00 /* DEVICE = CONTIENE EL DISPOSITIVO DEL CUAL QUEREMOS SABER LA IP.
*/
0012.00 /* IP = CONTIENE LA DIRECCION IP DEL DISPOSITIVO
*/
0013.00 /* ERROR = CONTIENE LOS ERRORES HALLADOS EN LA EJECUCION DE LA
API*/
0014.00 /*
*/
0015.00
/*******************************************************************/
0015.01 PGM PARM(&DEVICE)
F3=Salir F5=Renovar F9=Recuperar F10=Cursor F11=Conmutar
F12=Cancelar
F16=Repetir búsqueda F24=Más teclas
Columnas . . : 1 71 Examen
FCOM/QCLSRC
SEU==>
IP1
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7
0015.02
0017.00 DCL &RCVVAR *CHAR 2000
0018.00 DCL &VARLEN *CHAR 4
0019.00 DCL &DEVICE *CHAR 10
0020.00 DCL &IP *CHAR 15
0021.00 DCL &ERROR *CHAR 180
0021.01 DCL &TEXTO *CHAR 70
0021.02
0021.03
0022.00 /* RTVJOBA JOB(&DEVICE)
*/
0023.00 MONMSG ( CPF0000 MCH0000 )
0024.00 CHGVAR %BIN( &VARLEN ) 2000
0024.01
0025.00 /* LLAMAMOS A LA API QUE NOS RECUPERA LA IP DEL PC
*/
0026.00 CALL PGM(QDCRDEVD) PARM(&RCVVAR &VARLEN +
0027.00 'DEVD0600' &DEVICE &ERROR)
0027.01
F3=Salir F5=Renovar F9=Recuperar F10=Cursor F11=Conmutar
F12=Cancelar
F16=Repetir búsqueda F24=Más teclas
Columnas . . : 1 71 Examen
FCOM/QCLSRC
SEU==>
IP1
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7
0028.00 /* COLOCA TODA LA INFORMACION DEL FORMATO DE LA API
*/
0029.00 /* EN UNA AREA DE DATOS
*/
0030.00 CHGDTAARA DTAARA(COMLIB/IP (1 2000)) VALUE(&RCVVAR)
0030.01
0031.00 /* RECUPERO SOLO LA DIRECCION IP DEL PC
*/
0032.00 CHGVAR VAR(&IP) VALUE(%SST(&RCVVAR 878 15))
0032.01
0032.02 CHGVAR VAR(&TEXTO) VALUE('La IP correspondiente +
0032.03 al dispositivo ' || &DEVICE || ' es ' +
0032.04 || &IP)
0033.00 SNDPGMMSG MSG(&TEXTO)
0034.00
0036.00
0037.00 ENDPGM
0038.00
****************** Fin de datos
***************************************
F3=Salir F5=Renovar F9=Recuperar F10=Cursor F11=Conmutar
F12=Cancelar
F16=Repetir búsqueda F24=Más teclas
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Héctor González
Gea
Sent: Saturday, September 06, 2003 11:04 PM
To: Forum AS400
Subject: Controlar Pc's conectados
Importance: High
Hola, tengo una aplicación hecha en ILE RPG y no se me ocurre como controlar
las licencias de uso.
Sabe alguien como puedo controlar que pc's o cuantos están conectados a la
vez en el AS400. Se me había ocurrido ver que IP lo están atacando en cada
momento, pero no se si se puede controlar con algún mandato o programa. Se
que mirando en el NETSTAT puedo verlo visualmente.
Me bustaría que fuera como lo hace el Windows que lo hace de forma
recurrente.
Un saludo y esperando una respuesta.
_____________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
_____________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
