Set WSHNetwork = CreateObject("WScript.Network")
computerName = WSHNetwork.ComputerName


Set objEmail = CreateObject("CDO.Message")
objEmail.From = "yours@somewhere.com"
objEmail.To = "yours@somewhere.com"
objEmail.Subject = computerName & " Subject" 
objEmail.Textbody = computerName & " Body go here."
objEmail.AddAttachment "Full Path to attachment"
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "localhost" 
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send