在ASP中执行Ping命令，并且返回结果

作者:佚名来源:本站教程点击: 日期:2007-03-22

在ASP中执行Ping命令，并且返回结果

在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 "<br><hr>慈勤强编写，欢迎访问<a href='http://blog.csdn.net/cqq'

target='_blank'>http://blog.csdn.net/cqq</a>"
%>

在XP系统或者Windows.NET Server系统中，可以使用WMI来实现，

代码如下：

<%
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
%>

当然，我们也可以自己编写相应的组件或者使用一些现成的组件来实现这样的功能，

这里就不多说了。

【文章评论】【收藏本文】【推荐好友】【打印本文】【论坛讨论】

·ASP中巧用Response属性	·第六课:ASP脚本循环语句
·在 Web 页上使用条件数值格式	·连接数据库查询手册（不仅仅适用于asp）
·警惕"给你的FileSystemObject对象加把锁"	·用ASP做全文检索

文章评论:(条)

请留名：匿名评论点击查看所有评论网管论坛

责任编辑:一分声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。

关于我们 - 管理团队 - 网站历史 - 联系我们 - 广告服务 - 法律声明 - 网站地图 - RSS订阅 - 返回顶部

Power by DedeCms

在ASP中执行Ping命令，并且返回结果

作者:佚名 来源:本站教程 点击: 日期:2007-03-22

作者:佚名来源:本站教程点击: 日期:2007-03-22