Program

Program.cs

using System;
using System.Collections.Generic;
using System.Text;

namespace RegisterSOE
{
    class Program
    {
        static void Main(string[] args)
        {
            // Must run as an user in the agsadmin group on the SOM
            ESRI.ArcGIS.ADF.Connection.AGS.AGSServerConnection agsServerConnection =
                new ESRI.ArcGIS.ADF.Connection.AGS.AGSServerConnection();
            agsServerConnection.Host = "localhost";
            agsServerConnection.Connect();
            ESRI.ArcGIS.Server.IServerObjectAdmin2 serverObjectAdmin =
                agsServerConnection.ServerObjectAdmin as ESRI.ArcGIS.Server.IServerObjectAdmin2;

            // This name must match those defined for property pages 
            string extensionName = "SpatialQuerySOE";

            // Check command line arguments to see if SOE is to be unregistered
            if (args.Length == 1 && args[0] == "/unregister")
            {
                // Check whether the SOE is registered
                if (ExtensionRegistered(serverObjectAdmin, extensionName))
                {
                    // Delete the SOE
                    serverObjectAdmin.DeleteExtensionType("MapServer", extensionName);
                    Console.WriteLine(extensionName + " successfully unregistered");
                }
                else
                    Console.WriteLine(extensionName + " is not registered with ArcGIS Server");
            }
            else
            {
                // Check whether the SOE is registered
                if (!ExtensionRegistered(serverObjectAdmin, extensionName))
                {
                    ESRI.ArcGIS.Server.IServerObjectExtensionType2 serverObjectExtensionType = 
                        serverObjectAdmin.CreateExtensionType() as ESRI.ArcGIS.Server.IServerObjectExtensionType2;

                    // Must match the namespace and class name of the class implementing IServerObjectExtension
                    serverObjectExtensionType.CLSID = "SpatialQuerySOE.Extension";
                    serverObjectExtensionType.Description = "Spatial Query Server Object Extension";
                    serverObjectExtensionType.Name = extensionName;
                    
                    // Name that will be shown in the capabilities list on property pages
                    serverObjectExtensionType.DisplayName = "Spatial Query";

                    // Register the SOE with the server
                    serverObjectAdmin.AddExtensionType("MapServer", serverObjectExtensionType);

                    Console.WriteLine(extensionName + " successfully registered with ArcGIS Server");
                }
                else
                    Console.WriteLine(extensionName + " is already registered with ArcGIS Server");
            }

            Console.ReadLine();
        }

        // Checks whether an extension with the passed-in name is already registered with the passed-in server
        static private bool ExtensionRegistered(ESRI.ArcGIS.Server.IServerObjectAdmin2 serverObjectAdmin, string extensionName)
        {
            // Get the extensions that extend MapServer server objects
            ESRI.ArcGIS.Server.IEnumServerObjectExtensionType extensionTypes = serverObjectAdmin.GetExtensionTypes("MapServer");
            extensionTypes.Reset();

            // If an extension with a name matching that passed-in is found, return true
            ESRI.ArcGIS.Server.IServerObjectExtensionType extensionType = extensionTypes.Next();
            while (extensionType != null)
            {
                if (extensionType.Name == extensionName)
                    return true;

                extensionType = extensionTypes.Next();
            }

            // No matching extension was found, so return false
            return false;
        }
    }
}

Program.vb

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Text

Namespace RegisterSOE_VBNet
  Friend Class Program
    Shared Sub Main(ByVal args() As String)
      ' Must run as an user in the agsadmin group on the SOM
      Dim agsServerConnection As New ESRI.ArcGIS.ADF.Connection.AGS.AGSServerConnection()
      agsServerConnection.Host = "localhost"
      agsServerConnection.Connect()
      Dim serverObjectAdmin As ESRI.ArcGIS.Server.IServerObjectAdmin2 = TryCast(agsServerConnection.ServerObjectAdmin, ESRI.ArcGIS.Server.IServerObjectAdmin2)

      ' This name must match those defined for property pages 
      Dim extensionName As String = "SpatialQuerySOE_VBNet"

      ' Check command line arguments to see if SOE is to be unregistered
      If args.Length = 1 AndAlso args(0) = "/unregister" Then
        ' Check whether the SOE is registered
        If ExtensionRegistered(serverObjectAdmin, extensionName) Then
          ' Delete the SOE
          serverObjectAdmin.DeleteExtensionType("MapServer", extensionName)
          Console.WriteLine(extensionName & " successfully unregistered")
        Else
          Console.WriteLine(extensionName & " is not registered with ArcGIS Server")
        End If
      Else
        ' Check whether the SOE is registered
        If (Not ExtensionRegistered(serverObjectAdmin, extensionName)) Then
          Dim serverObjectExtensionType As ESRI.ArcGIS.Server.IServerObjectExtensionType2 = TryCast(serverObjectAdmin.CreateExtensionType(), ESRI.ArcGIS.Server.IServerObjectExtensionType2)

          ' Must match the namespace and class name of the class implementing IServerObjectExtension
          serverObjectExtensionType.CLSID = "SpatialQuerySOE_VBNet.Extension"
          serverObjectExtensionType.Description = "Spatial Query Server Object Extension (VBNet)"
          serverObjectExtensionType.Name = extensionName

          ' Name that will be shown in the capabilities list on property pages
          serverObjectExtensionType.DisplayName = "Spatial Query VBNet"

          ' Register the SOE with the server
          serverObjectAdmin.AddExtensionType("MapServer", serverObjectExtensionType)

          Console.WriteLine(extensionName & " successfully registered with ArcGIS Server")
        Else
          Console.WriteLine(extensionName & " is already registered with ArcGIS Server")
        End If
      End If

      Console.ReadLine()
    End Sub

    ' Checks whether an extension with the passed-in name is already registered with the passed-in server
    Private Shared Function ExtensionRegistered(ByVal serverObjectAdmin As ESRI.ArcGIS.Server.IServerObjectAdmin2, ByVal extensionName As String) As Boolean
      ' Get the extensions that extend MapServer server objects
      Dim extensionTypes As ESRI.ArcGIS.Server.IEnumServerObjectExtensionType = serverObjectAdmin.GetExtensionTypes("MapServer")
      extensionTypes.Reset()

      ' If an extension with a name matching that passed-in is found, return true
      Dim extensionType As ESRI.ArcGIS.Server.IServerObjectExtensionType = extensionTypes.Next()
      Do While extensionType IsNot Nothing
        If extensionType.Name = extensionName Then
          Return True
        End If

        extensionType = extensionTypes.Next()
      Loop

      ' No matching extension was found, so return false
      Return False
    End Function
  End Class
End Namespace