Display Product License And Extensions Information Snippet

/// <summary>
/// Displays the name of the product license used to initialize the application and
/// the names of any extension licenses currently checked out by the application.
/// </summary>
/// <remarks>If the ArcObjects application is not initialized an exception will be thrown and error message displayed.</remarks>
public void DisplayProductLicenseAndExtensionsInformation()
{

  //Create an AOInitialize object
  ESRI.ArcGIS.esriSystem.IAoInitialize aoInitialize=new ESRI.ArcGIS.esriSystem.AoInitializeClass();

  ESRI.ArcGIS.esriSystem.ILicenseInformation licenseInformation=(ESRI.ArcGIS.esriSystem.ILicenseInformation)aoInitialize; // Explict Cast

  System.String string_Licenses=null;

  try
  {

        ESRI.ArcGIS.esriSystem.esriLicenseProductCode licenseProductCode=aoInitialize.InitializedProduct();
        System.String string_LicenseProductName=licenseInformation.GetLicenseProductName(licenseProductCode);

        //Get the name of the application's initialized product
        string_Licenses="This application is initialized with the following product license:" + System.Environment.NewLine + string_LicenseProductName + System.Environment.NewLine + "This application has the following extension licenses checked out:";

        //Get the extension enumerator for the initialized product
        ESRI.ArcGIS.esriSystem.ILicenseInfoEnum licenseInfoEnum=licenseInformation.GetProductExtensions(licenseProductCode);

        //Reset the enumerator
        licenseInfoEnum.Reset();

        //Get the next extension code
        ESRI.ArcGIS.esriSystem.esriLicenseExtensionCode licenseExtensionCode=licenseInfoEnum.Next();

        //Loop through the extension codes
        while ( ! (System.Convert.ToInt32(licenseExtensionCode) == -1))
        {

          //Get the name of the extension if it checked out
          if (aoInitialize.IsExtensionCheckedOut(licenseExtensionCode) == true)
          {

                System.String string_LicenseExtensionName=licenseInformation.GetLicenseExtensionName(licenseExtensionCode);
                string_Licenses=string_Licenses + System.Environment.NewLine + string_LicenseExtensionName;

          }

          //Get the next extension code
          licenseExtensionCode=licenseInfoEnum.Next();

        }

        System.Windows.Forms.MessageBox.Show(string_Licenses);

  }
  catch (System.Exception ex)
  {

        System.Windows.Forms.MessageBox.Show(ex.ToString());

  }

}

''' <summary>
''' Displays the name of the product license used to initialize the application and
''' the names of any extension licenses currently checked out by the application.
''' </summary>
''' <remarks>If the ArcObjects application is not initialized an exception will be thrown and error message displayed.</remarks>
Public Sub DisplayProductLicenseAndExtensionsInformation()

  'Create an AOInitialize object
  Dim aoInitialize As ESRI.ArcGIS.esriSystem.IAoInitialize=New ESRI.ArcGIS.esriSystem.AoInitializeClass

  Dim licenseInformation As ESRI.ArcGIS.esriSystem.ILicenseInformation=CType(aoInitialize, ESRI.ArcGIS.esriSystem.ILicenseInformation) ' Explict Cast

  Dim string_Licenses As System.String=Nothing

  Try

    Dim licenseProductCode As ESRI.ArcGIS.esriSystem.esriLicenseProductCode=aoInitialize.InitializedProduct
    Dim string_LicenseProductName As System.String=licenseInformation.GetLicenseProductName(licenseProductCode)

    'Get the name of the application's initialized product
    string_Licenses="This application is initialized with the following product license:" _
    + System.Environment.NewLine + string_LicenseProductName _
    + System.Environment.NewLine + "This application has the following extension licenses checked out:"

    'Get the extension enumerator for the initialized product
    Dim licenseInfoEnum As ESRI.ArcGIS.esriSystem.ILicenseInfoEnum=licenseInformation.GetProductExtensions(licenseProductCode)

    'Reset the enumerator
    licenseInfoEnum.Reset()

    'Get the next extension code
    Dim licenseExtensionCode As ESRI.ArcGIS.esriSystem.esriLicenseExtensionCode=licenseInfoEnum.Next

    'Loop through the extension codes
    Do Until System.Convert.ToInt32(licenseExtensionCode)=-1

      'Get the name of the extension if it checked out
      If aoInitialize.IsExtensionCheckedOut(licenseExtensionCode)=True Then

        Dim string_LicenseExtensionName As System.String=licenseInformation.GetLicenseExtensionName(licenseExtensionCode)
          string_Licenses=string_Licenses + System.Environment.NewLine + string_LicenseExtensionName

      End If

      'Get the next extension code
      licenseExtensionCode=licenseInfoEnum.Next

    Loop

    System.Windows.Forms.MessageBox.Show(string_Licenses)

  Catch ex As System.Exception
    System.Windows.Forms.MessageBox.Show(ex.ToString)
  End Try

End Sub