Hi all.

Is there anyone who has some code on how to retrive which license number is used by a license server from a VBA client?

I managed to access the license information on a node_locked license by:

===
 Dim lic As String
 Dim settingControllers1 As SettingControllers
 Set settingControllers1 = CATIA.SettingControllers
    
Dim licenseSettingAtt1 As LicenseSettingAtt
Set licenseSettingAtt1 = settingControllers1.Item("CATSysLicenseSettingCtrl"

curr_lic = licenseSettingAtt1.GetLicensesList(1)
lic = curr_lic(0)
curr_lic_info = licenseSettingAtt1.GetLicense(lic)
===
curr_lic_info contains the information about my node_locked license.
For ex: "_DA2.slt_DS214530000"
When I however, tries the same on a floating license I only get the license name.
curr_lic_info contains only: "_DA2.slt+"

The reason for this is that I want to know what license number is being used on the server.

Anyone?