Start Automatic Services That Have Stopped

By | October 29, 2010

I hate it when I reboot a server or when we had a wind storm the other day it kept knocking out power and out UPS kept wanting to shut down the server gracefully.
When they came back up 2-3 services didn’t restart(yes auto restart was enabled). So this script will run as a scheduled task after the servers startup!

 

 

—–Copy everything below this line—–

‘This script will check a server and make sure all Automatic services are Started
On Error Resume Next

 

strComputer = “.”

i = 0

intLongSleep = 600000

intShortSleep = 60000

 

WScript.Sleep intLongSleep

 

Set objWMIService = GetObject(“winmgmts:” _

& “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2”)

Set colRunningServices = objWMIService.ExecQuery(“Select * from Win32_Service”)

 

For Each objService in colRunningServices

‘WScript.Echo objService.Name  & VbTab & objService.StartMode & objService.Started

If objService.StartMode = “Auto” Then

‘WScript.Echo “Found Mode”

Redim Preserve arrStartMode(i)

arrStartMode(i) = objService.Name

i = i + 1

Start = LBound(arrStartMode)

sEnd = UBound(arrStartMode)

‘WScript.Echo objService.Name & VbTab & objService.StartMode & ”  ” & objService.Started

StartSVC()

Else

End If

Next

 

Function StartSVC()

If objService.Started = False Then

‘WScript.Echo objService.Name & VbTab & objService.StartMode & ”  ” & objService.Started

objService.StartService()

WScript.Sleep intShortSleep

End If

End Function

 

—–Copy everything above this line—–

 

This information is provided “AS IS” with no warranties expressed or implied.

Leave a Reply

Your email address will not be published. Required fields are marked *