vbscript访问web service

 将下列代码保存为demo.vbs, 双击运行.

Option Explicit

'Web Service 地址
Const WSDL_URL = "http://192.168.0.3/MyWebService.asmx?WSDL"

'显示Web Service 地址，点击确定后继续
'WScript.echo "Connecting: " & WSDL_URL

'创建并初始化SOAP对象
Dim objWs
Set objWs = CreateObject("MSSOAP.SoapClient")
objWs.mssoapinit WSDL_URL

'通过SOAP对象调用Web Service方法，取得返回值
Dim ret
ret = objWs.GetInfo(251010602005,20177316,95734837)
WScript.Echo "return=" & ret

如果运行时出现 'ActiveX部件不能创建对象 MSSOAP.SoapClient', 则需要先安装soap:(右键点击,另存)