MTS-pakettien viemisen automatisointi

Test.pak-paketin vieminen:

1. Määrittele paketin viemisessä käytettävät objektit.

   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 Packages-kokoelma kutsumalla GetCollection-menetelmää. Täytä kokoelma luettelon paketeilla kutsumalla Populate-menetelmää.

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

4. Käy Packages-kokoelma läpi ja etsi Oma paketti -pakettia. Kun se löytyy, luo pakettiapuobjektin esiintymä ja kutsu ExportPackage-menetelmää.

   For Each pack In packages
           If pack.Name = "Oma paketti" Then
               Set util = packages.GetUtilInterface
               util.ExportPackage pack.Key, "c:\test.pak", 0
               Exit For
           End If
       Next
             
   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, MTS-hallinnan automatisoiminen Visual Basicin avulla