any one knows vbs script for when windows services is stopped to send a email alerts

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "mail id"
objEmail.To = "mail id"
objEmail.Subject = "Service Is Down"
objEmail.Textbody = "The Service ### has stopped."
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.Gmail.com"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 143
objEmail.Configuration.Fields.Update
objEmail.Send