Consuming a geoprocessing model tool in .NET

using System;
using ESRI.ArcGIS.esriSystem;
using ESRI.ArcGIS.Geoprocessing;


namespace GeoprocessingInDotNet
{
    class Program
    {
        private static LicenseInitializer m_AOLicenseInitializer = new
            GeoprocessingInDotNet.LicenseInitializer();
        [STAThread()] static void Main(string[] args)
        {
            //ESRI License Initializer generated code.
            m_AOLicenseInitializer.InitializeApplication(new esriLicenseProductCode[]
            {
                esriLicenseProductCode.esriLicenseProductCodeArcInfo
            }
            , new esriLicenseExtensionCode[]{}
            );

            // .... your code here.

            //ESRI License Initializer generated code.
            //Do not make any call to ArcObjects after ShutDownApplication().
            m_AOLicenseInitializer.ShutdownApplication();
        }
    }
}

Imports ESRI.ArcGIS.esriSystem
Imports ESRI.ArcGIS.Geoprocessing;


Module Module1

Private m_AOLicenseInitializer As LicenseInitializer = New WalkthroughVBNet.LicenseInitializer()
<STAThread()> _
           Sub Main()
    'ESRI License Initializer generated code.
    m_AOLicenseInitializer.InitializeApplication(New esriLicenseProductCode() {esriLicenseProductCode.esriLicenseProductCodeArcInfo}, _
                                                 New esriLicenseExtensionCode() {})
    
    ' ... your code here.
    
    'ESRI License Initializer generated code.
    'Do not make any call to ArcObjects after ShutDownApplication().
    m_AOLicenseInitializer.ShutdownApplication()
End Sub

End Module

// Load the product code and version to the version manager.
//
ESRI.ArcGIS.RuntimeManager.Bind(ESRI.ArcGIS.ProductCode.Desktop);

' Load the product code and version to the version manager.
'
ESRI.ArcGIS.RuntimeManager.Bind(ESRI.ArcGIS.ProductCode.Desktop)

using System;
using ESRI.ArcGIS.esriSystem;
using ESRI.ArcGIS.Geoprocessing;

namespace GeoprocessingInDotNet2008
{
    class Program
    {
        private static LicenseInitializer m_AOLicenseInitializer = new
            GeoprocessingInDotNet2008.LicenseInitializer();
        [STAThread()] static void Main(string[] args)
        {

            // Load the product code and version to the version manager.
            ESRI.ArcGIS.RuntimeManager.Bind(ESRI.ArcGIS.ProductCode.Desktop);

            //ESRI License Initializer generated code.
            m_AOLicenseInitializer.InitializeApplication(new esriLicenseProductCode[]
            {
                esriLicenseProductCode.esriLicenseProductCodeArcInfo
            }
            , new esriLicenseExtensionCode[]{}
            );

            // Create geoprocessor. Overwrite true will replace existing output.
            IGeoProcessor2 gp = new GeoProcessorClass();
            gp.OverwriteOutput = true;

            // Get the workspace from the user.
            Console.WriteLine(
                "Enter the path to folder where you copied the data folder.");
            Console.WriteLine("Example: C:\\AirportsAndGolf\\data");
            Console.Write(">");
            string wks = Console.ReadLine();

            // Set the workspace to the value the user entered.
            gp.SetEnvironmentValue("workspace", wks + "\\" + "golf.gdb");

            // Add the custom toolbox to the geoprocessor.
            gp.AddToolbox(wks + "\\" + "Find Golf Courses.tbx");

            // Create a variant. Data is in the workspace.
            IVariantArray parameters = new VarArrayClass();
            parameters.Add("Airports");
            parameters.Add("8 Miles");
            parameters.Add("Golf");
            parameters.Add("GolfNearAirports");

            object sev = null;

            try
            {
                gp.Execute("GolfFinder", parameters, null);
                Console.WriteLine(gp.GetMessages(ref sev));
            }
            catch (Exception ex)
            {
                Console.WriteLine(ex.Message);
                string errorMsgs = gp.GetMessages(ref sev);
                Console.WriteLine(errorMsgs);
            }
            finally
            {
                Console.WriteLine("Hit Enter to quit");
                Console.ReadLine(); // Pause the console to view messages.
            }

            //ESRI License Initializer generated code.
            //Do not make any call to ArcObjects after ShutDownApplication().
            m_AOLicenseInitializer.ShutdownApplication();

        }
    }
}

Imports ESRI.ArcGIS.esriSystem
Imports ESRI.ArcGIS.Geoprocessing
Module Module1
Private m_AOLicenseInitializer As LicenseInitializer = New GeoprocessingInDotNet2008.LicenseInitializer()
<STAThread()> _
           Sub Main()
    
    ' Load the product code and version to the version manager.
    ESRI.ArcGIS.RuntimeManager.Bind(ESRI.ArcGIS.ProductCode.Desktop)
    
    'ESRI License Initializer generated code.
    m_AOLicenseInitializer.InitializeApplication(New esriLicenseProductCode() {esriLicenseProductCode.esriLicenseProductCodeArcInfo}, _
                                                 New esriLicenseExtensionCode() {})
    
    ' Create geoprocessor. Overwrite true will replace existing output.
    Dim gp As IGeoProcessor2 = New GeoProcessor()
    gp.OverwriteOutput = True
    
    ' Get the workspace from the user.
    Console.WriteLine("Enter the path to folder where you copied the data folder.")
    Console.WriteLine("Example: C:\\AirportsAndGolf\\data")
    Console.Write(">")
    Dim wks As String = Console.ReadLine()
    
    ' Set the workspace to the value the user entered.
    gp.SetEnvironmentValue("workspace", wks + "\golf.gdb")
    
    ' Add the custom toolbox to the geoprocessor.
    gp.AddToolbox(wks + "\Find Golf Courses.tbx")
    
    ' Create a variant. Data is in the workspace.
    Dim parameters As IVariantArray = New VarArray()
    parameters.Add("Airports")
    parameters.Add("8 Miles")
    parameters.Add("Golf")
    parameters.Add("GolfNearAirports")
    
    Dim sev As Object = Nothing
    
    Try
    gp.Execute("GolfFinder", parameters, Nothing)
    Console.WriteLine(gp.GetMessages(sev))
    Catch ex As Exception
    Console.WriteLine(ex.Message)
    Dim errorMsgs As String = gp.GetMessages(sev)
    Console.WriteLine(errorMsgs)
    Finally
    Console.WriteLine("Hit Enter to quit")
    Console.ReadLine() ' Pause the console to view messages.
    End Try
    
    'ESRI License Initializer generated code.
    'Do not make any call to ArcObjects after ShutDownApplication().
    m_AOLicenseInitializer.ShutdownApplication()
    
End Sub

End Module