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

2016-02-19 15:56 65 1 收藏

今天天气好晴朗处处好风光，好天气好开始，图老师又来和大家分享啦。下面给大家推荐在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来实现，

　　代码如下：

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

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

　　这里就不多说了。

来源:https://www.tulaoshi.com/n/20160219/1610738.html

看过《在ASP中执行Ping命令并且返回结果》的人还看了以下文章更多>>

AutoCAD中输入命令与执行命令教程

标签： cad教程 autocad教程 CAD

AutoCAD中输入命令与执行命令教程 AutoCAD2013中文版命令窗口图01 执行AutoCAD2013中文版命令： AutoCAD2013中文版属于人机交互式软件，即当用AutoCAD2013中文版绘图或进行其他操作时，首先要向AutoCAD2013中文版发出命令，告诉AutoCAD2013中文版要干什么。一般情况下，可以通过以下方式启动AutoCAD2013中文版命...

可以执行系统命令的ASP原码放送

标签： ASP

最近正在写一个远程服务器管理的东东（借鉴了ASE的部分代码、增加了远程执行命令、上传、服务等功能。），得到了阿新、ADAM、辰儿、ghost_happy、 crazybird等很多网友的帮助，让我很感动，所以我打算写好了以后，全部原代码公布，可以自由修改和散布。你所要做的只是上传程序到一个支持ASP的服务器。值得注意的是，程序运行必须有Fi...

PHP 中执行系统外部命令

标签： Web开发

PHP 中执行系统外部命令PHP作为一种服务器端的脚本语言，象编写简单，或者是复杂的动态网页这样的任务，它完全能够胜任。但事情不总是如此，有时为了实现某个功能，必须借助于操作系统的外部程序（或者称之为命令），这样可以做到事半功倍。那么，是否可以在PHP脚本中调用外部命令呢？如果能，如何去做呢？有些什么方面的顾虑呢？相信你...

提高ASP页面的执行效率（中）

标签： ASP

2.影响ASP的要素 (1).尽量把对象变量转换成本地变量，因为读本地变量比读对象变量要快许多。比较慢的例子: if Myobj.Value = 0 then Do something elseif Myobj.Value ＞ 0 then Do something elseif Myobj.Value ＜ 0 then Do something end if 比较快的例子: MyVar = Myobj.Value if MyVar = 0 then D...

Mysql入门系列：在MYSQL结果集上执行计算

标签：编程语言网络编程

6.8 其他主题本节包括几个主题，这些主题不完全适合于本章从client1到client5 的开发中的任一小节的内容： ■ 在使用结果集元数据帮助验证这些数据适合于计算之后，使用结果集数据计算结果。 ■ 如何处理很难插入到查询中的数据。 ■ 如何处理图形数据。 ■ 如何获得表结构的信息。 ■ 常见的MySQL程序设计...

查看更多精彩>>