Listing 1: Email.vbs

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "me@mydomain.com"
objEmail.To = "me@mydomain.com"
objEmail.Subject = "An error has occurred"
objEmail.Textbody = "Workstation100 has encountered an error."
objEmail.Send