Ping Reply Ting ....

Hejsa /alle

Jeg har et lille problem med en ping ting,

/kode = test.asp

<%

Ping()

Sub Ping()

    Server.ScriptTimeout = 300

    Set objFileSystem = Server.CreateObject(\"Scripting.FileSystemObject\")
    strLocalDIR = server.mappath((\".\")) & \"\\\"
    strTextFileName = strLocalDIR & \"ping.txt\"
    strBatFileName = strLocalDIR & \"ping.bat\"
    strPing = Request.ServerVariables(\"REMOTE_ADDR\")

    \'Create a windows scripting host object
    Set objWShShell = Server.CreateObject(\"WScript.Shell\")
   
    \'run the ping.bat file with parameters
    \'the batfile writes the results of the ping in a textfile named ping.txt
    strRetCode = objWShShell.Run(strBatFileName & \" \" & strPing & \" \" & strTextFileName, 1, True)
   
    \'Read the results from the database and display them on screen.
    Set objFileSystem = objFileSystem.OpenTextFile(strTextFileName, 1)
    strContent = objFileSystem.ReadAll
    Response.Write Replace(strContent, vbCrLf , \"<BR>\")

End Sub
%>

/kode slut

output er det dos-promten giver hvilket er 12 linier tekst, og jeg skal kun bruge tiden i milliseconder??

Nogen der har en idé om hvordan jeg gører det.

Noget af koden er lånt fra Netcoders.dk

/markskod