请教高手：网页上能否实现类似ping命令的功能，就是检测某个IP的计算机是否连接

[frankenstin]

单位上要做个计算机情况管理的数据库，个人想法，想加入一些检测连接等等的功能，不知道在技术上是否可行，想请教一下高手

[lawdoor]

如何在ASP中实现PING

使用WSH调用系统的Ping命令,将Ping的结果重定向到一个文本文件中去,再把文本文件显示到网页中

具体做法如下:
首先, 建一个.BAT文件(例如:myPing.BAT:),这个文件要在ASP中调用,文件代码如下:
ping -a %1 > d:\INetPub\cgi-bin\%2.txt
(%1)是将来要ping的地址, (%2)是存储ping结果的文件. 以下是ASP的代码:

<%
Set FileSys = Server.CreateObject("Scripting.FileSystemObject")
FileName = FileSys.GetTempName

Set WShShell = Server.CreateObject("WScript.Shell")

IP = "xxx.xxx.xxx.xxx" '你要ping的地址
RetCode = WShShell.Run("d:\Inetpub\cgi-bin\myPing.bat " & IP & " " & FileName, 1, True)

if RetCode = 0 Then
'没有错误
else
Response.Redirect "PingErrors.htm"
end if

Set TextFile = FileSys.OpenTextFile("d:\InetPub\cgi-bin\" & FileName & ".txt", 1)
TextBuffer = TextFile.ReadAll

For i = 1 to Len(TextBuffer)

If Mid(TextBuffer,i,1) = chr(13) Then

Response.Write("<BR>")

else

Response.Write(Mid(TextBuffer,i,1))

end if

Next

TextFile.Close

FileSys.DeleteFile "d:\Inetpub\cgi-bin\" & FileName & ".txt"

%>

[lawdoor]

ASP Ping 简要介绍

主页：http://www.serverobjects.com/
下载：http://www.serverobjects.com/comp/aspping.zip

AspPing提供命令行程序ping相同的基本功能，AspPing是免费的，没有免费的技术支持

安装：
将dll文件，拷贝到一个子目录，例如NT的目录\winnt\system32，win95/98的目录\windows\system.
注册dll文件，命令行将当前目录换到该目录，然后键入:
regsvr32 aspping.dll

简单实例：
使用这个组件十分简单
1.创建对象
2.设定一些属性
3.调用Ping方法

<%
rem ***********************************************************
rem * 创建对象
rem ***********************************************************
Set Pinger = Server.CreateObject("AspPing.Conn")

rem ***********************************************************
rem * 设定要ping的主机
rem ***********************************************************
Pinger.RemoteHost = "www.microsoft.com"

rem ***********************************************************
rem * ping远程主机的次数，可选
rem * 缺省值为 1
rem ***********************************************************
Pinger.PingCount = 2


rem ***********************************************************
rem * Ping 然后获得ping的结果
rem ***********************************************************
Response.Write "<pre>" & Pinger.Ping & "</pre>"

rem ***********************************************************
rem * 释放对象
rem ***********************************************************
Set Pinger = nothing

%>


AspPing的属性
RemoteHost - string 字符串
Blocksize - byte 字节
TTL - byte 字节
AspPing方法
Ping - 返回结果（字符串）

[ttt2]

用xmlhttp来作看他返回的状态即可

[cjf1009]

mark

[frankenstin]

风语者的代码我已经测试过，没问题
家和万事兴，能否写一两段代码出来，或者是给个相关的文档都行。你这样说我实在是不知道该不该给你分啊……

[wgd]

学习