'---------------------------------------------------------------------------------------
'Erzeugt eine Liste der aller CATIA-Lizenzen
'---------------------------------------------------------------------------------------

Set Config = CATIA.SystemConfiguration
ReDim Lizenzliste(Config.ProductCount - 1)
Config.GetProductNames Lizenzliste

'---------------------------------------------------------------------------------------
'Filtert die aktiven Lizenzen aus der Gesamtliste
'---------------------------------------------------------------------------------------
        
For n = 0 To UBound(Lizenzliste)
    If Config.IsProductAuthorized(Lizenzliste(n)) Then
        sMsgBox = Lizenzliste(n) & vbLf & sMsgBox
    End If
Next