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