Imports System
Imports System.Runtime.InteropServices
Module WKOClient
Sub Main()
Dim WSDLMoniker =
"soap:wsdl=http://localhost/CSSoap/CSSoap.Calc.soap?WSDL"
Dim obj as Object
obj = Marshal.BindToMoniker(WSDLMoniker)
Console.WriteLine(obj.Add(1,2))
End Sub
End Module
使用 VBScript 是為了表明,託管的和非託管的用戶端都可以訪問發布為 COM+ Web 服務的 COM+ 組件。在大型組織或應用程式中,很難一次轉換所有部分,COM+ Web 服務允許將一部分應用程式轉換為Managed 程式碼,而無需立即全面重新編寫現有的應用程式。