VBScript 调用 WSDL Web 服务266

VBScript 是一种由 Microsoft 开发的脚本语言，可用于创建 Web 应用程序、自动化任务以及与 WSDL（Web 服务描述语言）Web 服务进行交互。在这篇文章中，我们将介绍如何使用 VBScript 调用 WSDL Web 服务。

创建 VBScript 文件

首先，创建一个新的 VBScript 文件（例如，）。

添加引用

为了使用 WSDL 工具箱，需要添加一个对 Microsoft XML Web 服务工具箱（）的引用。在 VBScript 文件的开头，添加以下行：Set XMLHTTP = CreateObject(".6.0")

获取 WSDL 文件

下一步，需要获取 WSDL 文件。WSDL 文件描述了 Web 服务的接口、操作和数据类型。可以使用以下代码获取 WSDL 文件： "GET", "/", false

解析 WSDL 文件

获取 WSDL 文件后，需要使用 DOM 解析器来解析它。可以使用以下代码解析 WSDL 文件：Set DOMDocument = CreateObject(".6.0")

调用 Web 服务

使用 DOM 解析器解析 WSDL 文件后，可以使用以下代码调用 Web 服务：Set Service = ("//wsdl:definitions")
Set Operations = (".//wsdl:operation")
For Each Operation in Operations
Set Port = (".//wsdl:port")
Set Address = (".//soap:address")
"POST", ("location").text, false
"Content-Type", "text/xml; charset=utf-8"
""
If = 200 Then
MsgBox "Web 服务调用成功！"
Else
MsgBox "Web 服务调用失败！"
End If
Next

示例

以下是一个 VBScript 示例，演示如何调用 WSDL Web 服务：' 创建 VBScript 文件
Set XMLHTTP = CreateObject(".6.0")
' 获取 WSDL 文件
"GET", "/", false

' 解析 WSDL 文件
Set DOMDocument = CreateObject(".6.0")

' 调用 Web 服务
Set Service = ("//wsdl:definitions")
Set Operations = (".//wsdl:operation")
For Each Operation in Operations
Set Port = (".//wsdl:port")
Set Address = (".//soap:address")
"POST", ("location").text, false
"Content-Type", "text/xml; charset=utf-8"
""
If = 200 Then
MsgBox "Web 服务调用成功！"
Else
MsgBox "Web 服务调用失败！"
End If
Next