Questa versione funziona solo in locale senza passare da un server SMTP esterno. Ricordarsi quindi di modificare “smtp.localhost.tld” con l'indirizzo del server SMTP interno (che dovrà lasciar passare la posta in uscita senza autenticazione utente).

sendmail.vbs

' SendMail GSolone 20121122 rev0
' Utilizzo: set delle variabili da script command per:
'				%sender% 		-mittente
'				%alert% 		-destinatario o destinatari
'				%COMPUTERNAME%	-hostname della macchina da variabile d'ambiente
'				%MSG%			-testo contenuto nel corpo del messaggio che può essere settato in base alla verifica fatta nei servizi
'
' Esecuzione del sendmail da script: cscript sendmail.vbs //B %Sender% %alert% "OCS agent problem on %COMPUTERNAME% (domain.tld)" "OCS %MSG%"
 
Set objNTInfo = CreateObject("WinNTSystemInfo")
Set objMessage = CreateObject("CDO.Message") 
Set objFSO = CreateObject("scripting.filesystemobject")
Set objArgs = WScript.Arguments
 
objMessage.From = objArgs(0)
objMessage.To = objArgs(1)
objMessage.Subject = objArgs(2)
objMessage.TextBody = objArgs(3)
 
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.localhost.tld"
objMessage.Configuration.Fields.Update
objMessage.Send