如何使用vbscript(同步)调用Web服务？

Dim xmlhttp
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")

' 设置请求方法和URL
xmlhttp.Open "GET", "https://api.example.com/data", false

' 发送请求
xmlhttp.Send

' 检查请求状态
If xmlhttp.Status = 200 Then
    ' 处理响应数据
    Dim responseText
    responseText = xmlhttp.ResponseText
    MsgBox responseText
Else
    MsgBox "请求失败，状态码：" & xmlhttp.Status
End If

Set xmlhttp = Nothing