52 lines
2.2 KiB
Plaintext
52 lines
2.2 KiB
Plaintext
' Inicia MarineInvoice y MarineMaintenance en segundo plano
|
|
Option Explicit
|
|
Dim oShell
|
|
Dim sPython
|
|
Dim sLog1, sLog2
|
|
|
|
sPython = "C:\Users\aerom\AppData\Local\Python\pythoncore-3.14-64\pythonw.exe"
|
|
sLog1 = "C:\MarineInvoice\logs\server.log"
|
|
sLog2 = "C:\MarineMaintenance\logs\server.log"
|
|
|
|
Set oShell = CreateObject("WScript.Shell")
|
|
|
|
' ── MarineInvoice (5000) ──────────────────────────────────────────────────────
|
|
Dim oExec, sOut
|
|
Set oExec = oShell.Exec("cmd /c netstat -aon | findstr :5000 | findstr LISTENING")
|
|
sOut = oExec.StdOut.ReadAll()
|
|
If Len(Trim(sOut)) = 0 Then
|
|
oShell.Run "cmd /c cd /d ""C:\MarineInvoice"" && """ & sPython & """ app.py >> """ & sLog1 & """ 2>&1", 0, False
|
|
End If
|
|
|
|
' ── MarineMaintenance (5500) ─────────────────────────────────────────────────
|
|
Set oExec = oShell.Exec("cmd /c netstat -aon | findstr :5500 | findstr LISTENING")
|
|
sOut = oExec.StdOut.ReadAll()
|
|
If Len(Trim(sOut)) = 0 Then
|
|
oShell.Run "cmd /c cd /d ""C:\MarineMaintenance"" && """ & sPython & """ app.py >> """ & sLog2 & """ 2>&1", 0, False
|
|
End If
|
|
|
|
WScript.Sleep 2000
|
|
|
|
' ── Verificar ambos ──────────────────────────────────────────────────────────
|
|
Dim ok1, ok2
|
|
Set oExec = oShell.Exec("cmd /c netstat -aon | findstr :5000 | findstr LISTENING")
|
|
ok1 = Len(Trim(oExec.StdOut.ReadAll())) > 0
|
|
|
|
Set oExec = oShell.Exec("cmd /c netstat -aon | findstr :5500 | findstr LISTENING")
|
|
ok2 = Len(Trim(oExec.StdOut.ReadAll())) > 0
|
|
|
|
Dim sMsg
|
|
sMsg = "Estado de servidores:" & vbCrLf & vbCrLf
|
|
If ok1 Then
|
|
sMsg = sMsg & "OK MarineInvoice -> http://localhost:5000" & vbCrLf
|
|
Else
|
|
sMsg = sMsg & "ERR MarineInvoice -> no respondio (ver logs)" & vbCrLf
|
|
End If
|
|
If ok2 Then
|
|
sMsg = sMsg & "OK MarineMaintenance -> http://localhost:5500" & vbCrLf
|
|
Else
|
|
sMsg = sMsg & "ERR MarineMaintenance -> no respondio (ver logs)" & vbCrLf
|
|
End If
|
|
|
|
MsgBox sMsg, 64, "Servidores Marinos"
|