Leaderboard

Fixed

; ;################################## ; Include ;################################## #Include<file.au3> ;################################## ; Variables ;################################## $SmtpServer = "MailServer" ; address for the smtp-server to use - REQUIRED $FromName = "Name" ; name from who the email was sent $FromAddress = "your@Email.Address.com" ; address from where the mail should come $ToAddress = "your@Email.Address.com" ; destination address of the email - REQUIRED $Subject = "Userinfo" ; subject from the email - can be anything you want it to be $Body = "" ; the messagebody from the mail - can be left blank but then you get a blank mail $AttachFiles = "" ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed $CcAddress = "CCadress1@test.com" ; address for cc - leave blank if not needed $BccAddress = "BCCadress1@test.com" ; address for bcc - leave blank if not needed $Importance = "Normal" ; Send message priority: "High", "Normal", "Low" $Username = "******" ; username for the account used from where the mail gets sent - REQUIRED $Password = "********" ; password for the account used from where the mail gets sent - REQUIRED $IPPort = 25 ; port used for sending the mail $ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS $tls = 0 ; enables/disables TLS when required ;~ $SmtpServer = "smtp.gmail.com" ; GMAIL address for the smtp-server to use - REQUIRED ;~ $IPPort=465 ; GMAIL port used for sending the mail ;~ $ssl=1 ; GMAIL enables/disables secure socket layer sending - put to 1 if using https ;~ $SmtpServer = "smtp.office365.com" ; O365 address for the smtp-server to use - REQUIRED ;~ $IPPort=25 ; O365 port used for sending the mail ;~ $ssl=1 ; O365 enables/disables secure socket layer sending - put to 1 if using https ;~ SmtpServer = "smtp.mail.yahoo.com" ; Yahoo address for the smtp-server to use - REQUIRED ;~ $IPPort = 465 ; Yahoo port used for sending the mail ;~ $ssl = 1 ; Yahoo enables/disables secure socket layer sending - put to 1 if using https ;################################## ; Script ;################################## Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl, $tls) If @error Then MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc) EndIf ; ; The UDF Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0, $tls = 0) Local $objEmail = ObjCreate("CDO.Message") $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>' $objEmail.To = $s_ToAddress Local $i_Error = 0 Local $i_Error_desciption = "" If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress $objEmail.Subject = $s_Subject If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then $objEmail.HTMLBody = $as_Body Else $objEmail.Textbody = $as_Body & @CRLF EndIf If $s_AttachFiles <> "" Then Local $S_Files2Attach = StringSplit($s_AttachFiles, ";") For $x = 1 To $S_Files2Attach[0] $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x]) ;~ ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console If FileExists($S_Files2Attach[$x]) Then ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF) $objEmail.AddAttachment($S_Files2Attach[$x]) Else ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF) SetError(1) Return 0 EndIf Next EndIf $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer If Number($IPPort) = 0 then $IPPort = 25 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort ;Authenticated SMTP If $s_Username <> "" Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password EndIf ; Set security params If $ssl Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True If $tls Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendtls") = True ;Update settings $objEmail.Configuration.Fields.Update ; Set Email Importance Switch $s_Importance Case "High" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High" Case "Normal" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal" Case "Low" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low" EndSwitch $objEmail.Fields.Update ; Sent the Message $objEmail.Send If @error Then SetError(2) Return $oMyRet[1] EndIf $objEmail="" EndFunc ;==>_INetSmtpMailCom ; ; ; Com Error Handler Func MyErrFunc() $HexNumber = Hex($oMyError.number, 8) $oMyRet[0] = $HexNumber $oMyRet[1] = StringStripWS($oMyError.description, 3) ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF) SetError(1); something to check for when this function returns Return EndFunc ;==>MyErrFunc Edit: Fixed Bcc ... Edit: Added support for different port and SLL which are used by GMail (Port 465) Edit: Added Importance support (10/2008) EDIT: Added $TLS option (07/2020 Some interesting Info from the thread:

hcl, And you are correct - but just look at how many elements had you declared with this (5 not 6): Global $achk[5] = [1,1,0,1,0,0] Just remember that AutoIt allows you to leave the number of elements blank in an initial declaration - if you define the elements themselves. So this would have worked: Global $achk[] = [1,1,0,1,0,0] M23

jguinch, Thanks for that - I have never used conditional matches before, so a very educational example. Damn RegExes still make my brain bleed! M23

Using a conditional pattern : $res = StringRegExp($str, '^\d\d?([A-Z])?(?(1)\*?)$') or just a Or operator : $res = StringRegExp($str, '^\d\d?([A-Z]?|[A-Z]\*?)$')

Try this: #include <file.au3> Global $True = "True" Global $False = "False" Global $equal = "=" Global $Monitor = "Monitor" Global $vReturn Global $handle_read _read() Func _read() Local $sFilePath = @ScriptDir & '\Map Settings.log' _FileReadToArray($sFilePath, $vReturn) If @error Then MsgBox(4096, "Error", "Unable to read") Else For $i = 1 To $vReturn[0] If $vReturn[$i] == 'test' Then MsgBox($MB_SYSTEMMODAL, "Map", "Preview ", 5) ExitLoop ; Exits For - Next loop (stops) when search value, "", is found? EndIf Next EndIf EndFunc ;==>_read

Melba $str = "12" $res = StringRegExp($str, '^\d{1,2}[A-Z]?(?<=[A-Z])\*?$' ) Msgbox(0,"", $res) $res = StringRegExp($str, '^\d{1,2}[A-Z]?((?<=[A-Z])\*)?$' ) Msgbox(0,"", $res) ; ^\d{1,2}([A-Z]\*?)?$

If I have interpreted your requirements correctly this '^\d{1,2}([A-Z][*]?)?$' works $res = StringRegExp('12','^\d{1,2}([A-Z][*]?)?$') ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $res = ' & $res & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console $res = StringRegExp('1A','^\d{1,2}([A-Z][*]?)?$') ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $res = ' & $res & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console $res = StringRegExp('12A*','^\d{1,2}([A-Z][*]?)?$') ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $res = ' & $res & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console $res = StringRegExp('12AB','^\d{1,2}([A-Z][*]?)?$') ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $res = ' & $res & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console $res = StringRegExp('12AB*','^\d{1,2}([A-Z][*]?)?$') ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $res = ' & $res & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console $res = StringRegExp('1AB*','^\d{1,2}([A-Z][*]?)?$') ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $res = ' & $res & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console $res = StringRegExp('1*','^\d{1,2}([A-Z][*]?)?$') ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $res = ' & $res & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console $res = StringRegExp('12*','^\d{1,2}([A-Z][*]?)?$') ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $res = ' & $res & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console

Hello, I've done some testing and I've noticed that TCPRecv is slow, but it's almost exactly 1ms each time it's called if the socket is a valid socket and not a dead socket...So this got me thinking about the line in the help file about TCPRecv idling the CPU, presumably to allow people to call it continuously inside an extremely tight loop without running the CPU usage up too bad. I've been making a chat client/server (which I won't bother posting since it seems just about everyone has made those, it would just be another fish in the sea) and I always wondered why in my stress-testing, it would conk out after around 300-350 separate clients and then the interpreter itself would lock up and fail to respond. I think I've found out why it does this after some investigation into TCPRecv, what happens when too much data is buffered without flushing it with another call to TCPRecv (interpreter locking up), and ultimately why said chat server is limited to a few hundred clients...after some more testing, that delay gets to be pretty high the more clients the server caters to. If the server has 50 people on it, it's doing around 50ms of sleeps each time it loops through to check the clients just from the calls to TCPRecv..so once it gets around 300-350 clients on at once, it's waiting 300-350ms total each time it does a loop. This ends up delaying all clients connected by basically 1ms per client connected plus their actual latency to the server, which is not that good... I know some people may think "If you want to have a server cater to that many connections in a timely fashion, you should use a different language..." but I'm really only doing this for the experience, I have no intentions of actually letting this stuff roam free in the wild Anywho, I figured I would test out trying to reinvent the wheel, to call the recv function in Ws2_32.dll and basically make my own version of TCPRecv that would work without the delay in it (assuming that 1ms time was an artificial delay put there by the AutoIt devs to idle the CPU) and see if that could do the job any faster...But that is when I started running in to the issue I am having right now, and where my lack of C/C++ knowledge is really starting to bite me in the behind. Below is the function I tried making to emulate TCPRecv but failed at doing so...DllCall is setting @error to 1, which according to the help file says it was unable to access the dll, but I know from previous experience that AutoIt has no problem using Ws2_32.dll (the function _SocketToIP that has been floating around here for ages is one semi-well known one that calls this dll) so I'm guessing it's an issue with my lack of experience in the dark side of AutoIt so to speak... Func _TCPRecv($iSock, $iLen) Local $structBuffer = DllStructCreate("char[" & $iLen & "]") Local $aRet = DllCall("Ws2_32.dll", "int", "recv", "int", $iSock, "char", DllStructGetPtr($structBuffer), "int", $iLen, "int", 0) If @error Then SetError(1, 0, "") Return SetError(0, $aRet[0], DllStructGetData($structBuffer, 1)) EndFunc Any insight about TCPRecv's delay or my failed attempt at reinventing the wheel would be greatly apriciated!

"char" should be "ptr" Might use byte struct instead of a char one.

MS indexing Search Engine Most of you know the MS indexing Search Engine on Win 2000 and later systems. Condition is well that your Indexing Service is running. Well this can be accessed by the following COM objects : 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

@randallc First of all all examples are still relating to the Indexing Service. Nevertheless it seems confusing, but it still does. Why an "ADODB.Connection", because this is the fastest way to do so. 1. How to do a query which retrieves -all- the results ("*" or "*.*" retrieve nothing, that I can see?) "Select * from Extended_FileInfo" -> Meaning to select all 2. I don't know, never used this. 3. MAX. Not sure best is to check out the SQL syntax for Indexing services here : SQL Syntax for Indexing Service I hope this get's you going. regards ptrex