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