Attribute VB_Name = "modMTS"
' ========================================
' Automatisierte MTS Administration
' Autor: Holger Schwichtenberg (hs@it-visions.de)
' Version: 1.0
' Stand: 17.12.1999
' ========================================

Sub mts1()
Dim catalog As Object
Dim packages As Object
Dim pack As Object

' Zugriff auf MTSADMIN
Set catalog = CreateObject("MTSAdmin.Catalog.1")
' Zugriff auf Packages
Set packages = catalog.GetCollection("Packages")
packages.Populate

' Iterartion über alle Packages
n = packages.Count
For I = 1 To n - 1
    say packages.Item(I).Value("Name")
Next
End Sub