Add background launcher scripts (Iniciar.vbs, Detener.bat, Ver_Log.bat)

Iniciar_Ambos.vbs

@@ -0,0 +1,51 @@
+' 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"