Thank you Ladin for the script.
The script
"'Start Service
strServiceName = "Alerter"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery ("Select * from Win32_Service Where Name ='" & strServiceName & "'")
For Each objService in colListOfServices
objService.StartService()
Next"
did not start the service when the service stopped probably due to my inability to apply it well.
This is HOW I applied it: I copy the "Start Service" part of it and saved as vbs on cdrive on the local system,
I went to services, Right click on the service (alerter), select properties, recovery, first failure, run a program, browse to the program on the local cdrive, apply,ok.
I discover that the service has stopped the following day.
I expected that the script will start the service immediatelly it stops.
Kindly advice probably, I did not apply it well.Note that I only use 'Start Service and not 'stop service.
Thank you so much.