Server

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect("myServer")

Dim serverObjectManager As IServerObjectManager = gisServerConnection.ServerObjectManager
Dim enumConfigInfo As IEnumServerObjectConfigurationInfo = serverObjectManager.GetConfigurationInfos

Dim configInfo As IServerObjectConfigurationInfo = enumConfigInfo.Next

Do Until configInfo Is Nothing
    Debug.Print (configInfo.Name & ": " & configInfo.TypeName)
    configInfo = enumConfigInfo.Next()
Loop

IGISServerConnection connection = new GISServerConnection();
connection.Connect("myServer");

IServerObjectManager serverObjectManager = connection.ServerObjectManager;
IEnumServerObjectConfigurationInfo enumConfigInfo =
    serverObjectManager.GetConfigurationInfos();

IServerObjectConfigurationInfo configInfo = enumConfigInfo.Next();

while (configInfo != null)
{
    Debug.Print(configInfo.Name + ": " + configInfo.TypeName);
    configInfo = enumConfigInfo.Next();
}

string userName = "John";
string roles = "Planner,Editor";
string userInfo = userName + ";" + roles;
string serverName = "myServer";

IGISServerConnection2 connection2 = new GISServerConnection();
connection2.Connect2(userInfo, serverName);
IServerObjectManager som = connection2.ServerObjectManager;

// Note: Attempts to call CreateServerContext through the SOM on a server object 
// configuration (GIS service) for which the specified roles (Planner, Editor) do not 
// have access will result in an Access Denied error.

string roles = "Planner,Editor";
string serverName = "myServer";
string resourceName = "Countries/USA.MapServer";
string operation = "*";

IGISServerConnection connection = new GISServerConnection();
connection.Connect(serverName);

IServerObjectManager som = connection.ServerObjectManager;
IPermissionsManager permissionsManager = (IPermissionsManager)som;

if (permissionsManager.CheckPermission(roles, resourceName, operation))
{
    Debug.Print("Access Allowed.");
}

else
{
    Debug.Print("Access Denied. The " + resourceName + 
        " resource does not allow the " + operation + " operation for the " + roles 
        + "  role(s).");
}

string serverName = "myServer";
string roles = "Planners,Editors";
string resourceName = "Countries/USA.MapServer";
string operation = "*";

IGISServerConnection connection = new GISServerConnection();
connection.Connect(serverName);

IServerObjectAdmin4 soa = (IServerObjectAdmin4)connection.ServerObjectAdmin;
IPermissionsAdmin permissionsAdmin = (IPermissionsAdmin)soa;

// Allow roles all operations on resourceName.
permissionsAdmin.AllowPermission(roles, resourceName, operation);

// Enable role-based security on the serverName server.
permissionsAdmin.IsSecurityEnabled = true;

Dim connection As IGISServerConnection = New GISServerConnectionClass()
connection.Connect("server_name")

Dim som As IServerObjectManager2 = TryCast(connection.ServerObjectManager, IServerObjectManager2)
Dim props As IPropertySet = som.SystemInfo

Dim objkeys As Object
Dim objvalues As Object
Dim Keys As String()
Dim vals As Object()
props.GetAllProperties(objkeys, objvalues)
Keys = CType(objkeys, String())
vals = CType(objvalues, Object())

For i As Integer = 0 To props.Count - 1
    Console.WriteLine(Keys(i) & ": " & vals(i))
Next i

IGISServerConnection connection = new GISServerConnectionClass();
connection.Connect("server_name");

IServerObjectManager2 som = connection.ServerObjectManager as IServerObjectManager2;
IPropertySet props = som.SystemInfo;

object objkeys = null;
object objvalues = null;
string[] keys = null;
object[] vals = null;
props.GetAllProperties(out objkeys, out objvalues);
keys = (string[])objkeys;
vals = (object[])objvalues;

for (int i = 0; i < props.Count; i++)
{
    Console.WriteLine(keys[i] + ": " + vals[i]);
}

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect("myServer")

Dim serverObjectManager As IServerObjectManager = gisServerConnection.ServerObjectManager
Dim serverContext As IServerContext = serverObjectManager.CreateServerContext("RedlandsMap", "MapServer")
Dim serverObject As IServerObject = serverContext.ServerObject
Dim mapServer As IMapServer = TryCast(serverObject, IMapServer)

Debug.Print mapServer.DefaultMapName
serverContext.ReleaseContext()

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");

IServerObjectManager serverObjectManager = gisServerConnection.ServerObjectManager;
IServerContext serverContext = serverObjectManager.CreateServerContext("RedlandsMap",
    "MapServer");
IServerObject serverObject = serverContext.ServerObject;
IMapServer mapServer = serverObject as IMapServer;

Debug.Print(mapServer.DefaultMapName);
serverContext.ReleaseContext();

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect("myServer")
Dim serverObjectManager As IServerObjectManager
serverObjectManager = gisServerConnection.ServerObjectManager
Dim serverContext As IServerContext = serverObjectManager.CreateServerContext(String.Empty, String.Empty)
' Create a new polygon in the server context.
Dim pointColl As IPointCollection = CType(serverContext.CreateObject("esriGeometry.Polygon"), IPointCollection)
' Create the points in the server context.
Dim point(4) As IPoint
Dim i As Integer
For i = 0 To 3
    point(i) = CType(serverContext.CreateObject("esriGeometry.Point"), IPoint)
Next
point(0).PutCoords(0, 0)
point(1).PutCoords(10, 0)
point(2).PutCoords(10, 10)
point(3).PutCoords(0, 10)
'Add the points to the polygon.
pointColl.AddPoints(4, point(0))
Dim area As IArea = TryCast(pointColl, IArea)
Debug.Print(CStr(area.Area))
serverContext.ReleaseContext()

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");

IServerObjectManager serverObjectManager = null;
serverObjectManager = gisServerConnection.ServerObjectManager;
IServerContext serverContext = serverObjectManager.CreateServerContext(string.Empty,
    string.Empty);

// Create a new polygon in the server context.
IPointCollection pointColl = (IPointCollection)(serverContext.CreateObject(
    "esriGeometry.Polygon"));

// Create the points in the server context.
IPoint[] point = new IPoint[5];
int i = 0;
for (i = 0; i <= 3; i++)
{
    point[i] = (IPoint)(serverContext.CreateObject("esriGeometry.Point"));
}

point[0].PutCoords(0, 0);
point[1].PutCoords(10, 0);
point[2].PutCoords(10, 10);
point[3].PutCoords(0, 10);

//Add the points to the polygon.
pointColl.AddPoints(4, ref point[0]);
IArea area = pointColl as IArea;
Debug.Print(System.Convert.ToString(area.Area));
serverContext.ReleaseContext();

Dim serverContext As IServerContext = serverObjectManager.CreateServerContext("RedlandsMap", "MapServer")
Dim mapServer As IMapServer = serverContext.ServerObject

IServerContext serverContext = serverObjectManager.CreateServerContext("RedlandsMap",
    "MapServer");
IMapServer mapServer = serverContext.ServerObject;

Dim serverContext As IServerContext = serverObjectManager.CreateServerContext(String.Empty, String.Empty)
Dim workspaceFactory As IWorkspaceFactory = serverContext.CreateObject("esriDataSourcesGDB.SdeWorkspaceFactory")

IServerContext serverContext = serverObjectManager.CreateServerContext(string.Empty,
    string.Empty);
IWorkspaceFactory workspaceFactory = serverContext.CreateObject(
    "esriDataSourcesGDB.SdeWorkspaceFactory");

Dim point As IPoint = New Point()

IPoint point = new Point();

Dim point As IPoint = serverContext.CreateObject("esriGeometry.Point")

IPoint point = serverContext.CreateObject("esriGeometry.Point");

Dim serverContext As IServerContext = serverObjectManager.CreateServerContext("RedlandsMap", "MapServer")
Dim mapServer As IMapServer = serverContext.ServerObject
' Do something with the object.
serverContext.ReleaseContext()

IServerContext serverContext = serverObjectManager.CreateServerContext("RedlandsMap",
    "MapServer");
IMapServer mapServer = serverContext.ServerObject;
// Do something with the object.
serverContext.ReleaseContext();

Dim pointCollection As IPointCollection = serverContext.CreateObject("esriGeometry.Polygon")

IPointCollection pointCollection = serverContext.CreateObject("esriGeometry.Polygon")
    ;

Dim pointCollection As IPointCollection = serverContext.CreateObject("esriGeometry.Polygon")
Dim point As IPoint = serverContext.CreateObject("esriGeometry.Point")
point.X = 1
point.Y = 1
pointCollection.AddPoint (point)

IPointCollection pointCollection = serverContext.CreateObject("esriGeometry.Polygon")
    ;
IPoint point = serverContext.CreateObject("esriGeometry.Point");
point.X = 1;
point.Y = 1;
pointCollection.AddPoint(point);

Dim remotePoint As IPoint = serverContext.CreateObject("esriGeometry.Point")

IPoint remotePoint = serverContext.CreateObject("esriGeometry.Point");

Dim localPoint As IPoint = New Point()

IPoint localPoint = New Point();

' This is incorrect:
localPoint = remotePoint

' This is also incorrect:
localElement.Geometry = remotePoint

//This is incorrect:
localPoint = remotePoint;

//This is also incorrect:
localElement.Geometry = remotePoint;

' This is incorrect:
localPoint = remotePointCollection.Point(0)

// This is incorrect:
localPoint = remotePointCollection.Point(0);

' This is incorrect:
remoteWorkspace = remoteWorkspaceFactory.Open(localPropertySet, 0)

// This is incorrect:
remoteWorkspace = remoteWorkspaceFactory.Open(localPropertySet, 0);

' This is acceptable:
localPoint.X = remotePoint.X
localPoint.Y = remotePoint.Y

// This is acceptable:
localPoint.X = remotePoint.X localPoint.Y = remotePoint.Y

Dim pointCollection As IPointCollection = serverContext.CreateObject("esriGeometry.Polygon")
serverContext.SetObject ("myPoly", pointCollection)
Dim poly As IPolygon = serverContext.GetObject("myPoly")

IPointCollection pointCollection = serverContext.CreateObject("esriGeometry.Polygon")
    ;
serverContext.SetObject("myPoly", pointCollection);
IPolygon poly = serverContext.GetObject("myPoly");

serverContext.Remove ("myPoly")

serverContext.Remove("myPoly");

Dim serverContext As IServerContext = SOM.CreateServerContext("RedlandsMap", "MapServer")
Dim serverContext2 As IServerContext = SOM.CreateServerContext("RedlandsGeocode", "GeocodeServer")

Dim gcServer As IGeocodeServer = TryCast(serverContext2.ServerObject, IGeocodeServer)

Dim propertySet As IPropertySet = TryCast(serverContext2.CreateObject("esriSystem.PropertySet"), IPropertySet)

propertySet.SetProperty("Street", "380 New York St")
    Dim results As IPropertySet = gcServer.GeocodeAddress(propertySet, Nothing)
    Dim point As IPoint = TryCast(results.GetProperty("Shape"), IPoint)
    
    ' Copy the point to the MapServer's context.
    Dim stringPoint As String = serverContext2.SaveObject(point)
    Dim pointCopy As IPoint = TryCast(serverContext.LoadObject(stringPoint), IPoint)

IServerContext serverContext = SOM.CreateServerContext("RedlandsMap", "MapServer");
IServerContext serverContext2 = SOM.CreateServerContext("RedlandsGeocode", 
    "GeocodeServer");

IGeocodeServer gcServer = serverContext2.ServerObject as IGeocodeServer;

IPropertySet propertySet = serverContext2.CreateObject("esriSystem.PropertySet")as
    IPropertySet;
propertySet.SetProperty("Street", "380 New York St");
IPropertySet results = gcServer.GeocodeAddress(propertySet, null);
IPoint point = results.GetProperty("Shape")as IPoint;

// Copy the point to the MapServer's context.
string stringPoint = serverContext2.SaveObject(point);
IPoint pointCopy = serverContext.LoadObject(stringPoint)as IPoint;

Dim serverObjectFactory As ServerObjectFactory = New ServerObjectFactory()
Dim serverObject As IServerObject = serverObjectFactory.CreateServerObject("43E4F6B6-7B17-4536-B7CF-C0454EBB0F5A", "SomeMap", "MapServer")
Dim extensionMgr As IServerObjectExtensionManager = CType(serverObject, IServerObjectExtensionManager)
Dim serverObjectExtension As IServerObjectExtension = extensionMgr.FindExtensionByName("MySOE")

' Set a property called PropName to the Value for your server object extension called MySOE.
Dim mySOE As IMySOE = TryCast(soe, IMySOE)
Dim propSet As IPropertySet = New PropertySet()
propSet.SetProperty("PropName", "Value")

Dim objConstruct As IObjectConstruct = TryCast(mySOE, IObjectConstruct)
objConstruct.Construct(propSet)

ServerObjectFactory serverObjectFactory = new ServerObjectFactory();
IServerObject serverObject = serverObjectFactory.CreateServerObject(
    "43E4F6B6-7B17-4536-B7CF-C0454EBB0F5A", "SomeMap", "MapServer");
IServerObjectExtensionManager extensionMgr = serverObject as
    IServerObjectExtensionManager;
IServerObjectExtension serverObjectExtension = extensionMgr.FindExtensionByTypeName(
    "MySOE");

// Set a property called PropName to the Value for your server object extension called MySOE.
IMySOE mySOE = (IMySOE)serverObjectExtension;
IPropertySet propSet = new PropertySet();
propSet.SetProperty("PropName", "Value");

IObjectConstruct objConstruct = mySOE as IObjectConstruct;
objConstruct.Construct(propSet);

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect ("padisha")

Dim SOM As IServerObjectManager = gisServerConnection.ServerObjectManager
Dim context As IServerContext = SOM.CreateServerContext("MyMapServer", "MapServer")
Dim serverObject As IServerObject = context.ServerObject
Dim mapServer As IMapServer = TryCast(serverObject, IMapServer)

' Do something with the MapServer.
context.ReleaseContext()

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("padisha");

IServerObjectManager SOM = gisServerConnection.ServerObjectManager;
IServerContext context = SOM.CreateServerContext("MyMapServer", "MapServer");
IServerObject serverObject = context.ServerObject;
IMapServer mapServer = serverObject as IMapServer;

// Do something with the MapServer.
context.ReleaseContext();

Dim serverContext As IServerContext = SOM.CreateServerContext("usa", "MapServer")
Dim mapServer As IMapServer = CType(serverContext.ServerObject, IMapServer)Dim soExtManager As IServerObjectExtensionManager = TryCast(mapServer, IServerObjectExtensionManager)
Dim soExt As IServerObjectExtension = soExtManager.FindExtensionByTypeName("NAServer")
Dim naServer As INAServer = TryCast(soExt, INAServer)
Dim layers As String() = naServer.GetNALayerNames(esriNAServerLayerType.esriNAServerRouteLayer)
serverContext.ReleaseContext()

IServerContext serverContext = SOM.CreateServerContext("usa", "MapServer");
IMapServer mapServer = (IMapServer)serverContext.ServerObject;
IServerObjectExtensionManager soExtManager = mapServer as
    IServerObjectExtensionManager;
IServerObjectExtension soExt = soExtManager.FindExtensionByTypeName("NAServer");
INAServer naServer = soExt as INAServer;
string[] layers = naServer.GetNALayerNames
    (esriNAServerLayerType.esriNAServerRouteLayer);
serverContext.ReleaseContext();

Dim serverConn As IGISServerConnection = New GISServerConnection()
serverConn.Connect ("padisha")

Dim SOM As IServerObjectManager = serverConn.ServerObjectManager
Dim enumSDirInfo As IEnumServerDirectoryInfo = SOM.GetServerDirectoryInfos
Dim serverDirInfo As IServerDirectoryInfo = enumSDirInfo.Next()

Do Until serverDirInfo Is Nothing
    Debug.Print (serverDirInfo.Path)
    serverDirInfo = enumSDirInfo.Next()
Loop

IGISServerConnection serverConn = new GISServerConnection();
serverConn.Connect("padisha");

IServerObjectManager SOM = serverConn.ServerObjectManager;
IEnumServerDirectoryInfo enumSDirInfo = SOM.GetServerDirectoryInfos();
IServerDirectoryInfo serverDirInfo = enumSDirInfo.Next();

while (serverDirInfo != null)
{
    Debug.Print(serverDirInfo.Path);
    serverDirInfo = enumSDirInfo.Next();
}

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect ("myServer")

Dim SOM As IServerObjectManager = gisServerConnection.ServerObjectManager
Dim enumSOCInfo As IEnumServerObjectConfigurationInfo = SOM.GetConfigurationInfos
Dim socInfo As IServerObjectConfigurationInfo = enumSOCInfo.Next()

Do Until socInfo Is Nothing
    Debug.Print (socInfo.Name & ": " & socInfo.TypeName)
    socInfo = (enumSOCInfo.Next)
Loop

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");

IServerObjectManager SOM = gisServerConnection.ServerObjectManager;
IEnumServerObjectConfigurationInfo enumSOCInfo = SOM.GetConfigurationInfos();
IServerObjectConfigurationInfo socInfo = enumSOCInfo.Next();

while (socInfo != null)
{
    Debug.Print(socInfo.Name + ": " + socInfo.TypeName);
    socInfo = (enumSOCInfo.Next());
}

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect ("myServer")
Dim serverObjectAdmin As IServerObjectAdmin = gisServerConnection.ServerObjectAdmin

' Create the new configuration.
Dim configuration As IServerObjectConfiguration = serverObjectAdmin.CreateConfiguration()
configuration.Name = "California"
configuration.TypeName = "GeocodeServer"

Dim propSet As IPropertySet = configuration.Properties
propSet.SetProperty ("LocatorWorkspacePath", "\\myServer\Geocoding\California")
propSet.SetProperty ("Locator", "California")
propSet.SetProperty ("SuggestedBatchSize", "500")

configuration.IsPooled = True
configuration.MinInstances = 1
configuration.MaxInstances = 1
configuration.WaitTimeout = 10
configuration.UsageTimeout = 120

' Add the configuration to the server.
serverObjectAdmin.AddConfiguration(configuration)

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");
IServerObjectAdmin serverObjectAdmin = gisServerConnection.ServerObjectAdmin;

// Create the new configuration.
IServerObjectConfiguration configuration = serverObjectAdmin.CreateConfiguration();
configuration.Name = "California";
configuration.TypeName = "GeocodeServer";

IPropertySet propSet = configuration.Properties;
propSet.SetProperty("LocatorWorkspacePath", "\\\\myServer\\Geocoding\\California");
propSet.SetProperty("Locator", "California");
propSet.SetProperty("SuggestedBatchSize", "500");

configuration.IsPooled = true;
configuration.MinInstances = 1;
configuration.MaxInstances = 1;
configuration.WaitTimeout = 10;
configuration.UsageTimeout = 120;

// Add the configuration to the server.
serverObjectAdmin.AddConfiguration(configuration);

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect("myServer")

Dim serverObjectAdmin As IServerObjectAdmin = gisServerConnection.ServerObjectAdmin
Dim serverConfig As IServerObjectConfiguration = serverObjectAdmin.GetConfiguration("RedlandsMap", "MapServer")
serverConfig.MinInstances = 3
serverObjectAdmin.UpdateConfiguration(serverConfig)

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");

IServerObjectAdmin serverObjectAdmin = gisServerConnection.ServerObjectAdmin;
IServerObjectConfiguration serverConfig = serverObjectAdmin.GetConfiguration(
    "RedlandsMap", "MapServer");
serverConfig.MinInstances = 3;
serverObjectAdmin.UpdateConfiguration(serverConfig);

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect("myServer")

Dim serverObjectAdmin As IServerObjectAdmin = gisServerConnection.ServerObjectAdmin
serverObjectAdmin.StopConfiguration("RedlandsMap", "MapServer")
serverObjectAdmin.DeleteConfiguration("RedlandsMap", "MapServer")

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");

IServerObjectAdmin serverObjectAdmin = gisServerConnection.ServerObjectAdmin;
serverObjectAdmin.StopConfiguration("RedlandsMap", "MapServer");
serverObjectAdmin.DeleteConfiguration("RedlandsMap", "MapServer");

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect ("myServer")

Dim serverObjectAdmin As IServerObjectAdmin = gisServerConnection.ServerObjectAdmin
Dim enumSOC As IEnumServerObjectConfiguration = serverObjectAdmin.GetConfigurations()
Dim SOC As IServerObjectConfiguration = enumSOC.Next()

Do Until SOC Is Nothing
    Debug.Print (SOC.Name & ": " & SOC.TypeName)
    SOC = enumSOC.Next()
Loop

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");

IServerObjectAdmin serverObjectAdmin = gisServerConnection.ServerObjectAdmin;
IEnumServerObjectConfiguration enumSOC = serverObjectAdmin.GetConfigurations();
IServerObjectConfiguration SOC = enumSOC.Next();

while (SOC != null)
{
    Debug.Print(SOC.Name + ": " + SOC.TypeName);
    SOC = enumSOC.Next();
}

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect("myServer")
Dim serverObjectAdmin As IServerObjectAdmin = gisServerConnection.ServerObjectAdmin

' Create the new configuration.
Dim configuration As IServerObjectConfiguration = serverObjectAdmin.CreateConfiguration()
configuration.Name = "California"
configuration.TypeName = "GeocodeServer"

Dim propSet As IPropertySet = configuration.Properties
propSet.SetProperty("LocatorWorkspacePath", "\\myServer\Geocoding\California")
propSet.SetProperty("Locator", "California")
propSet.SetProperty("SuggestedBatchSize", "500")

configuration.IsPooled = True
configuration.MinInstances = 1
configuration.MaxInstances = 1
configuration.WaitTimeout = 10
configuration.UsageTimeout = 120

' Add the configuration to the server.
serverObjectAdmin.AddConfiguration(configuration)

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");
IServerObjectAdmin serverObjectAdmin = gisServerConnection.ServerObjectAdmin;

// Create the new configuration.
IServerObjectConfiguration configuration = serverObjectAdmin.CreateConfiguration();
configuration.Name = "California";
configuration.TypeName = "GeocodeServer";

IPropertySet propSet = configuration.Properties;
propSet.SetProperty("LocatorWorkspacePath", "\\\\myServer\\Geocoding\\California");
propSet.SetProperty("Locator", "California");
propSet.SetProperty("SuggestedBatchSize", "500");

configuration.IsPooled = true;
configuration.MinInstances = 1;
configuration.MaxInstances = 1;
configuration.WaitTimeout = 10;
configuration.UsageTimeout = 120;

// Add the configuration to the server.
serverObjectAdmin.AddConfiguration(configuration);

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect("myServer")
Dim serverObjectAdmin As IServerObjectAdmin = gisServerConnection.ServerObjectAdmin

' Create the new configuration.
Dim configuration As IServerObjectConfiguration = serverObjectAdmin.CreateConfiguration()
configuration.Name = "California"
configuration.TypeName = "GeocodeServer"

Dim propSet As IPropertySet = configuration.Properties
propSet.SetProperty("LocatorWorkspacePath", "\\myServer\Geocoding\California")
propSet.SetProperty("Locator", "California")
propSet.SetProperty("SuggestedBatchSize", "500")

configuration.IsPooled = True
configuration.MinInstances = 1
configuration.MaxInstances = 1
Dim recProps As IPropertySet = configuration.RecycleProperties
recProps.SetProperty("StartTime", "00:00")
recProps.SetProperty("Interval", "3600")

' Add the configuration to the server.
serverObjectAdmin.AddConfiguration(configuration)

' Start the configuration.
serverObjectAdmin.StartConfiguration(configuration.Name, configuration.TypeName)

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");
IServerObjectAdmin serverObjectAdmin = gisServerConnection.ServerObjectAdmin;

// Create the new configuration.
IServerObjectConfiguration configuration = serverObjectAdmin.CreateConfiguration();
configuration.Name = "California";
configuration.TypeName = "GeocodeServer";

IPropertySet propSet = configuration.Properties;
propSet.SetProperty("LocatorWorkspacePath", "\\myServer\\Geocoding\\California");
propSet.SetProperty("Locator", "California");
propSet.SetProperty("SuggestedBatchSize", "500");

configuration.IsPooled = true;
configuration.MinInstances = 1;
configuration.MaxInstances = 1;
IPropertySet recProps = configuration.RecycleProperties;
recProps.SetProperty("StartTime", "00:00");
recProps.SetProperty("Interval", "3600");

// Add the configuration to the server.
serverObjectAdmin.AddConfiguration(configuration);

// Start the configuration.
serverObjectAdmin.StartConfiguration(configuration.Name, configuration.TypeName);

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect ("myServer")

Dim serverObjectAdmin As IServerObjectAdmin = gisServerConnection.ServerObjectAdmin
Dim serverMachine As IServerMachine = serverObjectAdmin.CreateMachine()
serverMachine.Name = "callum"

Dim serverMachine2 As IServerMachine2 = TryCast(serverMachine, IServerMachine2)
serverMachine2.Capacity = 20

serverObjectAdmin.AddMachine (serverMachine)

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");

IServerObjectAdmin serverObjectAdmin = gisServerConnection.ServerObjectAdmin;
IServerMachine serverMachine = serverObjectAdmin.CreateMachine();
serverMachine.Name = "callum";

IServerMachine2 serverMachine2 = serverMachine as IServerMachine2;
serverMachine2.Capacity = 20;

serverObjectAdmin.AddMachine(serverMachine);

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect ("myServer")

Dim serverObjectAdmin As IServerObjectAdmin = gisServerConnection.ServerObjectAdmin
Dim serverDir As IServerDirectory = serverObjectAdmin.CreateServerDirectory()

serverDir.CleaningMode = esriServerDirectoryCleaningMode.esriSDCAbsolute
serverDir.Description = "Default output directory"
serverDir.Path = "\\myServer\serveroutput"
serverDir.URL = "http://myServer/serveroutput"
serverDir.MaxFileAge = 100

serverObjectAdmin.AddServerDirectory (serverDir)

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");

IServerObjectAdmin serverObjectAdmin = gisServerConnection.ServerObjectAdmin;
IServerDirectory serverDir = serverObjectAdmin.CreateServerDirectory();

serverDir.CleaningMode = esriServerDirectoryCleaningMode.esriSDCAbsolute;
serverDir.Description = "Default output directory";
serverDir.Path = "\\myServer\\serveroutput";
serverDir.URL = "http://myServer/serveroutput";
serverDir.MaxFileAge = 100;

serverObjectAdmin.AddServerDirectory(serverDir);

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect ("padisha")

Dim serverObjectAdmin As IServerObjectAdmin = gisServerConnection.ServerObjectAdmin
Dim serverDir As IServerDirectory = serverObjectAdmin.GetServerDirectory("\\myServer\serveroutput")

serverDir.MaxFileAge = 200
serverObjectAdmin.UpdateServerDirectory (serverDir)

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("padisha");

IServerObjectAdmin serverObjectAdmin = gisServerConnection.ServerObjectAdmin;
IServerDirectory serverDir = serverObjectAdmin.GetServerDirectory(
    "\\myServer\\serveroutput");

serverDir.MaxFileAge = 200;
serverObjectAdmin.UpdateServerDirectory(serverDir);

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect ("myServer")

Dim serverObjectAdmin As IServerObjectAdmin = gisServerConnection.ServerObjectAdmin
Dim logProps As IPropertySet = serverObjectAdmin.Properties

logProps.SetProperty ("LogPath", "c:\ServerLogs")
logProps.SetProperty ("LogLevel", 5)

serverObjectAdmin.Properties = logProps

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");

IServerObjectAdmin serverObjectAdmin = gisServerConnection.ServerObjectAdmin;
IPropertySet logProps = serverObjectAdmin.Properties;

logProps.SetProperty("LogPath", "c:\\ServerLogs");
logProps.SetProperty("LogLevel", 5);

serverObjectAdmin.Properties = logProps;

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect ("myServer")

Dim serverStats As IServerStatistics = TryCast(gisServerConnection.ServerObjectAdmin, IServerStatistics)
Dim statsRes As IStatisticsResults = serverStats.GetAllStatisticsForTimeInterval(esriServerStatEvent.esriSSEContextCreated, _
                                     esriServerTimePeriod.esriSTPNone, 0, 1, String.Empty, String.Empty, String.Empty)
Dim serverTR As IServerTimeRange = TryCast(statsRes, IServerTimeRange)

Debug.Print (statsRes.Count & ": " & serverTR.StartTime & " to " & serverTR.EndTime)

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");

IServerStatistics serverStats = gisServerConnection.ServerObjectAdmin as
    IServerStatistics;
IStatisticsResults statsRes = serverStats.GetAllStatisticsForTimeInterval
    (esriServerStatEvent.esriSSEContextCreated, esriServerTimePeriod.esriSTPNone, 0,
    1, string.Empty, string.Empty, string.Empty);

IServerTimeRange serverTR = statsRes as IServerTimeRange;
Debug.Print(statsRes.Count + ": " + serverTR.StartTime + " to " + serverTR.EndTime);

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect ("myServer")

Dim serverStats As IServerStatistics = TryCast(gisServerConnection.ServerObjectAdmin, IServerStatistics)
Dim statsRes As IStatisticsResults = serverStats.GetAllStatisticsForTimeInterval(esriServerStatEvent.esriSSEContextCreated, _
                                     esriServerTimePeriod.esriSTPHour, 0, 2, String.Empty, String.Empty, String.Empty)
Dim serverTR As IServerTimeRange = TryCast(statsRes, IServerTimeRange)

Debug.Print (statsRes.Count & ": " & serverTR.StartTime & " to " & serverTR.EndTime)

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");

IServerStatistics serverStats = gisServerConnection.ServerObjectAdmin as
    IServerStatistics;
IStatisticsResults statsRes = serverStats.GetAllStatisticsForTimeInterval
    (esriServerStatEvent.esriSSEContextCreated, esriServerTimePeriod.esriSTPHour, 0,
    2, string.Empty, string.Empty, string.Empty);
IServerTimeRange serverTR = statsRes as IServerTimeRange;

Debug.Print(statsRes.Count + ": " + serverTR.StartTime + " to " + serverTR.EndTime);

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect ("myServer")

Dim serverStats As IServerStatistics = TryCast(gisServerConnection.ServerObjectAdmin, IServerStatistics)
Dim statsRes As IStatisticsResults = serverStats.GetAllStatisticsForTimeInterval(esriServerStatEvent.esriSSEContextCreated, esriServerTimePeriod.esriSTPNone, 0, 1, "Yellowstone", "MapServer", String.Empty)
Dim serverTR As IServerTimeRange = TryCast(statsRes, IServerTimeRange)

Debug.Print (statsRes.Count & ": " & serverTR.StartTime & " to " & serverTR.EndTime)

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");

IServerStatistics serverStats = gisServerConnection.ServerObjectAdmin as
    IServerStatistics;
IStatisticsResults statsRes = serverStats.GetAllStatisticsForTimeInterval
    (esriServerStatEvent.esriSSEContextCreated, esriServerTimePeriod.esriSTPNone, 0,
    1, "Yellowstone", "MapServer", string.Empty);
IServerTimeRange serverTR = statsRes as IServerTimeRange;

Debug.Print(statsRes.Count + ": " + serverTR.StartTime + " to " + serverTR.EndTime);

Dim gisServerConnection As IGISServerConnection = New GISServerConnection()
gisServerConnection.Connect("myServer")
Dim serverStats As IServerStatistics = TryCast(gisServerConnection.ServerObjectAdmin, IServerStatistics)
Dim dr As IDoubleArray = serverStats.GetSpecificStatisticForTimeIntervals(esriServerStatEvent.esriSSEContextCreated, esriServerStatFunction.esriSSFCount, esriServerTimePeriod.esriSTPMinute, 0, 60, String.Empty, String.Empty, String.Empty)
Dim i As Integer
For i = 0 To dr.Count - 1
    Debug.Print(dr.Element(i).ToString)
Next i

IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("myServer");
IServerStatistics serverStats = gisServerConnection.ServerObjectAdmin as
    IServerStatistics;
IDoubleArray dr = serverStats.GetSpecificStatisticForTimeIntervals
    (esriServerStatEvent.esriSSEContextCreated, esriServerStatFunction.esriSSFCount,
    esriServerTimePeriod.esriSTPMinute, 0, 60, string.Empty, string.Empty,
    string.Empty);
int i = 0;
for (i = 0; i < dr.Count; i++)
{
    Debug.Print(dr.get_Element(i).ToString());
}

Private m_SOH As IServerObjectHelper

Public Sub Init(ByVal SOH As IServerObjectHelper)
    m_SOH = SOH
End Sub

Public Sub Shutdown()
    m_SOH = Nothing
End Sub

private IServerObjectHelper m_SOH;

public void Init(IServerObjectHelper SOH)
{
    m_SOH = SOH;
}

public void Shutdown()
{
    m_SOH = null;
}

Dim mapsrv As IMapServer = TryCast(m_SOH.ServerObject, IMapServer)

IMapServer mapsrv = m_SOH.ServerObject as IMapServer;

Private m_log As ILog

Public Sub InitLogging(ByVal Log As ILog)
    m_log = Log
End Sub

private ILog m_log;
public void InitLogging(ILog log)
{
    m_log = log;
}

m_log.AddMessage(3, 8000, "This is a normal level log message.")
m_log.AddMessage(1, 8000, "This is an error level log message.")

m_log.AddMessage(3, 8000, "This is a normal level log message.");
m_log.AddMessage(1, 8000, "This is an error level log message.");

Dim conn As IGISServerConnection = New GISServerConnectionClass()
conn.Connect("your_server")

Dim SOA2 As IServerObjectAdmin2 = TryCast(conn.ServerObjectAdmin, IServerObjectAdmin2)
Dim serverObjExtensionType As IServerObjectExtensionType = SOA2.CreateExtensionType()

serverObjExtensionType.CLSID = "vegSOE.vegUtilSOE"
serverObjExtensionType.Description = "test server obj extension"
serverObjExtensionType.Name = "VegUtilitiesExtension"
SOA2.AddExtensionType("MapServer", serverObjExtensionType)

IGISServerConnection conn = new GISServerConnectionClass();
conn.Connect("your_server");

IServerObjectAdmin2 SOA2 = conn.ServerObjectAdmin as IServerObjectAdmin2;
IServerObjectExtensionType serverObjExtensionType = SOA2.CreateExtensionType();

serverObjExtensionType.CLSID = "vegSOE.vegUtilSOE";
serverObjExtensionType.Description = "test server obj extension";
serverObjExtensionType.Name = "VegUtilitiesExtension";
SOA2.AddExtensionType("MapServer", serverObjExtensionType);

Dim serverConn As IGISServerConnection = New GISServerConnectionClass()
serverConn.Connect("your_server")

Dim soa As IServerObjectAdmin = serverConn.ServerObjectAdmin
Dim soc As IServerObjectConfiguration2 = TryCast(soa.GetConfiguration("Yellowstone", "MapServer"), IServerObjectConfiguration2)
soa.StopConfiguration("Yellowstone", "MapServer")
soc.ExtensionEnabled("AreaSumExtension") = True

Dim props As IPropertySet = soc.ExtensionProperties("AreaSumExtension")
props.SetProperty("LayerName", "Veg")

soa.UpdateConfiguration(soc)
soa.StartConfiguration("Yellowstone", "MapServer")

IGISServerConnection serverConn = new GISServerConnectionClass();
serverConn.Connect("your_server");

IServerObjectAdmin soa = serverConn.ServerObjectAdmin;
IServerObjectConfiguration2 soc = soa.GetConfiguration("Yellowstone", "MapServer")as
    IServerObjectConfiguration2;
soa.StopConfiguration("Yellowstone", "MapServer");
soc.set_ExtensionEnabled("AreaSumExtension", true);

IPropertySet props = soc.get_ExtensionProperties("AreaSumExtension");
props.SetProperty("LayerName", "Veg");

soa.UpdateConfiguration(soc);
soa.StartConfiguration("Yellowstone", "MapServer");

string userName = null;
string roles = null;

// Set a reference to GUID for esriServer.IServerEnvironment2.
UID uid = new UIDClass();
uid.Value = "32D4C328-E473-4615-922C-63C108F55E60";

// CoCreate an EnvironmentManager and retrieve the IServerEnvironment.
IEnvironmentManager environmentManager = new EnvironmentManager()as
    IEnvironmentManager;
IServerEnvironment2 serverEnvironment = environmentManager.getEnvironment(uid);

// Get UserInfo.
IServerUserInfo userInfo = serverEnvironment.UserInfo;
userName = userInfo.Name;
roles = userInfo.Roles;