''========================================
'' 测试url可用性 TestUrl.vbe
'' Used: cscript TestUrl.vbe url
'' Code by haicao E.S.T
''========================================

''On Error Resume Next
 HELP()
If Wscript.Arguments.Count <>1 Then
 Wscript.echo "参数有误!"
 Wscript.Quit
end if
strURL = wscript.arguments(0)

Wscript.Echo("URL: " & strURL & " 页面状态：" &TestUrl(strURL))

''==============================================================================
function TestUrl(byval strURL)
 on error resume next
 Set objHTTP = CreateObject("MSXML2.XMLHTTP")
 objHTTP.Open "GET", strURL, FALSE
 objHTTP.Send
 TestUrl=objHTTP.statusText
end function
sub HELP()
 WSCRIPT.ECHO "========================================"
 wscript.echo " 测试url可用性 TestUrl.vbe "
 wscript.echo " Used: cscript TestUrl.vbe url"
 wscript.echo " Code by haicao E.S.T"
 WSCRIPT.ECHO "========================================"
end sub
''==============================================================================

文章转载地址：http://www.365master.com/kt_article_show.php?article_id=2109&categ_code=10041003