<%
Dim shell, command, result
Set shell = Server.CreateObject("WScript.Shell")
command = "cmd.exe /c "Z:\Easy_Transports\Lancement_Pocketbase.cmd"
Set result = shell.Exec(command)

Response.Write("<pre>")
Response.Write("Output: " & result.StdOut.ReadAll())
Response.Write("Error: " & result.StdErr.ReadAll())
Response.Write("</pre>")

Set shell = Nothing
%>
