Expand|Select|Wrap|Line Numbers
- <% Response.Buffer = true %>
- <%
- url = "192.168.0.1"
- 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 url & " is " & strStatus
- %>
192.168.0.1 is offline
my question is... if there's any code that changes the value of 'strStatus' into image that is located in 'Images\offline.gif' ? Btw, im using ASP VBScript.
Thanks in advance guys.