set ar = wscript.Arguments
toaddr = ar.item(0)
subject = ar.item(1)
body = ar.item(2)

Set objCDOMail = CreateObject("CDONTS.NewMail")

objCDOMail.From = "mail@someplace.com"
objCDOMail.to = toaddr
objCDOMail.Subject = subject
objCDOMail.Body = body

objCDOMail.Send