¿y por qué, hacerlo tan raro?
Quiero decir: si lo que quieres es que el sistema no desactive
automáticamente a los usuarios al cabo de varios intentos (algo
claramente poco recomendable), puedes sencillamente quitar este
comportamiento cambiando los valores del sistema QMAXSGNACN y/o QMAXSIGN
Si lo que quieres es que la desactivación de los usuarios sea temporal,
o quieres que se lleven a cabo algunas acciones adicionales, quizás lo
más apropiado sería utilizar un programa de control de contraseñas,
usando el valor QPWDVLDPGM. En eras antediluvianas, yo tenía un
programa de este estilo, cuando no venían de serie en el SO cosas como
la comprobación de intentos o la duplicación de contraseñas
anteriores. Se me ocurre, por ejemplo, que el sistema no se encargue
de inactivar el usuario, sino que este programa lleve un log de
intentos fallidos de usuarios, y no permita la entrada durante cierto
tiempo si han habido x errores en un plazo determinado. También te
serviría como archivo de auditoría, puesto que si vas a utilizar un
sistema que permita un número indefinido de intentos inválidos
nececesitarás llevar este control como medida mínima de seguridad (no
es necesario que el programa lleve también la gestión de las
contraseñas, como hacía el mío, puesto que puede "preguntar" al sistema
si la contraseña introducida es la del usuario, con el api
correspondiente)
Un saludo
El 10/08/2010 22:02, afl guyi escribió:
Si lo he compilado con *owner(siendo qsecofr), pero no
funciona....
El msg cpf1393 no lo corre... y lo arregle dejando(por ahora
hasta ver un poco mas) una corrida en batch, un pgm sin fin compilado
con *owner, para que cambie el usuario de "disable" a "enable"... Pero
me gustaria que el cpf1393 dispare ese pgm.
Graciassss a todos, si alguien puede aportar alguna idea bien
venida sea...
El 9 de agosto de 2010 15:34, <[email protected]>
escribió:
Tu programa debe estar creado desde un user con
atributos del oficial de seguridad o con capacidad de cambiar datos de
un USRPRF y creado con USRPRF(*OWNER)
Saludos
^^^
Armando Luengas Mendoza
Jafra Cosmetics International
IT México
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
From: afl guyi <[email protected]>
To: "forum.help400" <[email protected]>
Date: 09/08/2010 01:27 p.m.
Subject: Re: consulta??
Sent by: [email protected]
Gracias... intente modificar el msg CPF1393 , y le
puese que me ejecute una CL para desde ahi modificar el estado del
usuario y no la ejecuta, alguien sabe porq????? ALguien ejecuta CL
desde un CPFXXXX....?GRACIASSS A TODOS
El 8 de agosto de 2010 01:13, Gustavo Sagastume <gasagastume.gt@gmail.com>
escribió:
1. crear la cola de mensajes QSYS/qsysmsg en esta
cola se duplican los mensajes de la qsysopr
2. hacer un programa CL que tenga reciba los
mensajes de qsysmsg
ejemplo (no esta probado)
PGM
DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
DCL VAR(&MSG) TYPE(*CHAR) LEN(75)
DCL VAR(&MSGX) TYPE(*CHAR) LEN(80)
DCL VAR(&USUARIO) TYPE(*CHAR) LEN(10)
CICLO: RCVMSG MSGQ(QSYSOPR) MSGTYPE(*NEXT)
MSGKEY(*TOP) +
RMV(*YES) MSG(&MSG) MSGDTA(&MSGX) +
MSGID(&MSGID) IF COND(&MSGID =
'CPF1393') THEN(DO)
CHGVAR VAR(&USUARIO) VALUE(%SUBSTRING(&MSGX
11 20))
CHGUSRPRF USRPRF(&USUARIO)
STATUS(*ENABLED)
ENDDO
IF COND(&MSGID = ' ') GOTO CMDLBL(FIN)
GOTO CMDLBL(CICLO)
FIN:
ENDPGM
3. somber la cl al batch con un trabajo de
prearranque
espero que te ayude
---------- Mensaje reenviado ----------
De: afl guyi <[email protected]>
Fecha: 7 de agosto de 2010 18:14
Asunto: consulta??
Para: [email protected]
hola a todos
Como hago para dejar un pgm en Batch(sin fin) que chequee que un
usuario quedo "disable",porq ingreso mal su clave mas de 3 veces y
habilitarlos, desde ese programa que esta en corriendo en batch.....
Quiero hacer esto porq la maquina quedara encendida todo los fines de
semana(sin ningun operador)...
Gracias a todos
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5377 (20100818) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Jesús
Busquets
GRESPANIA, S.A.
Este
mensaje
se dirige exclusivamente a su destinatario y puede contener
información privilegiada o confidencial. Si no es Vd. el
destinatario indicado, queda notificado de que la utilización,
divulgación y/o copia sin autorización está
prohibida en virtud de la legislación vigente. Si ha recibido
este mensaje por error, le rogamos que nos lo comunique
inmediatamente por esta misma vía y proceda a su destrucción.
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5377 (20100818) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
|
