今天天气好晴朗处处好风光，好天气好开始，图老师又来和大家分享啦。下面给大家推荐在ASP中执行Ping命令并且返回结果，希望大家看完后也有个好心情，快快行动吧！
【 tulaoshi.com - Web开发 】
在Win2000系统中，可以通过Wscript.Shell对象的Exec方法执行命令，
简单的代码如下：
% Response.Buffer = true %
%
url = "www.topronet.com"
Set objWShell = CreateObject("WScript.Shell")
Set objCmd = objWShell.Exec("ping " & url)
strPResult = objCmd.StdOut.Readall()
set objCmd = nothing: Set objWShell = nothing
strStatus = "离线"
if InStr(strPResult,"TTL=")0 then strStatus = "在线"
response.write url & " 状态为： " & strStatus
response.write ".br" & replace(strPResult,vbCrLf,"br")
response.write "brhr慈勤强编写，欢迎访问a href='http://blog.csdn.net/cqq'
target='_blank'http://blog.csdn.net/cqq/a"
%
在XP系统或者Windows.NET Server系统中，可以使用WMI来实现，
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/webkaifa/）代码如下：
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/webkaifa/） %
url = "www.topronet.com"
WMI = "winmgmts:{impersonationLevel=impersonate}"
wqlQuery = "SELECT StatusCode FROM Win32_PingStatus WHERE Address" & _
" = '" & url & "'"
set PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48)
Response.write url & " 状态 "
For Each result in PingResult
if clng(result.StatusCode)0 then
response.write "离线"
else
response.write "在线"
end if
Next
%
当然，我们也可以自己编写相应的组件或者使用一些现成的组件来实现这样的功能，
这里就不多说了。
来源:http://www.tulaoshi.com/n/20160219/1610738.html
看过《在ASP中执行Ping命令并且返回结果》的人还看了以下文章 更多>>
