Profil user *DISABLED automatiquement après connexion

[arno06]

Bonjour à tous,

Je viens de créer des dizaines de user sur l'AS400 de mon entreprise afin que ces derniers puissent se connecter avec leur propre identifiant et non plus avec des users administrateurs.

Afin de renforcer au maximum les procédures de sécurité en interne, chaque profil a d'office été mis en *DISABLED et est activé à la demande en *ENABLED en même temps que l'activation d'une ligne qui permets à ces intervenants externes d'accéder à notre machine (ceci entre autre afin qu'une tierce personne ne profite pas de l'activation de la ligne du 1er demandeur sans que nous sachions le motif de connexion).

Afin de simplifier cette gestion de la sécurité, je voudrais savoir s'il est possible de créer un petit programme simple qui basculerait automatiquement le profil du demandeur en *DISABLED immédiatement après sa connexion ?

La mise en *ENABLED serait encore faites manuellement (à moins que l'on aussi automatiser) et ce programme le passerait le profil en *DISABLED immédiatement après connexion ?

Pouvez-vous m'aider à écrire ce programme svp ?

Si vous avez des améliorations à ce niveau je suis également preneur...

Merci à tous pour votre aide.

Cordialement

[rcordonnier]

Bonjour,

ci dessous un exemple de programme

[001.00 PGM PARM(&PR &VER)
002.00 DCL VAR(&PR) TYPE(*CHAR) LEN(10)
003.00 DCL VAR(&VER) TYPE(*CHAR) LEN(9)
004.00 DCLF FILE(BEXPDTASYS/SELECTUSR)
005.00
006.00 DEB:
007.00 RCVF
008.00 MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(FIN))
009.00 IF COND(&UPUPRF *EQ 'SECURITE') THEN(DO)
010.00 GOTO CMDLBL(DEB)
011.00 ENDDO
012.00
013.00 IF COND(&UPUPRF *EQ 'EXPLOIT') THEN(DO)
014.00 GOTO CMDLBL(DEB)
015.00 ENDDO
016.00
017.00 CHGUSRPRF USRPRF(&UPUPRF) STATUS(&VER)
018.00 MONMSG MSGID(CPF0000)
019.00
020.00 GOTO CMDLBL(DEB)
021.00 FIN:
022.00 ENDPGM
*************** Fin des données }

ce petit programme avec paramètres peut être une solution mais cela ne peut pas etre forcement ce que tu souhaite tiens nous au courant.

bien cordialeemnt