Il peut arriver que vous ayez besoin d’envoyer automatiquement un message à partir d’un type d’application ou de programme. Ou encore, vous pouvez vouloir vous envoyer une alerte lorsqu’un service s’arrête soudainement sur l’un de vos serveurs Windows 2003 critiques.
En l’absence d’une application ou d’un agent de surveillance fonctionnant sur le système, vous aurez besoin d’un programme ou d’un script personnalisé pour envoyer un message contenant des informations pertinentes.
Voici un exemple de script qui utilise CDO pour envoyer un message électronique depuis un ordinateur utilisant un serveur SMTP distant. Remplacez smtp.mondomaine.com par le nom d’hôte du serveur SMTP par lequel vous allez envoyer le courrier.
Vous pouvez modifier les autres propriétés, comme l’identité de l’expéditeur et du destinataire du courrier. Il suffit de copier et coller dans un éditeur de texte tel que Notepad, puis de sauvegarder avec l’extension .vbs.
Set objEmail = CreateObject(« CDO.Message »)
objEmail.From = « [email protected] »
objEmail.To = « [email protected] »
objEmail.Subject = « Service Is Down » (Le service est en panne)
objEmail.Textbody = « Le service ### s’est arrêté ».
objEmail.Configuration.Fields.Item _
(« http://schemas.microsoft.com/cdo/configuration/sendusing ») = 2
objEmail.Configuration.Fields.Item _
(« http://schemas.microsoft.com/cdo/configuration/smtpserver ») = _
» smtp.mondomaine.com «
objEmail.Configuration.Fields.Item _
(« http://schemas.microsoft.com/cdo/configuration/smtpserverport ») = 25
objEmail.Configuration.Fields.Update
objEmail.Send