Geoprocessing services

public static void GPServer_Example()
{
    IServerContext serverContext = null;
    try
    {
        GISServerConnection serverConnection = new GISServerConnection();
        serverConnection.Connect("LocalHost");
        IServerObjectManager serverManager = serverConnection.ServerObjectManager;
        serverContext = serverManager.CreateServerContext("BufferTools", "GPServer");
        IGPServer gpServer = null;
        gpServer = serverContext.ServerObject as IGPServer;
        IGPServer gpserver = (IGPServer)serverContext.ServerObject;
        string taskname = "BufferPoints";
        IGPToolInfo task = gpserver.GetToolInfo(taskname);
        IGPValues taskvals = (IGPValues)serverContext.CreateObject(
            "esriGeoprocessing.GPValues");
        IGPParameterInfos paramInfos = task.ParameterInfo;
        IGPParameterInfo paramInfo;
        string parameterNameString = string.Empty;
        for (int i = 0; i < paramInfos.Count; i++)
        {
            // Data type available as part of IGPParameterInfo
            paramInfo = paramInfos.get_Element(i);
            taskvals.Add(paramInfo.Value);
            //Add to parameter name array
            parameterNameString += paramInfo.Name;
            if (i != paramInfos.Count - 1)
                parameterNameString += ";";
        }
        IGPRecordSet gprecset = (IGPRecordSet)taskvals.get_Element(0);
        IQueryFilter qf = (IQueryFilter)serverContext.CreateObject(
            "esriGeodatabase.QueryFilter");
        gprecset.RecordSet.Table.DeleteSearchedRows(qf);
        IRecordSet rs = gprecset.RecordSet;
        IFields flds = rs.Fields;
        int shpfldindex = flds.FindField("Shape");
        IField fld = flds.get_Field(shpfldindex);
        ISpatialReference inputsr = fld.GeometryDef.SpatialReference;
        IRecordSetInit rsi = (IRecordSetInit)rs;
        ICursor cur = rsi.Insert();
        IRowBuffer rb = rsi.CreateRowBuffer();
        IPoint ipnt = (IPoint)serverContext.CreateObject("esriGeometry.Point");
        ipnt.PutCoords(1000000, 1000000);
        rb.set_Value(shpfldindex, ipnt);
        cur.InsertRow(rb);
        IGPValues invals = (IGPValues)serverContext.CreateObject(
            "esriGeoprocessing.GPValues");
        invals.Add((IGPValue)gprecset);
        IGPLinearUnit gpLU = (IGPLinearUnit)serverContext.CreateObject(
            "esriGeoprocessing.GPLinearUnit");
        gpLU.Units = ESRI.ArcGIS.esriSystem.esriUnits.esriMeters;
        gpLU.Value = 1000000;
        invals.Add((IGPValue)gpLU);
        string JobID = gpserver.SubmitJob(taskname, invals);
        while (gpserver.GetJobStatus(JobID) != esriJobStatus.esriJobSucceeded)
        {
            System.Threading.Thread.Sleep(5000);
        }
        IStringArray stringArray = (IStringArray)new
            ESRI.ArcGIS.esriSystem.StrArrayClass();
        foreach (string paramName in parameterNameString.Split(';'))
        {
            stringArray.Add(paramName);
        }
        /* GetJobResult(): second parameter can be: 
         * IStringArray of all parameters
         * IStringArray of only output parameters
         * null if you want all output parameters
         */
        IGPResult result = gpserver.GetJobResult(JobID, stringArray, null);
        IJobMessages jobMsgs = result.Messages;
        for (int i = 0; i < jobMsgs.Count; i++)
        {
            Console.WriteLine(jobMsgs.get_Element(i).Description);
        }
    }
    catch (Exception ex)
    {
        System.Diagnostics.Debug.WriteLine(ex.Message);
        System.Diagnostics.Debug.WriteLine(ex.StackTrace);
    }
    finally
    {
        serverContext.ReleaseContext();
    }

Public Shared Sub RunGPServerExample()
Dim serverContext As IServerContext = Nothing
Try
Dim serverConnection As GISServerConnection
serverConnection = New GISServerConnection()
serverConnection.Connect(servername)
Dim serverManager As IServerObjectManager = serverConnection.ServerObjectManager
serverContext = serverManager.CreateServerContext("BufferTools", "GPServer")
Dim gpserver As IGPServer = CType(serverContext.ServerObject, IGPServer)
Dim taskname As String = "BufferPoints"
Dim task As IGPToolInfo = gpserver.GetToolInfo(taskname)
Dim taskvals As IGPValues = CType(serverContext.CreateObject("esriGeoprocessing.GPValues"), IGPValues)
Dim paramInfos As IGPParameterInfos = task.ParameterInfo
Dim paramInfo As IGPParameterInfo
Dim parameterNameString As String = String.Empty
For i As Integer = 0 To paramInfos.Count - 1
    ' Data type available as part of IGPParameterInfo
    paramInfo = paramInfos.Element(i)
    taskvals.Add(paramInfo.Value)
    'Add to parameter name array
    parameterNameString & = paramInfo.Name
    If i <> paramInfos.Count - 1 Then
        parameterNameString & = ";"
    End If
Next i
Dim gprecset As IGPRecordSet = CType(taskvals.Element(0), IGPRecordSet)
Dim qf As IQueryFilter = CType(serverContext.CreateObject("esriGeodatabase.QueryFilter"), IQueryFilter)
gprecset.RecordSet.Table.DeleteSearchedRows(qf)
Dim rs As IRecordSet = gprecset.RecordSet
Dim flds As IFields = rs.Fields
Dim shpfldindex As Integer = flds.FindField("Shape")
Dim fld As IField = flds.Field(shpfldindex)
Dim inputsr As ISpatialReference = fld.GeometryDef.SpatialReference
Dim rsi As IRecordSetInit = CType(rs, IRecordSetInit)
Dim cur As ICursor = rsi.Insert()
Dim rb As IRowBuffer = rsi.CreateRowBuffer()
Dim ipnt As IPoint = CType(serverContext.CreateObject("esriGeometry.Point"), IPoint)
ipnt.PutCoords(1000000, 1000000)
rb.Value(shpfldindex) = ipnt
cur.InsertRow(rb)
Dim invals As IGPValues = CType(serverContext.CreateObject("esriGeoprocessing.GPValues"), IGPValues)
invals.Add(CType(gprecset, IGPValue))
Dim gpLU As IGPLinearUnit = CType(serverContext.CreateObject("esriGeoprocessing.GPLinearUnit"), IGPLinearUnit)
gpLU.Units = ESRI.ArcGIS.esriSystem.esriUnits.esriMeters
gpLU.Value = 1000000
invals.Add(CType(gpLU, IGPValue))
Dim JobID As String = gpserver.SubmitJob(taskname, invals)
Do While gpserver.GetJobStatus(JobID) <> esriJobStatus.esriJobSucceeded
    System.Threading.Thread.Sleep(5000)
Loop
Dim stringArray As IStringArray = CType(New ESRI.ArcGIS.esriSystem.StrArrayClass(), IStringArray)
For Each paramName As String In parameterNameString.Split(";"c)
    stringArray.Add(paramName)
Next paramName

'The resultant featureclass gets generated in folder uner <C:\arcgisserver\arcgisJobs\<abd9930839dg9330123
Dim result As IGPResult = gpserver.GetJobResult(JobID, stringArray, Nothing)
If result.Messages IsNot Nothing Then
    Dim jobMsgs As IJobMessages = result.Messages
    For i As Integer = 0 To jobMsgs.Count - 1
        Console.WriteLine(jobMsgs.Element(i).Description)
    Next i
End If
Catch ex As Exception
System.Diagnostics.Debug.WriteLine(ex.Message)
System.Diagnostics.Debug.WriteLine(ex.StackTrace)
Finally
serverContext.ReleaseContext()
End Try
End Sub