Automatyzacja procesu tworzenia nowego pakietu MTS oraz instalacji sk│adnik≤w

Aby utworzyµ nowy pakiet o nazwie ôMy Packageö i zainstalowaµ w nim sk│adniki:

1. Zadeklaruj obiekty, kt≤re bΩd╣ wykorzystywane podczas tworzenia nowego pakietu i instalowania sk│adnik≤w.

   	Dim catalog As Object
       Dim packages As Object
       Dim newPack As Object
       Dim componentsInNewPack 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 z obiektu CatalogCollection kolekcjΩ Packages najwy┐szego poziomu. NastΩpnie wywo│aj metodΩ Add, aby dodaµ nowy pakiet.

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

4. Okre£l nazwΩ pakietu jako ôMy Packageö i zapisz zmiany wprowadzone w kolekcji Packages.

       newPackID = newPack.Key
      	 newPack.Value("Name") = "My Package"
      	 packages.SaveChanges

5. Wywo│aj metodΩ GetCollection, aby uzyskaµ dostΩp do kolekcji ComponentsInPackage. NastΩpnie utw≤rz instancjΩ obiektu ComponentUtil i wywo│aj metodΩ InstallComponent, aby wype│niµ nowy pakiet sk│adnikami.

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

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