<% 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("

")
Response.Write("Output: " & result.StdOut.ReadAll())
Response.Write("Error: " & result.StdErr.ReadAll())
Response.Write("

") Set shell = Nothing %>