set c = getobject   ("soap:wsdl=http://localhost/vb6soap/vb6soap.calc.soap?wsdl")for i = 1 to 10 wscript.echo i & " " & c.add(i,i) & " " & timenext 

set c = createobject("mssoap.soapclient")c.mssoapinit("http://localhost/vb6soap/vb6soap.calc.soap?wsdl")for i = 1 to 10 wscript.echo i & " " & c.add(i,i) & " " & timenext 

using system;using system.reflection;using system.runtime.interopservices;using system.enterpriseservices;[assembly: applicationname("cssoap")][assembly: applicationactivation(activationoption.server,    soapvroot="cssoap")][assembly: assemblykeyfile("cssoap.snk")]namespace cssoap{  public interface icalc  {   double add (double value1, double value2);  }  [classinterface(classinterfacetype.autodual)]  [transactionattribute(transactionoption.none)]  public class calc : servicedcomponent, icalc  {   public double add (double value1, double value2);   {      return (value1 + value2);   }   }}

[assembly: applicationactivation(activationoption.server,    soapvroot="cssoap")]

set c = getobject   ("soap:wsdl=http://localhost/cssoap/cssoap.calc.soap?wsdl")for i = 1 to 10 wscript.echo i & " " & c.add(i,i) & " " & timenext 

set c = createobject("mssoap.soapclient")c.mssoapinit("http://localhost/cssoap/cssoap.calc.soap?wsdl?for i = 1 to 10 wscript.echo i & " " & c.add(i,i) & " " & timenext 

imports systemimports system.runtime.interopservicesmodule 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 subend module

簡單的客戶端激活對象 (cao) 示例

1. 用鼠標右鍵單擊組件服務管理工具中的 vb6soap com+ 應用程序，并選擇 export，如圖 2 所示。
   
   圖 2：組件服務管理工具
2. 在圖 3 所示的 com+ 應用程序?qū)С鱿驅(qū)е?，輸入代?.msi 文件的位置和名稱。
   
   圖 3：com+ 應用程序?qū)С鱿驅(qū)?/b>
3. 將代理 .msi 文件安裝在單獨的客戶端計算機上，作為預先生成的 com+ 應用程序。
   安裝時將對代理進行適當?shù)呐渲茫员阃ㄟ^ soap 訪問正確的服務器和虛擬根。對于客戶端激活，可以不使用 wsdl 名字對象，而使用常規(guī)非托管的 com+ 激活（例如，cocreateinstance、createobject 等）。在服務器上創(chuàng)建并在單獨的客戶端計算機上安裝上述 visual basic 計算器示例的應用程序代理后，以下 vbscript 將通過 soap 訪問該服務器：

   set c = createobject("vb6soap.calc")for i = 1 to 10 wscript.echo i & " " & c.add(i,i) & " " & timenext 

   
   如果代理程序沒有啟用 com+ web 服務，則上述 vbscript 代碼將使用 dcom 訪問服務器應用程序。