Schneider Electric GIS Tech Support

With the Fiber Manager License being an ESRI Extension license, the ability to share that license becomes cumbersome. As a result, I have some vba code that will both open the Fiber Manager toolbar and activate a license (if available) and then release the license when the toolbar is closed.

Private Sub FiberManager_Click()

'Find Fiber Manager Toolbar
Dim uFiberManager_ToolBar As New UID
uFiberManager_ToolBar = "{7F877449-0F7F-4B69-AA3A-68101CC57E36}"
Dim pFiberManager As ICommandBar
Set pMxDocument = ThisDocument
Set pFiberManager = ThisDocument.CommandBars.Find(uFiberManager_ToolBar)

'Find Fiber Manager Extension License
Dim pLicAdmin As IExtensionManagerAdmin
Set pLicAdmin = New ExtensionManager
' Enable the license
Dim pLicManager As IExtensionManager
Set pLicManager = pLicAdmin
Dim pExtensionConfig As IExtensionConfig
Set pExtensionConfig = pLicManager.FindExtension("Fiber Manager")

'Open Toolbar and Activate License
If pFiberManager.IsVisible = False Then
pFiberManager.Dock esriDockFloat
pExtensionConfig.State = esriESEnabled
Else
pFiberManager.Dock esriDockHide
pExtensionConfig.State = esriESDisabled
End If

End Sub