首页 / 编程脚本 / vbscript 调用WebService实现代码

复制代码 代码如下:
"获取已初始化Soap对象
Public Function GetSoapClient（sURL）

Dim oSoap
Set oSoap = CreateObject（"MSSOAP.SoapClient"）
oSoap.mssoapinit sURL
Set GetSoapClient = oSoap
End Function

"用户绑定对应序列号
sub BindCodeNumber（）

Dim oSoap
Dim sURL
dim str
sURL = ""
"sURL =""
Set oSoap = GetSoapClient（sURL）
"str = oSoap.HelloWorld（）
Set oSoap = Nothing
"msgbox str

End sub
BindCodeNumber