Snippets

Home / Snippets / Ping an ip address remotely by ASP

Ping an ip address remotely by ASP

Snippet Menu

snippet |

revisions |

comments | Related Snippets

related |

Add to Favorites | Email

download | Print

print | Blog It

blog it

Wed. Jul. 15th, 2009 1:54 AM

1 of 1

Cloudgen

address | ASP | IP | Ping | VBSCRIPT

0 comments

This VBScript provides the functionality for ping an ip address remotely by an IIS server. This file require IIS to access the ping.exe. see How can a ping an ip address remotely by ASP

<% 

 url = Trim(Request("ip"))

if url<>"" Then

        Set objWShell = CreateObject("WScript.Shell") 

        Set objCmd = objWShell.Exec("ping " & url) 

        strPResult = objCmd.StdOut.Readall() 

        set objCmd = nothing: Set objWShell = nothing 

        strStatus = "offline" 

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

        response.write  strStatus 

End If

%>