14 lines
359 B
Plaintext
14 lines
359 B
Plaintext
<%
|
|
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
|
|
%>
|