WEB开发网
开发学院WEB开发ASP 在ASP中执行Ping命令,并且返回结果 阅读

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

 2005-02-19 10:29:20 来源:WEB开发网   
核心提示:在Win2000系统中,可以通过Wscript.Shell对象的Exec方法执行命令,在ASP中执行Ping命令,并且返回结果,简单的代码如下:<% Response.Buffer = true %> <% url = "www.toPRonet.com" Set obj

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


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

这里就不多说了。

Tags:ASP 执行 Ping

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接