EnumDataSources

Returns the names and descriptions of the applications on an application server.

Syntax

<HsxServer>.EnumDataSources pvarabstrProducts, pvarabstrApps, pvarabstrDescs, pvarabstrDSNs

Argument	Description
pvarabstrProducts	Variant array. Returns the product names for the applications. For Financial Management applications, the array items will consist of the string “Financial Management”. The array is returned as a String subtype.
pvarabstrApps	Variant array. Returns the names of the applications on the application server. The array is returned as a String subtype.
pvarabstrDescs	Variant array. Returns the descriptions of the applications. The array is returned as a String subtype.
pvarabstrDSNs	Variant array. For Financial Management, this returns as Empty. If you call EnumDataSources for other products, this returns an array of data sources for the applications. The array is returned as a String subtype.

Example

The following example inserts the names of all applications on an application server into a ComboBox.

Dim vaProds, vaApps, vaDescs, vaDSNs
'cServer is an HsxServer object reference
cServer.EnumDataSources vaProds, vaApps, vaDescs, vaDSNs
For i = LBound(vaApps) To UBound(vaApps)
    'cmbApps is the ComboBox
    cmbApps.AddItem vaApps(i)
Next i