List 6-11　顧客を登録するサンプル（AddCustomerTest.vbs）

  1： Set obj = CreateObject("Business.Customer")
  2： CustomerID = obj.AddCustomer("ソフトバンクパブリッシング", _
   　                              "そふとばんくぱぶりっしんぐ", _
   　                              "103-8501", "東京都中央区日本橋", _
   　                              "03-1234-5678", "03-1234-5679", "")
  3： Set obj = Nothing
  4： WScript.Echo "顧客を登録しました。顧客番号は" & CustomerID & "番です"