I need a script written to restart MSExchangeMGMT service if it stops...

Hello all!
I am wondering if any of you out in techland can give me acces to a sample script to restart a service if it fails. I am using a managed server system that allows me to use scripts if certain issues arise. The script is basically as follows;

Step one - Check to see if the MSExchangeMGMT service is running.

Step two - If it is running do nothing, if it ISNT running then step three

Step Three - Restart the MSExchangeMGMT service.

The problem is for some reasion this service keeps stopping and I have to manually start it. Not sure what the cause for the stoppage is, no alerts, event log entries, etc; however it does just restart without issues until the next time it stops.

Any help would be greatly appreciated...I will keep scouring the knowledge base!!
jhalscottAsked:
Who is Participating?
 
zoofanCommented:
Copy and paste code into notepad

edit line 7 to correct computer name

save as filename.vbs  execute it



zf
    Option Explicit
    Dim strComputer
    Dim objWMIService
    Dim colServiceList
    Dim objService
            
    strComputer = "."
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
        Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Service where Name = 'MSExchangeMGMT'")
        For Each objService In colServiceList
            If objService.State <> "Running" Then
            	objService.StartService()
            End If
        Next
        WScript.Quit(0)

Open in new window

0
 
zoofanCommented:
You should also check the recover options under the service properties and make sure its set to restart itself. And clear the fail count.


zf
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.