Automatyzacja eksportowania pakietu MTS

Aby wyeksportowaµ pakiet o nazwie ôtest.pakö:

1. Zadeklaruj obiekty, kt≤re bΩd╣ wykorzystywane podczas eksportu pakietu.

   Dim catalog As Object
   Dim packages As Object
   Dim util As Object

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

3. Wywo│aj metodΩ CreateObject, aby utworzyµ instancjΩ obiektu Catalog. Wywo│uj╣c metodΩ GetCollection, pobierz kolekcjΩ Packages. Wywo│aj metodΩ Populate, aby wype│niµ pakiet danymi z katalogu.

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

4. Wyliczaj elementy kolekcji Packages w celu odnalezienia pakietu o nazwie ôMy Packageö. Po odszukaniu pakietu utw≤rz instancjΩ obiektu narzΩdziowego pakietu i wywo│aj metodΩ ExportPackage.

   For Each pack In packages
           If pack.Name = "My Package" Then
               Set util = packages.GetUtilInterface
               util.ExportPackage pack.Key, "c:\test.pak", 0
               Exit For
           End If
       Next
             
   Exit Sub

5. 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┐

Obiekty administracyjne programu MTS, Typy kolekcji programu MTS, Metody obiekt≤w administracyjnych programu MTS, Automatyzacja czynno£ci administracyjnych programu MTS za pomoc╣ programu Visual Basic