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