Automatyzacja konfigurowania klienta programu MTS w celu korzystania ze sk│adnik≤w zdalnych

Aby skonfigurowaµ klienta do korzystania ze sk│adnika zdalnego Bank.CreateTable:

Zadeklaruj obiekty, kt≤re bΩd╣ wykorzystywane podczas konfigurowania klienta (korzystaj╣cego z programu MTS) dla potrzeb uruchamiania sk│adnik≤w zdalnych.
```
Dim catalog As Object
Dim remoteComps As Object
Dim util As Object
```
Za pomoc╣ polecenia On Error obs│u┐ b│Ωdy czasu wykonywania, otrzymywane w razie zwrotu przez metodΩ awaryjnej warto£ci HRESULT. Polecenie On Error i obiekt Err pozwalaj╣ sprawdziµ b│Ωdy oraz odpowiednio na nie zareagowaµ.
```
On Error GoTo failed
```
Wywo│aj metodΩ CreateObject, aby utworzyµ instancjΩ obiektu Catalog. Wywo│uj╣c metodΩ GetCollection pobierz kolekcjΩ RemoteComponents. NastΩpnie za pomoc╣ metody GetUtilInterface utw≤rz instancjΩ obiektu RemoteComponentUtil. Aby zainstalowaµ sk│adnik zdalny, wywo│aj metodΩ InstallRemoteComponentByName, a nastΩpnie podaj nazwΩ komputera serwera, nazwΩ pakietu na serwerze i nazwΩ sk│adnika.
```
Set catalog = CreateObject("MTSAdmin.Catalog.1")
Set remoteComps = catalog.GetCollection("RemoteComponents")
Set util = remoteComps.GetUtilInterface
	util.InstallRemoteComponentByName "remote1", "New","Bank.CreateTable"
Exit Sub
```
W razie nieudanej instalacji pakietu wy£wietlaj komunikat o b│Ωdzie. W komunikacie wykorzystaj obiekt Err.
```
	failed:
    MsgBox "Failure code " + Str$(Err.Number)

	End Sub
```

Zobacz te┐