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

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

这里就不多说了。