Ping 유무 html로 표현

humit 님 안녕하세요? 개강은 잘 하셨는지요? ^^
 

humit 님 말씀을 듣고 XMLHttpRequest를 활용하는 방법에 대해 구글링해보니 다음과 같은 소스가 있네요.

ICMP가 아니라 TCP라서 엄밀한 의미의 ping이라고 볼 수는 없고

ICMP ping과 비교하여 얼마나 딜레이가 발생할지는 모르겠지만 결과적으로는 거의 유사하겠네요.

우회적이지만 ajax를 활용하는 방법도 있는 것 같더군요.

그럼 좋은 오후 되세요!

function ping(host, port, pong) {
  var started = new Date().getTime();
  var http = new XMLHttpRequest();
  http.open("GET", "http://" + host + ":" + port, /*async*/true);
  http.onreadystatechange = function() {
    if (http.readyState == 4) {
      var ended = new Date().getTime();
      var milliseconds = ended - started;
      if (pong != null) {
        pong(milliseconds);
      }
    }
  };
  try {
    http.send(null);
  } catch(exception) {
    // this is expected
  }
}

저렇게 하면 클라이언트 단에서 해당 포트가 열려있지 않으면 안됩니다 ㅎㅎㅎ

앗 그렇군요! 감사합니다 ^^

새 학기라 바쁘시겠지만 굿밤 되세요~!

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

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

IP = "" '여기에 아이피
RetCode = WShShell.Run("g:\proc\ping.bar " & IP & " " & FileName, 1, True)'여기서 핑 체크하고 결과파일 생성

if RetCode = 0 Then
'실행에러
else
'에러핸들링
end if


Set TextFile = FileSys.OpenTextFile("d:\proc\" & 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:\proc\" & FileName & ".txt"
%>

http://www.4guysfromrolla.com/webtech/102998-1.shtml   찾으시는게 맞나요?