在Windows环境下的桌面脚本或ASP经典页面中，VBScript依旧承担着不少自动化对接任务。当需要把一份本地生成的XML报表推送到远程服务时，系统自带的MSXML2.XMLHTTP组件是最直接的HTTP客户端选择。它不需要额外安装库，通过CreateObject即可调用，能够发送GET、POST等请求并接收响应。
一、MSXML2.XMLHTTP对象基础
MSXML2.XMLHTTP是微软XML核心服务（MSXML）提供的COM对象，用于在客户端脚本中执行异步或同步的HTTP通信。在VBScript里，我们通过CreateObject函数实例化它，随后调用open方法定义请求类型、地址与是否异步，再用send方法发出数据。
这个对象有多个版本ProgID，例如“MSXML2.XMLHTTP.3.0”或“MSXML2.XMLHTTP.6.0”。建议明确使用6.0版本，因为它安全性更好且支持现代TLS协议。如果只写“MSXML2.XMLHTTP”，系统会选用注册表中默认的兼容版本，可能在新型服务器上遇到协议不支持的问题。
Dim http
Set http = CreateObject("MSXML2.XMLHTTP.6.0")
http.open "POST", "http://192.168.0.1/api/upload", False
http.send "test"
WScript.Echo http.responseText
上面代码演示了最基础的同步POST请求。第三个参数设为False代表阻塞等待响应，适合简单脚本；若设为True则需配合onreadystatechange事件处理异步结果，但在纯VBScript命令行环境中使用较少。
二、读取本地XML文件内容
很多初学者误以为可以直接把文件路径传给send方法，实际上send只接受字符串或二进制流，并不会自动读取文件。我们需要借助FileSystemObject（FSO）把XML文件内容读成字符串，再交给HTTP对象发送。
使用FSO时，应根据XML文件的实际编码选择读取方式。若文件是UTF-8无BOM格式，用ReadAll配合ADODB.Stream更稳妥；若为标准ANSI或带BOM的UTF-8，FSO的OpenTextFile也能胜任。下方示例展示用FSO读取ANSI编码XML文本的过程。
Dim fso, file, xmlContent
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:datareport.xml", 1, False)
xmlContent = file.ReadAll
file.Close
WScript.Echo "读取长度：" & Len(xmlContent)
如果XML内含中文且保存为UTF-8，FSO直接读取可能出现乱码。此时可改用ADODB.Stream，将其Charset设为utf-8后再ReadText，能完整保留字符。这一步处理不好，后续上传的内容在服务端就会解析异常。
三、上传XML文件的完整示例
将读取到的XML字符串通过MSXML2.XMLHTTP发送，核心是指定正确的Content-Type请求头。对于XML负载，通常设为text/xml或application/xml。同时，若接口要求字符集，可在头里写明，例如text/xml; charset=utf-8。
下面给出一个同步上传的完整VBScript脚本：它读取XML、设置请求头、发送数据并输出服务端返回。注意setRequestHeader必须在open之后、send之前调用，否则无效。错误处理部分用On Error Resume Next捕获网络异常，避免脚本直接崩溃。
On Error Resume Next
Dim fso, file, xmlContent
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:datareport.xml", 1, False)
xmlContent = file.ReadAll
file.Close
Dim http
Set http = CreateObject("MSXML2.XMLHTTP.6.0")
http.open "POST", "http://127.0.0.1/api/upload", False
http.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
http.send xmlContent
If Err.Number <> 0 Then
WScript.Echo "请求出错：" & Err.Description
Else
WScript.Echo "状态码：" & http.status & vbCrLf & "响应：" & http.responseText
End If
在这个例子里，我们把xmlContent直接作为send的参数。因为已经是字符串，HTTP对象会按请求头声明的格式发出。服务端如用ASP.NET或PHP接收，直接读输入流就能得到完整XML文档。
四、常见误区与排查思路
一个典型误区是混淆了HTML标签与代码术语。比如有人以为在VBScript里写<input>能提交表单，其实那只是被转义后的标签文本；真正发起请求的是MSXML2.XMLHTTP的send方法，而不是某个表单元素。另一个误区是忘记关闭FSO文件流，导致文件被占用无法下次写入。
当服务端报“无法解析XML”时，先检查Content-Type是否准确，再用工具抓包看发送体开头是否有乱码或多余BOM。若用FSO读UTF-8文件，BOM会被一并读入，造成根节点前有不可见字符。此时换用ADODB.Stream并忽略BOM即可解决。
| 问题现象 | 可能原因 | 解决办法 |
|---|---|---|
| 服务端收到空数据 | send前未读文件或路径错误 | 检查FSO路径与ReadAll调用 |
| 中文变问号 | 编码不一致 | 统一使用UTF-8并设请求头charset |
| 对象创建失败 | MSXML未安装或ProgID错 | 明确写MSXML2.XMLHTTP.6.0 |
通过以上方式，基本能覆盖VBScript结合MSXML2.XMLHTTP上传XML文件的各类场景。理解COM对象的调用顺序与编码细节，才能让老技术继续稳定支撑业务。
VBScriptMSXML2_XMLHTTPXML上传修改时间：2026-08-01 20:39:28