' 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