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
État des lieux de la réponse à incident de cybersécurité
Les experts de Palo Alto Networks, Unit 42 et Forrester Research livrent dans ce webinaire exclusif leurs éclairages et stratégies en matière de réponses aux incidents. Bénéficiez d'un panorama complet du paysage actuel de la réponse aux incidents et de sa relation avec la continuité de l'activité, des défis auxquels font face les entreprises et des tendances majeures qui modèlent ce domaine. Un état des lieux précieux pour les décideurs et professionnels IT.