Ping TEST 중에 CPU 사용률이 작은 COding 법은??

[안진호]

Function PingSilent(strComputer)
 
  Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
           
  For Each objStatus In objPing
    If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
      PingSilent = "Not reachable"    ' strComputer is Not reachable
    Else
      PingSilent = "Live"    ' strComputer is Live
    End If
  Next
 
End Function

위와 같이 했는데요 ..CPU 사용률이 너무 커요.

cmd 창에서 ping 하면 거의 CPU 사용률이 안올라가는데...

위에것 처럼 하니까... 거의 컴퓨터가 잠시 멈추네요.

PING 테스트 중에 CPU 사용률이 제일 작은 방법은요????

[aerowon]

api로 짠 ping 관련 모듈(.bas) 사용하세요.. 돌아 다니는거 있을겁니다..