MTS-asiakkaan asetusten määrityksen automatisoiminen etäkomponenttien käyttöä varten

Asiakkaan asettaminen käyttämään Bank.CreateTable-etäkomponenttia:

Määrittele objektit, joiden avulla MTS-asiakas määritetään käyttämään etäkomponentteja.
```
Dim catalog As Object
Dim remoteComps As Object
Dim util As Object
```
Käsittele suorituksenaikaiset virheet On Error -lausekkeen avulla, jos menetelmä palauttaa HRESULT-virheen. Voit testata MTS:n siepattavia virheitä ja vastata niihin On Error -lausekkeen ja Err-objektin avulla.
```
On Error GoTo failed
```
Luo Catalog-objektin esiintymä CreateObject-menetelmän avulla. Nouda RemoteComponents-kokoelma kutsumalla GetCollection-menetelmää. Luo RemoteComponentUtil-objektin esiintymä GetUtilInterface-menetelmän avulla. Asenna InstallRemoteComponentByName-menetelmä ja anna palvelimen nimi, paketin nimi palvelimella sekä komponentin nimi.
```
Set catalog = CreateObject("MTSAdmin.Catalog.1")
Set remoteComps = catalog.GetCollection("RemoteComponents")
Set util = remoteComps.GetUtilInterface
	util.InstallRemoteComponentByName "remote1", "New","Bank.CreateTable"
Exit Sub
```
Jos asennus epäonnistui, tuo Err-objektin avulla näkyviin virhesanoma.
```
	failed:
    MsgBox "Virhekoodi " + Str$(Err.Number)

	End Sub
```

Katso myös