Запуск службы и её перезапуск в случае непредвиденной остановки

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "D:\Distrib\123.bat" & Chr(34), 0
Set WshShell = Nothing

Dim objWMI, objCollection, objItem
Dim strService, blnSkip, blnHasError, intTemp, strTemp
 
strService = "wuauserv"
On Error Resume Next
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
If Err.Number = 0 Then
    Set objCollection = objWMI.ExecQuery("SELECT State,StartMode FROM Win32_Service WHERE Name='" & strService & "'")
    If Err.Number = 0 Then
        For Each objItem In objCollection
            If StrComp(objItem.State, "Running", vbTextCompare) = 0 Then
                If StrComp(objItem.StartMode, "Manual", vbTextCompare) <> 0 Then
                    intTemp = objItem.ChangeStartMode("Manual")
                    If intTemp = 0 Then
                        strTemp = "Режим запуска службы установлен в ""Manual"""
                        WScript.Sleep 600000
                        intTemp = objItem.StopService
                        If intTemp <> 0 Then
                            strTemp = strTemp & vbNewLine & "Ошибка при остановке службы: " & intTemp
                            blnHasError = True
                        End If
                    Else
                        strTemp = "Ошибка изменения режима запуска службы: " & intTemp
                        blnHasError = True
                    End If
                Else
                    strTemp = "Текущеий режим запуска службы: " & UCase(objItem.StartMode)
                End If                
            ElseIf StrComp(objItem.State, "Stopped", vbTextCompare) = 0 Then
                strTemp = "Служба уже остановлена"
                blnSkip = True
            Else
                strTemp = "Текущее состояниние службы: " & UCase(objItem.State)
            End If
        Next
    Else
        strTemp = "Ошибка выполнения запроса: " & Err.Number & vbNewLine & Err.Description
        Err.Clear
        blnHasError = True
    End If
Else
    strTemp = "Ошибка подключения к WMI-пространству: " & Err.Number & vbNewLine & Err.Description
    Err.Clear
    blnHasError = True
End If
If Not (blnHasError Or blnSkip) Then
    WScript.Sleep 5000
    Set objCollection = objWMI.ExecQuery("SELECT State FROM Win32_Service WHERE Name='" & strService & "'")
    If Err.Number = 0 Then
        For Each objItem In objCollection
            If StrComp(objItem.State, "Stopped", vbTextCompare) = 0 Then
                strTemp = strTemp & vbNewLine & "Служба остановлена"
            Else
                strTemp = strTemp & vbNewLine & "Не удалось остановить службу"
            End If
        Next
    Else
        strTemp = strTemp & vbNewLine & "Ошибка выполнения запроса: " & Err.Number & vbNewLine & Err.Description
        Err.Clear
    End If
End If
Set objItem = Nothing: Set objCollection = Nothing: Set objWMI = Nothing
'WScript.Echo strTemp
WScript.Quit 0

If StrComp(objItem.StartMode, "Manual", vbTextCompare) <> 0 Then
    intTemp = objItem.ChangeStartMode("Manual")
    If intTemp = 0 Then
        strTemp = "Режим запуска службы установлен в ""Manual"""
    Else
        strTemp = "Ошибка изменения режима запуска службы: " & intTemp
        blnHasError = True
    End If
Else
    strTemp = "Текущий режим запуска службы: " & UCase(objItem.StartMode)
End If
If Not blnHasError Then
    WScript.Sleep 600000
    intTemp = objItem.StopService
    If intTemp <> 0 Then
        strTemp = strTemp & vbNewLine & "Ошибка при остановке службы: " & intTemp
        blnHasError = True
    End If
End If

Dim objWMI, objCollection, objItem
Dim strMsg
 
Sub Close(strMsg)
    
    Set objItem         = Nothing
    Set objCollection   = Nothing
    Set objWMI          = Nothing
    
    Err.Clear
    
    If strMsg <> "" Then
        MsgBox strMsg,, "Check Point Service"
    End If
    
    WScript.Quit 0
    
End Sub
 
Sub addMsg(strTemp)
    
    If strMsg = "" Then
        strMsg = strTemp
    Else
        strMsg = strMsg & vbNewLine & strTemp
    End If
    
End Sub
 
On Error Resume Next
 
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
If Err.Number <> 0 Then
    Close "Ошибка подключения к WMI-пространству: " & Err.Number & vbNewLine & Err.Description
End If
 
Set objCollection = objWMI.ExecQuery("SELECT State,StartMode FROM Win32_Service WHERE Name='EPWD' or Name='TracSrvWrapper'")
If Err.Number <> 0 Then
    Close "Ошибка выполнения запроса: " & Err.Number & vbNewLine & Err.Description
End If
 
strMsg = ""
 
For Each objItem In objCollection
    
    If LCase(objItem.StartMode) <> "manual" Then
        intTemp = objItem.ChangeStartMode("manual")
        If intTemp = 0 Then
            addMsg "Изменен режим запуска службы: " & objItem.Name & " (Вручную)"
        ElseIf intTemp = 2 Then
            addMsg "Не достаточно прав для изменения режима запуска службы: " & objItem.Name
        Else
            addMsg "Ошибка изменения режима запуска службы: " & objItem.Name
        End If
    End If
    
    If LCase(objItem.State) = "stopped" Then
        intTemp = objItem.StartService
        If intTemp = 0 Then
            addMsg "Запущена служба: " & objItem.Name
        ElseIf intTemp = 2 Then
            addMsg "Не достаточно прав для запуска службы: " & objItem.Name
        Else
            addMsg "Ошибка при запуске службы: " & objItem.Name
        End If
        
    ElseIf LCase(objItem.State) = "running" Then
        addMsg "Служба " & objItem.Name & " работает"
                
    Else
        addMsg "Текущее состояниние службы: " & UCase(objItem.State)
        
    End If
    
Next
 
Close(strMsg)