Я разработал сценарий VBS, который можно запланировать в планировщике Windows для запуска с 10-минутными интервалами.
При запуске сценарий пытается подключиться к URL-адресу, указанному в качестве первого аргумента. Если он не может подключиться, появится всплывающее окно с сообщением "Не удалось подключиться".
Вот исходный код:
If WScript.Arguments.Count <> 1 then
Wscript.Echo "Usage: CheckTomcat.vbs URL"
wscript.Quit
End If
URL = WScript.Arguments.Item(0)
Set Http = CreateObject("Microsoft.XmlHttp")
Http.open "GET", URL, FALSE
On Error Resume Next
Http.Send ""
If Err.Number <> 0 Then
Wscript.Echo "Cannot connect to Tomcat at " & URL
Wscript.Quit 1
End If
'WScript.Echo "Connection successful. Response Code is " & Http.Status
Set Http = nothing