如何在 Internet Explorer 中运行 vbs答案

【问题标题】：How to run vbs in Internet Explorer如何在 Internet Explorer 中运行 vbs
【发布时间】：2014-11-06 01:53:01
【问题描述】：

我试图在 Internet Explorer 中运行这个 vbscript，但它似乎不起作用。当我将其制作为 .vbs 文件并双击时它可以工作，但在浏览器上却不行。

Dim strWebsite

strWebsite = "www.site.org"

If PingSite( strWebsite ) Then
    WScript.Echo "Web site " & strWebsite & " is up and running!"
Else
    WScript.Echo "Web site " & strWebsite & " is down!!!"
End If


Function PingSite( myWebsite )
    Dim intStatus, objHTTP

    Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )

    objHTTP.Open "GET", "http://" & myWebsite & "/", False
    objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MyApp 1.0; Windows NT 5.1)"

    On Error Resume Next

    objHTTP.Send
    intStatus = objHTTP.Status

    On Error Goto 0

    If intStatus = 200 Then
        PingSite = True
    Else
        PingSite = False
    End If

    Set objHTTP = Nothing
End Function

这样做的正确方法是什么？

【问题讨论】：

为什么这个标签是javascript？您可以在导入此文件的位置显示您的 html 代码吗？

标签： internet-explorer vbscript

【解决方案1】：

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")

oXMLHTTP.Open "GET", "http://..................", False
oXMLHTTP.Send

If oXMLHTTP.Status = 200 Then
'"website ok"
End If

【讨论】：

【解决方案2】：

来自 MS 媒体的热门：VBScript is no longer supported in IE11 edge mode（您可能知道，其他浏览器（不在 MS 渲染器上运行）无论如何都没有运行 vbs）

“正确”的方法是将其转换为 javascript（不认真，您目前仍然可以嘲笑它，但它显然已被弃用并建议现在更新旧代码），这并不难，因为这种技术起源于 MS .你仍然会做一个 head-request 并检查 status-no。

这应该可以帮助您入门：HTTP HEAD Request in Javascript/Ajax?

编辑（针对您的评论）：
不要指望可靠地设置useragent（就像上面的脚本一样，这似乎已经成为过去）：

EDIT2：
我看到/认为您想以某种方式区分您的应用程序：MyApp 1.0;（也许在日志中？）。如果是这种情况，您可能需要添加一些自定义标头：
How can I add a custom HTTP header to ajax request with js or jQuery?

此外，大多数服务器日志（默认情况下）都使用GET-String，您可能希望使用/添加到它（因此，如果您的自定义标头，您不必更改日志格式不会出现）？

【讨论】：

是的，但是，是否可以更改用户代理？这就是为什么我要为此苦苦挣扎。
是的。如果编辑 2 在 IE 上运行，那就太棒了，但戏剧性的是，这些 ajax post 方法在 IE 中不起作用。