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ż