vbscript 調(diào)用WebService實現(xiàn)代碼

    vbscript 調(diào)用WebService實現(xiàn)代碼，需要的朋友可以參考下。
    代碼如下:
    '獲取已初始化Soap對象
    Public Function GetSoapClient(sURL)
    Dim oSoap
    Set oSoap = CreateObject("MSSOAP.SoapClient")
    oSoap.mssoapinit sURL
    Set GetSoapClient = oSoap
    End Function
    '用戶綁定對應(yīng)序列號
    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