Le portail francophone de la géomatique

Public Function verif_licence_SpatialAnalyst() As Boolean
' Récupérer l'UID de Spatial Analyst
Dim pUID As UID
Set pUID = New UID
pUID.Value = "esriCore.SAExtension.1"
' Ajouter l'extension spatialAnalyst au gestionnaire de licence
Dim v As Variant
Dim pLicAdmin As IExtensionManagerAdmin
Set pLicAdmin = New ExtensionManager
pLicAdmin.AddExtension pUID, v
' Activer the license
Dim pLicManager As IExtensionManager
Set pLicManager = pLicAdmin
Dim pExtensionConfig As IExtensionConfig
Set pExtensionConfig = pLicManager.FindExtension(pUID)
'On vérifie si on dispose de la licence
If Not pExtensionConfig.State = esriESUnavailable Then
    pExtensionConfig.State = esriESEnabled
    verif_licence_SpatialAnalyst = True
Else
    verif_licence_SpatialAnalyst = False
End If
End Function