ASP Code

Ping a Remote Address with ASP

This subroutine will ping a server based on an IP address and output the returned data to a text file. It will then parse the text file, and output the information to the user's browser.

By default the function pings the user, by getting the browser's IP address (Request.ServerVariables("REMOTE_ADDR")). You can change this to whatever you want, or even specify the host string as a parameter.


Sub Ping()
    strHost = Request.ServerVariables("REMOTE_ADDR")
    response.write "Pinging "&strHost&" with 32 bytes of data.......<BR>"
    Set oShell = Server.CreateObject ("Wscript.Shell")
    oShell.Run "%ComSpec% /c ping " & strHost & ">C:\" & strHost & ".txt",0,true
    Set oFS = Server.CreateObject("Scripting.FileSystemObject ")
    Set oTF = oFS.OpenTextFile("C:\" & strHost & ".txt")
    tempData = Null
    Data = Null
    i = 0
        Do While Not oTF.AtEndOfStream
        Data = Trim(oTF.Readline )
            IF i > 2 Then
                  tempData = tempData & Data & "<BR>"
            End IF
        i = (i + 1)
        Loop
   
        oTF.Close
        oFS.DeleteFile "C:\" & strHost & ".txt"

    Set oFS = Nothing
    response.write  tempData
end sub
Share

Leave a Reply

Your email address will not be published. Required fields are marked *

*
To prove you're a person (not a spam script), type the security word shown in the picture. Click on the picture to hear an audio file of the word.
Anti-spam image