Valmiin MTS-paketin asennuksen automatisoiminen

Valmiin Test.pak-paketin asentaminen MTS Exploreriin:

1. Määrittele valmiin paketin asentamisessa käytettävät objektit.

   	Private Sub InstallPackage_Click()
       Dim catalog As Object
       Dim packages As Object
       Dim util As Object

2. 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

3. Luo Catalog-objektin esiintymä CreateObject-menetelmän avulla. Nouda ylätason Packages-kokoelma kutsumalla GetCollection-menetelmää.

   	Set catalog = CreateObject("MTSAdmin.Catalog.1")
      Set packages = catalog.GetCollection("Packages")

4. Luo PackageUtil-objektin esiintymä ja asenna Test.pak-paketti kutsumalla InstallPackage-menetelmää.

   	Set util = packages.GetUtilInterface
       util.InstallPackage "c:\test.pak", "", 0
       Exit Sub

5. Jos asennus epäonnistui, tuo Err-objektin avulla näkyviin virhesanoma.

   	failed:
       	MsgBox "Virhekoodi " + Str$(Err.Number)
   	End Sub

Katso myös

MTS-hallintaobjektit, MTS-kokoelmatyypit, MTS-hallintaobjektimenetelmät, Kehittyneen MTS-hallinnan automatisoiminen Visual Basicin avulla