VBScript调用MSXML2.ServerXMLHTTP.6.0的Open方法失败问题求助

原代码异常情况 #

原本使用Microsoft.XMLHTTP对象的代码可正常运行：

With CreateObject("Microsoft.XMLHTTP")
  .Open "GET", "https://www.google.com", False
  .Send
  content = .ResponseText
End With

当前代码在CreateObject行触发权限拒绝错误，推测由操作系统安全配置变更导致。

替换对象后的新问题 #

按照建议改用MSXML2.ServerXMLHTTP.6.0对象，代码如下：

With CreateObject("MSXML2.ServerXMLHTTP.6.0")
  .Open "GET", "https://www.google.com", False
  .Send
  content = .ResponseText
End With

执行时报错：“找不到指定程序”，错误代码8007007F，来源为msxml6.dll。虽成功调用CreateObject绕过权限问题，但提示该对象无Open方法。

环境信息 #

Windows 10 Enterprise，版本号：10.0.19042

排查与解决方案建议 #

• 重新注册MSXML6组件：以管理员身份打开命令提示符，执行命令 regsvr32.exe msxml6.dll，完成后重启脚本测试。
• 尝试其他XMLHTTP对象变体：比如使用MSXML2.XMLHTTP.6.0或不带版本号的MSXML2.ServerXMLHTTP，示例代码：

  With CreateObject("MSXML2.XMLHTTP.6.0")
    .Open "GET", "https://www.google.com", False
    .Send
    content = .ResponseText
  End With
  

• 检查安全限制：排查系统组策略、杀毒软件或防火墙是否限制了ServerXMLHTTP对象的方法调用，可临时关闭安全软件进行测试。
• 简化可达性验证逻辑：若仅需确认网页是否可达，可使用HEAD请求替代GET，仅检查响应状态码：

  With CreateObject("MSXML2.ServerXMLHTTP.6.0")
    .Open "HEAD", "https://www.google.com", False
    .Send
    If .Status = 200 Then
      WScript.Echo "网页可达"
    Else
      WScript.Echo "网页不可达，状态码：" & .Status
    End If
  End With
  

内容的提问来源于stack exchange，提问作者Brian