·您的位置: 首页 » 资源教程 » 编程开发 » ASP » 在ASP中执行PING命令,并且返回结果

在ASP中执行PING命令,并且返回结果

类别: ASP教程  评论数:0 总得分:0
在Win2000系统中,可以通过Wscript.Shell对象的Exec方法执行命令,

简单的代码如下:

<% Response.Buffer = true %>
<%
url = "www.4ico.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>")
%>



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


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

这里就不多说了。
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:

纯粹空间 softpure.com
Copyright © 2006-2012 暖阳制作 版权所有
承接程序设计 网页设计
QQ: 15242663 (隐身在线 拒绝闲聊)  Email: faisun@sina.com

 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛  

百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1