Fusion de catalogue Index Serveur 

Index Serveur est conçu pour des recherches de fichiers plus rapides, ou pour des recherches de texte dans un Site Internet/Intranet. La mise à jour du catalogue est faite quand la machine a du temps libre. La fusion des index et listes de mot se fait sur demande. Mais on peut utiliser ce script pour forcer une fusion.

FUSION.VBS :

  ' Fusion des catalogues Index Server

  ' (C) 2002 Alain Guimberteau

  Set oISAdm = CreateObject("Microsoft.ISAdm")

  CF = oISAdm.FindFirstCatalog()
  While CF

    Set oCatAdm = oISAdm.GetCatalog

    If oCatAdm.PersistentIndexCount>1 Or oCatAdm.WordListCount>0 Then
      If oCatAdm.PctMergeComplete=100 Then
        oCatAdm.ForceMasterMerge()
      End If
    End If

    Set oCatAdm = Nothing

    CF = oISAdm.FindNextCatalog()

  Wend

  Set oISAdm = Nothing

MSDN a été copieusement utilisé pour la réalisation de ce programme.

© Alain Guimberteau