none
WSH & cisvc, как подключится к службе? RRS feed

  • Общие обсуждения

  • Каким образом используя WSH или любой другой язык программирования(не скриптовый) подключится и работать с службой индексирования в ОС Windows XP?

    Подробнее:
    Как выполнять запросы к службе индексирования?
    Как получать результаты запроса?
    1 октября 2007 г. 9:22

Все ответы

  • Вот примеры от Microsoft:

     

    Образец кода

    'Create an Indexing Service Catalog

    On Error Resume Next

    Set objAdminIS = CreateObject("Microsoft.ISAdm")
    objAdminIS.Stop()

    Set objCatalog = objAdminIS.AddCatalog("Script Catalog","c:\scripts")
    objAdminIS.Start()

     

     

    Образец кода

    'Search Indexing Server Using a Predefined Query

    On Error Resume Next

    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.ConnectionString = "provider=msidxs;"
    objConnection.Properties("Data Source") = "Script Catalog"
    objConnection.Open
     
    Set objCommand = CreateObject("ADODB.Command")
     
    strQuery = "Create View #AllProps as Select * from Scope()"
     
    Set objRecordSet = objConnection.Execute("Select * from Extended_FileInfo")
     
    Do While Not objRecordSet.EOF
        Wscript.Echo objRecordSet("Filename") & ", " & objRecordSet("Size") & _
            ", " & objRecordSet("DocAuthor")
        objRecordSet.MoveNext
    Loop
     

     

     

    Образец кода

    'Search the Indexing Service Using a Free Text Search

    On Error Resume Next

    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.ConnectionString = "provider=msidxs;"
    objConnection.Properties("Data Source") = "Script Catalog"
    objConnection.Open
     
    Set objCommand = CreateObject("ADODB.Command")
     
    strQuery = "Select Filename, Size, Contents from Scope() Where " _
        & "Freetext('Win32_NetworkAdapterConfiguration')"
     
    Set objRecordSet = objConnection.Execute(strQuery)
     
    Do While Not objRecordSet.EOF
        Wscript.Echo objRecordSet("Filename"), objRecordSet("Size")
        objRecordSet.MoveNext
    Loop
     

     

     

    Образец кода

    'Start the Indexing Service

    On Error Resume Next

    Set objAdminIS = CreateObject("Microsoft.ISAdm")
    objAdminIS.Start()

     

     


     

    Образец кода

    'Stop the Indexing Service

    On Error Resume Next

    Set objAdminIS = CreateObject("Microsoft.ISAdm")
    objAdminIS.Stop()

     

     

     

    1 октября 2007 г. 12:24
    Модератор