Visa ett inlägg
Oläst 2006-07-21, 11:24 #3
T1UP4ME T1UP4ME är inte uppkopplad
Nykomling
 
Reg.datum: Jul 2006
Inlägg: 7
T1UP4ME T1UP4ME är inte uppkopplad
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

%>
T1UP4ME är inte uppkopplad   Svara med citatSvara med citat