ArcGIS Server 10 以前を対象
Public Sub GetGISServerConnection()
Dim pGISServerConnection As IGISServerConnection
Set pGISServerConnection = New GISServerConnection
pGISServerConnection.Connect "zeke"
Dim pServerObjectAdmin As IServerObjectAdmin
Set pServerObjectAdmin = pGISServerConnection.ServerObjectAdmin
' create the new configuration
Dim pConfiguration As IServerObjectConfiguration2
Set pConfiguration = pServerObjectAdmin.GetConfiguration("test", "MapServer") '既存のサービスを取得する場合
' Set pConfiguration = pServerObjectAdmin.CreateConfiguration '接続情報を新規に作成する場合
' pConfiguration.Name = "California"
' pConfiguration.TypeName = "MapServer"
Dim pPropertySet As IPropertySet
Set pPropertySet = pConfiguration.Properties
' Set pPropertySet = pConfiguration.RecycleProperties
' Set pPropertySet = pConfiguration.Info
' Set pPropertySet = pConfiguration.ExtensionInfo
' Set pPropertySet = pConfiguration.ExtensionProperties("MapServer")
'PropertySetを表示
Dim varNames As Variant, varValues As Variant
pPropertySet.GetAllProperties varNames, varValues
Dim i As Long
For i = 0 To pPropertySet.Count - 1
Debug.Print varNames(i), varValues(i)
Next i
' 'プロパティを新規に設定する場合
' pPropertySet.SetProperty "LocatorWorkspacePath", "\\melange\Geocoding\California"
' pPropertySet.SetProperty "Locator", "California"
' pPropertySet.SetProperty "SuggestedBatchSize", "500"
'
' pConfiguration.IsPooled = True
' pConfiguration.MinInstances = 1
' pConfiguration.MaxInstances = 1
' pConfiguration.WaitTimeout = 10
' pConfiguration.UsageTimeout = 120
'
'作成した設定を追加
' pServerObjectAdmin.AddConfiguration pConfiguration
End Sub
'参考：IServerObjectConfiguration2::Properties Property > Example
