Kør .bat fil og få et svar tilbage

ja det virker, test.bat fyre en ping af

<% Response.Buffer = true %>
<%
    url = "www.dr.dk"

    Set objWShell = CreateObject("WScript.Shell")
    Set objCmd = objWShell.Exec("c:\test.bat")
    strPResult = objCmd.StdOut.Readall()
    set objCmd = nothing: Set objWShell = nothing

    strStatus = "offline"
    if InStr(strPResult,"TTL=")>0 then strStatus = "online"

    response.write url & " is " & strStatus
    response.write ".<br>" & replace(strPResult,vbCrLf,"<br>")
%>

Nej der skal sendes parametre med den der bat fil. Den skal køres og der skal returneres et svar.

så sender du vel bare parametre med over?
    Set objCmd = objWShell.Exec("c:\test.bat -a")

Jeg har testet frem og tilbage, det kan ikke lade sig gøre med eksemplet fra classic asp. Har droppet det igen.