1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Private Function VerifDB()
Dim cx As DFCLib.DfClientX
Dim client As IDfClient
Dim docBroker As String
Dim docbaseMap As DFCLib.IDfDocbaseMap
Dim docbaseName As String
Dim serverMap As DFCLib.IDfTypedObject
Dim serverName As String
Dim iDocbase As Long
Dim cDocbases As Long
Dim i As Long, j As Long
Set cx = New DFCLib.DfClientX
Set client = cx.getLocalClient
'lblDFC.Caption = "DFC Version :" & cx.getDFCVersion
'// Get Docbase map object
Set docbaseMap = client.getDocbaseMap()
' // get host machine on which the DocBroker resides
docBroker = docbaseMap.getHostName
' // Nb Docbase sur DocBroker
cDocbases = docbaseMap.getDocbaseCount()
Dim apiConfig As DFCLib.IDfTypedObject
Set apiConfig = client.getClientConfig
cDocbases = docbaseMap.getDocbaseCount()
For iDocbase = 0 To cDocbases - 1
' Set docbaseMap = client.getDocbaseMap()
docbaseName = docbaseMap.getDocbaseName(iDocbase)
' Set serverMap = docbaseMap.getServerMapByName(docbaseName)
' serverName = serverMap.getString("r_host_name")
lstDocbase.ListItems.Add , docbaseName, docbaseName, 2, 2
Next iDocbase
lstDocbase.Sorted = True
End Function |
Partager