Internet explorer 如何在Internet Explorer中运行vbs

我试图在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

正确的方法是什么？

来自MS press的Hot：（正如您可能知道的，其他浏览器（不在MS渲染器上运行）无论如何都不运行vbs）

“正确”的方法是将其转换为javascript（不，说真的，你现在仍然可以嘲笑它，但它显然非常不受欢迎，建议现在就更新旧代码），这并不难，因为这项技术起源于MS。你仍然需要执行head请求并检查状态-否

这应该让你开始：

编辑（回应您的评论）：
但是，不要指望可靠地设置

useragent

（与上面的脚本一样，这似乎已成为过去）：

EDIT2:
我看到/认为您希望以某种方式区分您的应用程序：

myapp1.0（可能在日志中？）。如果是这种情况，您可能需要添加一些自定义标题：


此外，大多数服务器日志（默认情况下）都是通过
GET
-字符串获取的，您可能希望使用/添加到该字符串中（这样，如果您的自定义头不显示，您就不必更改日志格式）？
MS press的热门消息：（您可能知道，其他浏览器（不在MS渲染器上运行）也没有运行vbs）

“正确”的方法是将其转换为javascript（不，说真的，你现在仍然可以嘲笑它，但它显然非常不受欢迎，建议现在就更新旧代码），这并不难，因为这项技术起源于MS。你仍然需要执行head请求并检查状态-否

这应该让你开始：

编辑（回应您的评论）：

但是，不要指望可靠地设置
useragent
（与上面的脚本一样，这似乎已成为过去）：






EDIT2:

我看到/认为您希望以某种方式区分您的应用程序：
myapp1.0（可能在日志中？）。如果是这种情况，您可能需要添加一些自定义标题：


此外，大多数服务器日志（默认情况下）都是在
GET
-字符串上获取的，您可能希望使用/添加到该字符串（这样，如果自定义头不显示，您就不必更改日志格式）
为什么要将其标记为
javascript
？你能把你的html代码显示在你导入这个文件的地方吗？为什么这个被标记为
javascript
？你能把你的html代码显示在你导入这个文件的地方吗？是的，但是，有可能改变用户代理吗？这就是为什么我在努力解决这个问题。如果Edit2在IE上工作，那将非常棒，但戏剧性的是，这些ajax post方法在IE中不起作用。是的，但是，有可能更改useragent吗？这就是为什么我在努力解决这个问题。如果Edit2在IE上工作，那就太棒了，但戏剧性的是，这些ajax post方法在IE中不起作用。
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")

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

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