Macro to load license

[biricio]

Hi,
I often charge a license in 'shareable products' such as the SPA license.
How do I create a button to activate / deactivate a license?

thanks

 

[ferdo]

Hi,

Language="VBSCRIPT"

Sub CATMain()

Dim settingControllers1 As SettingControllers
Set settingControllers1 = CATIA.SettingControllers

Dim memoryWarningSettingAtt1 As SettingController
Set memoryWarningSettingAtt1 = settingControllers1.Item("CATSysMemoryWarningSettingCtrl")

Dim licenseSettingAtt1 As SettingController
Set licenseSettingAtt1 = settingControllers1.Item("CATSysLicenseSettingCtrl")

  Dim Message, Style, Title, Response, SecString
    Message = ("To get the SPA license click YES, to release it click NO" ) 
    Style = vbYesNo + vbDefaultButton1    'Define default button
    Title = "Purpose : change status of a specific license "   
    Response = MsgBox(Message, Style, Title)
If Response = vbYes Then    ' User chose Yes.
        
Dim generalSessionSettingAtt1 As SettingController        
Dim disconnectionSettingAtt1 As SettingController

''''''''''''''''''YES
licenseSettingAtt1.SetLicense "SPA.prd", "SPA.prd"
Set generalSessionSettingAtt1 = settingControllers1.Item("CATCafGeneralSessionSettingCtrl")

generalSessionSettingAtt1.SaveRepository 
Set disconnectionSettingAtt1 = settingControllers1.Item("CATSysDisconnectionSettingCtrl")

disconnectionSettingAtt1.SaveRepository 
memoryWarningSettingAtt1.SaveRepository 
licenseSettingAtt1.SaveRepository 

Else
''''''''''''''''''''''''NO
licenseSettingAtt1.SetLicense "SPA.prd", "NotRequested"
Set generalSessionSettingAtt1 = settingControllers1.Item("CATCafGeneralSessionSettingCtrl")

generalSessionSettingAtt1.SaveRepository 
Set disconnectionSettingAtt1 = settingControllers1.Item("CATSysDisconnectionSettingCtrl")

disconnectionSettingAtt1.SaveRepository 
memoryWarningSettingAtt1.SaveRepository 
licenseSettingAtt1.SaveRepository 

End If

End Sub

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[Gilgamesh99]

Do you have to fix the code if the license is on another server? I tried to run this macro at my job and indicated an error on this line:

licenseSettingAtt1.SetLicense "SPA.prd", "SPA.prd"

that license is available (manually).

 

[ferdo]

Yes.

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[biricio]

Thanks ferdo,
I'd like to activate the SPA license from SHAREABLE PRODUCTS no from 'Licensing' (see attach image).
Is it possible change macro to point to 'Shareable Product?
Thanks

 

[ferdo]

Hi,

Sorry, for the time being I have no CATIA to check...

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[biricio]

Hi Ferdo,
do you have some news?

thanks

 

[rickyt]

Biricio,
Any luck on getting this to work?
I have been unsuccessful trying to get the same thing to work for our Sharable Products.

Thanks

 

[biricio]

No, unfortunately Ferdo has not responded.
I would like to have a button to activate / deactivate a Sharable Products.

Ferdo where are you? We are waiting you.

 

[ferdo]

Hi,

I completely forgot about this topic, I will try to look next days, for the time being I'm participating to some products presentations.

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[itsmyjob]

CATIA doc referes to CATSysLicenseSettingCtrl for Licensing and CATSysDynLicenseSettingCtrlfor shareable product

I let you pout A and B togeteher

Eric N.
indocti discant et ament meminisse periti ​

 

[biricio]

I have tried to put CATSysDynLicenseSettingCtrl instead of CATSysLicenseSettingCtrl...but nothing.
bye

 

[rickyt]

Biricio,
FYI I tried the same, did not work for me.

 

[biricio]

FERDO, do you have any news?
bye

 

[ferdo]

Hi,

For the time being I don't have access to any sharable license so I cannot do any test.

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[biricio]

Hi Ferdo,
we can resume the subject.
Can you do some testing?

I really really need this macro
thanks

 

[garzar]

Do you require that Catia be open for this change to be made?

 

[ferdo]

Hi,

Unfortunately I still don't have access to sharable licenses server...I'm not involved in current design work.

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[rickyt]

Garzar,
I believe that I am looking for the same macro as biricio.
Catia would be open.
Run a macro to select/deselect a sharable license such as step(ST1) or space analysis(SPA).

Thanks,
Rick

 

[garzar]

We done this a number of ways with Catia closed.
I have had no consistent success in doing this with Catia open.