Nykomling
|
|
Reg.datum: Jul 2006
Inlägg: 7
|
|
Nykomling
Reg.datum: Jul 2006
Inlägg: 7
|
Tack Westman för att du fick mig på rätt spår, 3 dagars frustration har nu utbyts mot ren glädje.
Följande kod kan användas för att kunna köra kommandon som exekverar .exe-filer:
<%
Dim WshShell, oExec, CommandLine, Buf
CommandLine = "C:\mycmd.exe C:\mypdf.pdf C:\mytext.txt"
Set WshShell = Server.CreateObject("WScript.Shell")
Set oExec = WshShell.Exec(CommandLine)
Do While Not oExec.StdOut.AtEndOfStream
Buf = oExec.StdOut.Read(1)
if Buf = Chr(13) then Buf = "
" & Buf
Response.Write Buf
Loop
Set WshShell = Nothing
%>
|