Most of you know the MS indexing Search Engine on Win 2000 and later systems.
Condition is well that your Indexing Service is running.The Query object of Indexing Service supports methods and properties that allow you to formulate a query and define an ActiveX® Data Objects (ADO) recordset to manage and display the results of the query.
Well this can be accessed by the following COM objects :
AutoIt
Dim $strQuery ; The text of our query Dim $objQuery ; The index server query object Dim $rstResults ; A recordset of results returned from I.S. Dim $objField ; Field object for loop Dim $sRet ; Retrieve Service State Const $strComputer = "127.0.0.1" ; Initialize error handler $oMyError = ObjEvent("AutoIt.Error","MyErrFunc") ; Retreive the query from the querystring $strQuery = "au3" ; "#filename *.htm" _ServiceState() If StringInStr($sRet,"stopped") Then MsgBox(0,"State ","Sercice is not Running, I will start it ...") _ServiceStart() Sleep(1000) Else ; If the query isn't blank then proceed If $strQuery <> "" Then ; Create our index server object $objQuery = ObjCreate("ixsso.Query") ; $objQuery.Catalog = "query://search.microsoft.com/kb" ; query://hostname/indexname ; Set it's properties With $objQuery .Catalog = "query://" & $strComputer &"/System" ; Catalog to query .Query = $strQuery ; Query text .MaxRecords = 100 ; Max # of records to return ; What to sort records by. I'm sorting by rank [d] ; which is [d]escending by how pertinent Index Server ; thinks the result is. This way the most applicable ; result should be first. .SortBy = "rank [d]" ; Which columns to return. Column names must ; be the same as the catalog's properties. Some ; of them are: contents, filename, size, path, ; vpath, hitcount, rank, create, write, DocTitle ; DocSubject, DocAuthor, DocKeywords... .Columns = "filename, path, vpath, size, write, " _ & "characterization, DocTitle, DocAuthor, " _ & "DocKeywords, rank, hitcount" EndWith ; Get a recordset of our results back from Index Server $rstResults = $objQuery.CreateRecordset("nonsequential") If @error Then Msgbox (0,"Error","Service not started") Exit EndIf ; Get rid of our Query object $objQuery = "" ; Check for no records If $rstResults.EOF Then Consolewrite( "Sorry. No results found." & @CRLF) Else ; Print out # of results Consolewrite("Records # : " & $rstResults.RecordCount & @CRLF) ; Loop through results While Not $rstResults.EOF ; Loop through Fields ; Formatting leaves something to be desired, ; but it'll work for now. For $objField in $rstResults.Fields Consolewrite( $objField.Name & " : ") Consolewrite( $rstResults.Fields($objField.Name).Value & @CRLF) Next ; Spacing between results Consolewrite( @CRLF) ; Move to next result $rstResults.MoveNext WEnd EndIf EndIf EndIf Func _ServiceState() $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2") $Services = $objWMIService.ExecQuery("Select * from Win32_Service where Name Like 'cisvc%'") For $objService in $Services $sRet = ($objService.DisplayName & " | " & $objService.State) ;MsgBox(0,"Service State",$sRet) Next Return $sRet EndFunc Func _ServiceStart() $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2") $Services = $objWMIService.ExecQuery("Select * from Win32_Service where Name Like 'cisvc%'") For $objService in $Services $objService.StartService() MsgBox(0,"Service State","Service Started") Next EndFunc ;------------------------------ This is a COM Error handler -------------------------------- Func MyErrFunc() $HexNumber=hex($oMyError.number,8) Msgbox(0,"COM Error Test","We intercepted a COM Error !" & @CRLF & @CRLF & _ "err.description is: " & @TAB & $oMyError.description & @CRLF & _ "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _ "err.number is: " & @TAB & $HexNumber & @CRLF & _ "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _ "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _ "err.source is: " & @TAB & $oMyError.source & @CRLF & _ "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _ "err.helpcontext is: " & @TAB & $oMyError.helpcontext _ ) SetError(1) ; to check for after this function returns EndfuncoÝ÷ Ù«¢+ØìÌͽÁ¹ µMÉ¥ÁÐM½Á¡Ý¥Ñ Ñ¡Á Ñ èÀäÈíMÉ¥ÁÑ̤Ѽ ¸%¹á¥¹MÉÙ¥ Ñ ±½¹ µMÉ¥ÁÐ Ñ ±½½¸Ñ¡±½ °½µÁÕÑȸ((ÀÌØí½©µ¥¹%Lô=© É Ñ ÅÕ½Ðí5¥É½Í½Ð¹%M´ÅÕ½Ðì¤(ÀÌØí½© Ñ ±½ôÀÌØí½©µ¥¹%L¹ Ñ Ñ ±½ å9 µ ÅÕ½ÐíMÉ¥ÁÐ Ñ ±½ÅÕ½Ðì¤(ÀÌØí½©M½ÁôÀÌØí½© Ñ ±½¹M½Á ÅÕ½ÐíèÀäÈíÍÉ¥ÁÑÌÀäÈí%¹á¥¹MÉÙÈÅÕ½Ðì° ±Í¤(ÀÌØí½©M½Á¹±¥ ÌôÅÕ½ÐíMÉ¥ÁÐͽÁÅÕ½Ðì(ÀÌØí½©M½Á¹A Ñ ôÅÕ½ÐíèÀäÈíÍÉ¥ÁÑÌÅÕ½ÐìoÝ÷ Ù«¢+Øì ½¹¥ÕÉÌÑ¡%¹á¥¹MÉÙ¥½¸Ñ¡±½ °½µÁÕÑÈѼ Õѽµ Ñ¥ ±±äÍÑ ÉРѥµÑ¡½µÁÕÑÈÍÑ ÉÑ̸(ìQ¼½¹¥ÕÉÑ¡%¹á¥¹MÉÙ¥½Èµ ¹Õ °ÍÑ ÉаÍÐÑ¡Á É µÑÈÁ ÍÍѼѡ¹ ± $µÑ¡½Ñ¼ ±ÍÉ Ñ¡ÈÑ¡ ¸QÉÕ¸(ì5 ¹Õ °ÍÑ ÉÐ¥ÌÑ¡ Õ±ÐÍÑÑ¥¹½ÈÑ¡%¹á¥¹MÉÙ¥¸((ÀÌØí½©µ¥¹%Lô=© É Ñ ÅÕ½Ðí5¥É½Í½Ð¹%M´ÅÕ½Ðì¤(ÀÌØí½©µ¥¹%L¹¹ ± $¡QÉÕ¤oÝ÷ Ù«¢+ØìIÑÕɹ̥¹½Éµ Ñ¥½¸ ½ÕÐ ±°Ñ¡%¹á¥¹MÉÙ¥ Ñ ±½Ì Ù ¥± ±½¸Ñ¡±½ °½µÁÕÑȸ((ÀÌØí½©µ¥¹%Lô=© É Ñ ÅÕ½Ðí5¥É½Í½Ð¹%M´ÅÕ½Ðì¤(ÀÌØí½© Ñ ±½ôÀÌØí½©µ¥¹%L¹¥¹¥ÉÍÑ Ñ ±½ ¤)% ÀÌØí½© Ñ ±½¤Q¡¸(ÀÌØí½© Ñ´ôÀÌØí½©µ¥¹%L¹ Ñ Ñ ±½ ¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí Ñ ±½±½ Ñ¥½¸èÅÕ½Ðì µÀìÀÌØí½© Ñ´¹ Ñ ±½1½ Ñ¥½¸ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí Ñ ±½¹ µèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹ Ñ ±½9 µ µÀì I1¤(% ÀÌØí½©µ¥¹%L¹%ÍIÕ¹¹¥¹¤Q¡¸( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí%ÌÍѽÁÁèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹%Í Ñ ±½MѽÁÁ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí%ÌÁ ÕÍèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹%Í Ñ ±½A ÕÍ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí%ÌÉÕ¹¹¥¹èÅÕ½Ðì µÀìÀÌØí½© Ñ´¹%Í Ñ ±½IÕ¹¹¥¹ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí± å¥±ÑȽչÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹± 奱ÑÉ ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí½Õµ¹ÑÌѼ¥±ÑÈèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹½Õµ¹ÑÍQ½¥±ÑÈ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí¥±Ñɽյ¹Ð½Õ¹ÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹¥±Ñɽյ¹Ñ ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíÉÍ ÑÍнչÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹ÉÍ¡QÍÑ ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí%¹àÍ¥éèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹%¹áM¥é µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíAɹеɽµÁ±ÑèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹AÑ5É ½µÁ±Ñ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíA¹¥¹Í ¸½Õ¹ÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹A¹¥¹M ¹ ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíAÉÍ¥ÍѹХ¹à½Õ¹ÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹AÉÍ¥ÍѹÑ%¹á ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíEÕÉä½Õ¹ÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹EÕÉå ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíMÑ Ñ¥¹¼èÅÕ½Ðì µÀìÀÌØí½© Ñ´¹MÑ Ñ%¹¼ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíQ½Ñ °½Õµ¹Ð½Õ¹ÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹Q½Ñ ±½Õµ¹Ñ ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíU¹¥ÅÕä½Õ¹ÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹U¹¥ÅÕ-å ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí]½É±¥ÍнչÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹]½É1¥ÍÑ ½Õ¹Ð µÀì I1¤(¹%)¹%($% ½¹Í½±Ýɥѡ I1¤)]¡¥±Ä(ÀÌØí½© Ñ ±½ôÀÌØí½©µ¥¹%L¹¥¹9áÑ Ñ ±½ ¤(% ÀÌØí½© Ñ ±½¤Q¡¸(ÀÌØí½© Ñ´ôÀÌØí½©µ¥¹%L¹ Ñ Ñ ±½ ¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí Ñ ±½±½ Ñ¥½¸èÅÕ½Ðì µÀìÀÌØí½© Ñ´¹ Ñ ±½1½ Ñ¥½¸ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí Ñ ±½¹ µèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹ Ñ ±½9 µ µÀì I1¤(% ÀÌØí½©µ¥¹%L¹%ÍIÕ¹¹¥¹¤Q¡¸( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí%ÌÍѽÁÁèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹%Í Ñ ±½MѽÁÁ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí%ÌÁ ÕÍèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹%Í Ñ ±½A ÕÍ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí%ÌÉÕ¹¹¥¹èÅÕ½Ðì µÀìÀÌØí½© Ñ´¹%Í Ñ ±½IÕ¹¹¥¹ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí± å¥±ÑȽչÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹± 奱ÑÉ ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí½Õµ¹ÑÌѼ¥±ÑÈèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹½Õµ¹ÑÍQ½¥±ÑÈ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí¥±Ñɽյ¹Ð½Õ¹ÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹¥±Ñɽյ¹Ñ ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíÉÍ ÑÍнչÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹ÉÍ¡QÍÑ ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí%¹àÍ¥éèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹%¹áM¥é µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíAɹеɽµÁ±ÑèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹AÑ5É ½µÁ±Ñ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíA¹¥¹Í ¸½Õ¹ÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹A¹¥¹M ¹ ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíAÉÍ¥ÍѹХ¹à½Õ¹ÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹AÉÍ¥ÍѹÑ%¹á ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíEÕÉä½Õ¹ÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹EÕÉå ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíMÑ Ñ¥¹¼èÅÕ½Ðì µÀìÀÌØí½© Ñ´¹MÑ Ñ%¹¼ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíQ½Ñ °½Õµ¹Ð½Õ¹ÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹Q½Ñ ±½Õµ¹Ñ ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíU¹¥ÅÕä½Õ¹ÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹U¹¥ÅÕ-å ½Õ¹Ð µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí]½É±¥ÍнչÐèÅÕ½Ðì µÀìÀÌØí½© Ñ´¹]½É1¥ÍÑ ½Õ¹Ð µÀì I1¤(¹%(±Í(á¥Ð(¹%)]¹oÝ÷ Ù«¢+ØìIÑÕɹ̥¹½Éµ Ñ¥½¸ ½ÕÐ ±°Ñ¡%¹á¥¹MÉ٥ͽÁ̽չ½¸Ñ¡±½ °½µÁÕÑȸ((ÀÌØí½©µ¥¹%Lô=© É Ñ ÅÕ½Ðí5¥É½Í½Ð¹%M´ÅÕ½Ðì¤(ÀÌØí½© Ñ ±½ôÀÌØí½©µ¥¹%L¹¥¹¥ÉÍÑ Ñ ±½ ¤)% ÀÌØí½© Ñ ±½¤Q¡¸(ÀÌØí½© Ñ´ôÀÌØí½©µ¥¹%L¹ Ñ Ñ ±½ ¤(ÀÌØí½©M½Á´ôÀÌØí½© Ñ´¹ ÑM½Á ¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí±¥ ÌèÅÕ½Ðì µÀìÀÌØí½©M½Á´¹±¥ Ì µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðíá±ÕͽÁèÅÕ½Ðì µÀìÀÌØí½©M½Á´¹á±ÕM½Á µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí1½½¸èÅÕ½Ðì µÀìÀÌØí½©M½Á´¹1½½¸ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíA Ñ èÅÕ½Ðì µÀìÀÌØí½©M½Á´¹A Ñ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíY¥ÉÑÕ °Í½ÁèÅÕ½Ðì µÀìÀÌØí½©M½Á´¹Y¥ÉÑÕ ±M½Á µÀì I1¤)¹%(% ½¹Í½±]ɥѡ I1¤)Ý¡¥±Ä(ÀÌØí½© Ñ ±½ôÀÌØí½©µ¥¹%L¹¥¹9áÑ Ñ ±½ ¤(% ÀÌØí½© Ñ ±½¤Q¡¸(ÀÌØí½© Ñ´ôÀÌØí½©µ¥¹%L¹ Ñ Ñ ±½ ¤(ÀÌØí½©M½Á´ôÀÌØí½© Ñ´¹ ÑM½Á ¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí±¥ ÌèÅÕ½Ðì µÀìÀÌØí½©M½Á´¹±¥ Ì µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðíá±ÕͽÁèÅÕ½Ðì µÀìÀÌØí½©M½Á´¹á±ÕM½Á µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½Ðí1½½¸èÅÕ½Ðì µÀìÀÌØí½©M½Á´¹1½½¸ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíA Ñ èÅÕ½Ðì µÀìÀÌØí½©M½Á´¹A Ñ µÀì I1¤( ½¹Í½±ÝÉ¥Ñ ÅÕ½ÐíY¥ÉÑÕ °Í½ÁèÅÕ½Ðì µÀìÀÌØí½©M½Á´¹Y¥ÉÑÕ ±M½Á µÀì I1¤(±Í(á¥Ð(¹%)]¹
Regards,
ptrex
Edited by ptrex, 10 September 2007 - 03:13 PM.
