vbscript에서 HTTP 응답 테스트

응답 속도가 느린지 확인하려면 웹 URL에서 응답 시간을 테스트해야합니다. 내가 튜토리얼 웹 사이트 (이 기억이 안나요)에서이 문제를 가지고 있지만 정확히 내가 원하는 것을하지 않습니다vbscript에서 HTTP 응답 테스트

On Error Resume Next 
Set XMLHttp = CreateObject("MSXML2.ServerXMLHTTP") 
xmlhttp.open "GET", "http://website.url.com" , 0 
xmlhttp.send "" 
If Err.Number < 0 OR Err.Number > 0 Then 
    Dim objShell 
    Set objShell = WScript.CreateObject ("WScript.shell") 
    MsgBox "TimeOut" 
    Set objShell = Nothing 
    WScript.Quit 
Else 
    MsgBox "OK" 
End If 

Set xmlhttp = Nothing

이 스크립트만을 테스트 사이트 timesout 경우 또는 없습니다.

Dim strHost 

' Put your server here 
strHost = "localhost" 

if Ping(strHost) = True then 
    Wscript.Echo "Host " & strHost & " contacted" 
Else 
    Wscript.Echo "Host " & strHost & " could not be contacted" 
end if 

Function Ping(strHost) 

    dim objPing, objRetStatus 

    set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _ 
     ("select * from Win32_PingStatus where address = '" & strHost & "'") 

    for each objRetStatus in objPing 
     if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 then 
     Ping = False 
      'WScript.Echo "Status code is " & objRetStatus.StatusCode 
     else 
      Ping = True 
      'Wscript.Echo "Bytes = " & vbTab & objRetStatus.BufferSize 
      Wscript.Echo "Time (ms) = " & vbTab & objRetStatus.ResponseTime 
      'Wscript.Echo "TTL (s) = " & vbTab & objRetStatus.ResponseTimeToLive 
     end if 
    next 
End Function

모든 크레딧이 웹 사이트로 이동 : I는이 시간 초과되지 않더라도으로 더 상세한 정보를 필요는 등의 응답 시간,

출처

2012-05-28 Chris

vbscript에서 HTTP 응답 테스트

답변

관련 문제