Uuden MTS-paketin ja komponenttien asennuksen automatisoiminen

Uuden Oma paketti -paketin luominen ja paketin komponenttien asentaminen:

1. Määrittele uuden paketin luomisessa ja komponenttien pakettiin asentamisessa käytettävät objektit.

   	Dim catalog As Object
       Dim packages As Object
       Dim newPack As Object
       Dim componentsInNewPack 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 CatalogCollection-objektista kutsumalla GetCollection-menetelmää. Lisää uusi paketti Add-menetelmällä.

   	Set catalog = CreateObject("MTSAdmin.Catalog.1")
   	Set packages = catalog.GetCollection("Packages")
   	Set newPack = packages.Add
   	Dim newPackID As String

4. Aseta paketin nimeksi “Oma paketti” ja tallenna muutokset Packages-kokoelmaan.

       newPackID = newPack.Key
      	 newPack.Value("Name") = "Oma paketti"
      	 packages.SaveChanges

5. Nouda ComponentsInPackage-kokoelma kutsumalla GetCollection-menetelmää. Luo ComponentUtil-objektin esiintymä, jotta voit täyttää uuden paketin komponenteilla InstallComponent-menetelmän avulla.

   	Set componentsInNewPack = 	packages.GetCollection("ComponentsInPackage", newPackID)
     	  Set util = componentsInNewPack.GetUtilInterface
      	 util.InstallComponent"d:\dllfilepath", "", ""
      	 Exit Sub

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