[Visual Basic 6.0]
The following VB code shows how to connect to the ArcGIS Server called "melange", and use the GetConfigurations and GetConfigurationStatus methods on IServerObjectAdmin to print out the current status of the each server object configuration.
Dim pGISServerConnection As IGISServerConnection
Set pGISServerConnection = New GISServerConnection
pGISServerConnection.Connect "melange"
  
Dim pServerObjectAdmin As IServerObjectAdmin4
Set pServerObjectAdmin = pGISServerConnection.ServerObjectAdmin

Dim pEnumConfig As IEnumServerObjectConfiguration
Set pEnumConfig = pServerObjectAdmin.GetConfigurations
  
Dim pConfig As IServerObjectConfiguration
Dim pConfigStatus As IServerObjectConfigurationStatus
Set pConfig = pEnumConfig.Next
Do Until pConfig Is Nothing
  Set pConfigStatus = pServerObjectAdmin.GetConfigurationStatus(pConfig.Name, pConfig.TypeName)
  Debug.Print pConfig.Name & ": " & pConfigStatus.InstanceCount & "/" & pConfigStatus.InstanceInUseCount
  Set pConfig = pEnumConfig.Next
Loop

[Visual Basic .NET]
Public Sub ServerObjectAdmin()
'The following code shows how to connect to the ArcGIS Server called "melange", 
'and use the GetConfigurations and GetConfigurationStatus methods on IServerObjectAdmin 
'to print out the current status of the each server object configuration.
Dim gisServerConnection As IGISServerConnection = New GISServerConnection
gisServerConnection.Connect("melange")
Dim serverObjectAdmin As IServerObjectAdmin4 = CType(gisServerConnection.ServerObjectAdmin, IServerObjectAdmin4)
Dim enumConfig As IEnumServerObjectConfiguration = serverObjectAdmin.GetConfigurations
Dim configStatus As IServerObjectConfigurationStatus
Dim config As IServerObjectConfiguration = enumConfig.Next
Do Until config Is Nothing
    configStatus = serverObjectAdmin.GetConfigurationStatus(config.Name, config.TypeName)
    Debug.Print(config.Name & ": " & configStatus.InstanceCount & "/" & configStatus.InstanceInUseCount)
    config = enumConfig.Next
Loop
End Sub

[C#]
public void ServerObjectAdmin()
{
//The following code shows how to connect to the ArcGIS Server called "melange", 
//and use the GetConfigurations and GetConfigurationStatus methods on IServerObjectAdmin 
//to print out the current status of the each server object configuration.
IGISServerConnection gisServerConnection = new GISServerConnection();
gisServerConnection.Connect("melange");
IServerObjectAdmin4 serverObjectAdmin = (IServerObjectAdmin4)gisServerConnection.ServerObjectAdmin;
IEnumServerObjectConfiguration enumConfig = serverObjectAdmin.GetConfigurations;
IServerObjectConfigurationStatus configStatus = null;
IServerObjectConfiguration config = enumConfig.Next();
while ( config != null)
{
 configStatus = serverObjectAdmin.GetConfigurationStatus(config.Name, config.TypeName);
 Debug.Print(config.Name + ": " + configStatus.InstanceCount + "/" + configStatus.InstanceInUseCount);
 config = enumConfig.Next();
}
}

[C++]
No example is available for C++. To view a Visual Basic 6.0, Visual Basic .NET, or a C# example, click the Language Filter button in the upper-left corner of the page.