generic script fails to restart tomcat

Question

I want to restart PrTomcat service in Primary node on failover using generic script in windows failover cluster with below code but tomcat is taking some time to stop (5 seconds to 150 seconds sometimes) and below code is failing to restart the service, any idea? As per cluster logs only one entry coming from script and no error 01-11-2021 23:18:07 StopService PrTomcat Stop Pending

Function Online( )

On Error Resume Next
'
'   For the local strComputer only...
'
strComputer = "."
strServiceName = "PrTomcat"

StopService strComputer, strServiceName

StartService strComputer, strServiceName
Online =  true
End Function
 
Function LooksAlive( )
LooksAlive = true
End Function
 
Function IsAlive( )
IsAlive = true
End Function



Sub StopService(strComputer, strServiceName)
  Dim cimv2, oService, Result

  'Get the WMI administration object    
  Set cimv2 = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\cimv2")

  'Get the service object
  Set oService = cimv2.Get("Win32_Service.Name='" & strServiceName & "'")
  
  'Check base properties
  If Not oService.Started Then
    ' the service is Not started
    Resource.LogInformation "The service " & strServiceName & " is Not started"
    exit Sub
  End If

  If Not oService.AcceptStop Then
    ' the service does Not accept stop command
    Resource.LogInformation "The service " & strServiceName & " does Not accept stop command"
    exit Sub
  End If

  'Stop the service
  Result  = oService.StopService
  If 0 <> Result Then
    Resource.LogInformation "Stop " & strServiceName & " error: " & Result
    exit Sub 
  End If 
  
  Do While oService.Started
    'get the current service state
    Set oService = cimv2.Get("Win32_Service.Name='" & strServiceName & "'")

    Resource.LogInformation now & " StopService PrTomcat " & oService.State
    Wscript.Sleep 15000
  Loop
End Sub


Sub StartService(strComputer, strServiceName)
  Dim cimv2, oService, Result

  'Get the WMI administration object    
  Set cimv2 = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\cimv2")

  'Get the service object
  Set oService = cimv2.Get("Win32_Service.Name='" & strServiceName & "'")

  
  
  Set oService = cimv2.Get("Win32_Service.Name='" & strServiceName & "'")
  Do While StrComp(oService.State,"Stop Pending",1) = 0
    Wscript.Sleep 15000
    Resource.LogInformation "The service " & strServiceName & " Stop Pending."
  Loop
  
  'Start the service
  Result = oService.StartService
  If 0 <> Result Then
    Resource.LogInformation "Start " & strServiceName & " error:" & Result
    exit Sub 
  End If 
  
  Do While InStr(1,oService.State,"running",1) = 0 
    'get the current service state
    Set oService = cimv2.Get("Win32_Service.Name='" & strServiceName & "'")
    
    Resource.LogInformation now & " StartService PrTomcat " & oService.State
    Wscript.Sleep 200
  Loop   
End Sub