Here is a code snippet of a script that uses CDO to send email from a computer.
Set objEml = CreateObject("CDO.Message")
objEml.From = "firstname.lastname@example.org"
objEml.To = "email@example.com"
objEml.Subject = "Sample Message"
objEml.Textbody = "Test Message from Test User"
Msgbox "Mail Sent!!"
Please note that the script will work only where SMTP Service has been installed.