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