Я проверяю это, вызывая скрипт vb из командной строки
cscript //nologo checkurl.vbs | findstr "200"
IF errorlevel 1 GOTO :not_running
Сохраните приведенный ниже скрипт как checkurl.vbs и замените ip на машины ip
' Create an HTTP object
myURL = "http://10.1.1.1:8080/"
Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
' Download the specified URL
objHTTP.Open "GET", myURL, False
On Error Resume Next
objHTTP.Send
intStatus = objHTTP.Status
If intStatus = 200 Then
WScript.Echo intStatus
Else
WScript.Echo "Error Connecting"
End If
У меня были проблемы с использованием команды sc query
, потому что даже в случае сбоя tomcat служба все равно будет отображаться как работающая там, где фактически порт недоступен