ServiceMonikerSample

Sampel ini menunjukkan klien yang dapat digunakan dengan sampel MetadataExchange TCP. Ini menggunakan moniker layanan WCF.

• PurchaseOrderClient.vbs

PurchaseOrderClient.vbs

set obj = GetObject("service:mexAddress='net.tcp://localhost/example/mex', address='net.tcp://localhost/example', contract='IPurchaseOrder', contractNamespace='http://example.org', binding=PurchaseOrderBinding, bindingNamespace='http://example.org'")
for i = 1 to 100
 orderId = obj.Order(i,"Pencil", date)
 Wscript.Echo orderId, date
Next