28,391
社区成员
发帖
与我相关
我的任务
分享
'========================================
' 测试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
'==============================================================================