关于空间分析许可的问题

<P>我在打开空间分析功能模块时</P>
<P>'开启空间分析模块<BR>Public Function CheckOutSpatialAnalystLicense() As Boolean<BR>    Dim pExtmanager As IExtensionManagerAdmin<BR>    Set pExtmanager = New ExtensionManager<BR>    Dim OBJID As New esriSystem.UID<BR>    OBJID = "esriGeoAnalyst.SAExtension.1"<BR>    Dim v As Variant<BR>    pExtmanager.AddExtension OBJID, v<BR>    Dim pEM As IExtensionManager<BR>    Set pEM = pExtmanager<BR>    Dim pEC As IExtensionConfig<BR>    Set pEC = pEM.FindExtension(OBJID)<BR>     pEC.State = esriESEnabled<BR>    CheckOutSpatialAnalystLicense = (pEC.State = esriESEnabled)<BR>End Function<BR>时 执行</P>
<P>  pEC.State = esriESEnabled</P>
<P>出现报错 "当前无可用的空间分析许可"</P>

希望遇到此问题的朋友能讨论帮忙!