Voici un moyen simple pour envoyer des messages de notification d'événement en utilisant la fonction e-mail de l'AS/400 lorsqu'on est connecté à Internet :
1 - Ajouter une entrée de répertoire :
ADDIRE USERID(user1 email)
USRD('User 1 on EMAIL_SVR1')
SYSNAME(TCPIP) MSFSRVLVL(*SYSMS)
PREFADR(*SMTP)
USRDFNFLD((SMTPAUSRID SMTP'user1')
(SMTPDMN SMTP 'company.com.'))
User1 est
le nom utilisé sur le serveur de courrier électronique (John_ Smith, Jsmith, par exemple). Il doit obligatoirement être exact et placé entre guillemets simples. EMAIL_SVR1 n’est pas obligatoire mais peut être utile. Company.com doit correspondre à la chaîne suivant le @ dans l’adresse e-mail et doit également être placé entre guillemets simples.
2 – Ecrire un court programme CL comme celui de l’encadré ci-dessous. Notons que SNDDST n’accepte pas de variables comme l’heure et la date.
Exemple de programmme CL utilisé pour envoyer des messages e-mail
aux utilisateurs :
PGM
DCL VAR(&TIME) TYPE(*CHAR) LEN(6)
DCL VAR(&DATE) TYPE(*CHAR) LEN(6)
DCL VAR(&MSG) TYPE(*CHAR) LEN(100)
RTVSYSVAL SYSVAL(QDATE) RTNVAR(&DATE)
RTVSYSVAL SYSVAL(QTIME) RTNVAR(&TIME)
CHGVAR VAR(&MSG) VALUE(‘Event completed at ‘ *CAT +
&TIME *CAT ‘ on ‘ *CAT &DATE)
SNDDST TYPE(*LMSG) TOUSRID((USER1 EMAIL) (USER2 +
EMAIL) (USER3 EMAIL) (USER4 EMAIL)
(USER5 EMAIL) (USER6 EMAIL)
(USER7 EMAIL)) DSTD(‘Event A +
Notification’) LONGMSG(&MSG)
CRTDATE(*CURRENT)
ENDPGM
|
3 – A la fin du programme exécutant la tâche, appeler le programme CL. Cette manoeuvre enverra un message électronique aux utilisateurs 1 à 7, dans ce cas, pour les informer que, “ L’événement a eu lieu à HHMMSS, le MMJJAA. ”
Barney Cservak, Spécialiste technique des systèmes d’information
CSR Building Materials
Molute, NSW, Australie
Téléchargez cette ressource
Rapport mondial 2025 sur la réponse à incident
Dans ce nouveau rapport, les experts de Palo Alto Networks, Unit 42 livrent la synthèse des attaques ayant le plus impacté l'activité des entreprises au niveau mondial. Quel est visage actuel de la réponse aux incidents ? Quelles sont les tendances majeures qui redessinent le champ des menaces ? Quels sont les défis auxquels doivent faire face les entreprises ? Découvrez les top priorités des équipes de sécurité en 2025.