URL 확인 여부 VBScript로

Question

브라우저를 열지 않고 URL 존재 여부를 확인할 vbscript를 원합니다. 존재하면 메시지가 나타납니다. 스크립트 패턴은 다음과 같이해야합니다 : (더 단순한 스크립트, 최고의 스크립트) 여기

일반적인 코드

Url="www.lol.com/letter.txt" 

코드

If exists 

Msgbox("Success") 

Else 

Msgbox("Failed") 

Wscript.Quit 

Answer 1

이 기능은 URL이 존재하는지 여부를 확인하거나하지 않도록해야한다 할 일

function testUrl(url) 
    Set o = CreateObject("MSXML2.XMLHTTP") 
    on error resume next 
    o.open "GET", url, False 
    o.send 
    if o.Status = 200 then testUrl = True 
    on error goto 0 
end function 

if testUrl("http://www.example.com") then 
    msgbox "SUCCESS" 
else 
    msgbox "FAILED" 
end if