Macro to determine CATIA V5 licenses avail. in session

[jackiew]

In a macro, I would like to test to ensure the user has a specific CATIA V5 license active so that the macro executes successfully. Does anyone have an example that checks active licenses for a CATIA session?

 

[AHay]

This is taken from the R11 docs but I don't know if it works...


Dim SystemConfiguration1 As SystemConfiguration
Set SystemConfiguration1 = CATIA.SystemConfiguration
ReDim NameArray(SystemConfiguration1.ProductNamesCount)
SystemConfiguration1.GetProductNames NameArray
MsgBox "IsProductAuthorized for product " & NameArray(0) & " returns " & SystemConfiguration1.IsProductAuthorized(NameArray(0))


You may need to add a 'Dim NameArray()' at the beginning.