Automatyzacja instalacji wbudowanego pakietu MTS

Aby zainstalować w programie MTS Explorer wbudowany pakiet “Test.pak” :

1. Zadeklaruj obiekty, które będą wykorzystywane podczas instalacji pakietu wbudowanego.

   	Private Sub InstallPackage_Click()
       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 najwyższego poziomu.

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

4. Utwórz instancję obiektu PackageUtil, po czym wywołaj metodę InstallPackage, aby zainstalować pakiet o nazwie “test.pak”.

   	Set util = packages.GetUtilInterface
       util.InstallPackage "c:\test.pak", "", 0
       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 zaawansowanych czynności administracyjnych programu MTS za pomocą programu Visual Basic