Option Explicit

' Ejecutar desde la carpeta print-agent (doble clic para probar).
' Para inicio de Windows use instalar-en-inicio-windows.vbs (genera el launcher con la ruta correcta).

Const PHP_EXE = ""

Dim shell, fso, dir, php, cmd

Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

dir = fso.GetParentFolderName(WScript.ScriptFullName)

If Not fso.FileExists(dir & "\bin\run.php") Then
    MsgBox "No se encontro bin\run.php en:" & vbCrLf & dir, vbCritical, "Print Agent"
    WScript.Quit 1
End If

shell.CurrentDirectory = dir

If PHP_EXE <> "" Then
    php = PHP_EXE
Else
    php = "php"
End If

cmd = "cmd /c """ & php & """ bin\run.php"
shell.Run cmd, 0, False