Re: [foxboro] .S file search
- From: "Gunter, Matt" <Matt.Gunter@xxxxxxx>
- To: <foxboro@xxxxxxxxxxxxx>
- Date: Tue, 31 Jul 2007 09:31:26 -0600
Did you see this when it came through? Weird!=20
-----Original Message-----
From: foxboro-bounce@xxxxxxxxxxxxx [mailto:foxboro-bounce@xxxxxxxxxxxxx]
On Behalf Of Weiss, Andreas
Sent: Monday, June 25, 2007 6:26 AM
To: foxboro@xxxxxxxxxxxxx
Subject: Re: [foxboro] .S file search
>In the NT system I
> could do an advanced search on all of the .S files to find=3D20 what=20
>program was tied to a particular output block. This does not work in=20
>the XP system. =3D20
Hi Kevin,
MS has changed the behaviour of the search tool which searches only =3D
through "known" file types.
Save the following lines into a file called ConfigureSearchTool.vbs and
=3D do a double click on it. That should bring you the old functionality =
=3D
back.
Regards,
Andreas
---
' ***************************************************
'
' VBScript generated by SystemScripter 5.0 ' www.scriptinternals.de
<http://www.scriptinternals.de> '
' Author: Lutze
' Date: Samstag, 14.02.2004
' Version:0000000000000000000000,9
'
' =3D
<http://www.wintotal.de/Tipps/Eintrag.php?RBID=3D3D2&TID=3D3D836&URBID=3D=
3D12>
' <http://www.wintotal.de>
'
' ***************************************************
'
Option Explicit
Dim fra '
Dim fra1 '
Dim fra2
Dim fra3 '
Dim vorh '
Dim mb '
Dim mb1 '
Dim mp '
Dim mp1 '
Dim mt '
Dim mw '
Dim mw1 '
Dim WshShell '
fra =3D3D "Der Eintrag wurde nicht gefunden!"
fra1 =3D3D "Search through all file types?"& vbCr _ & =
"(einschlie=3DDFlich
nicht registrierten Erweiterungen)"
fra2 =3D3D "Search only in registerd file types? " & vbCr _ &
"(registrierte Erweiterungen, Standarteinstellung)"
fra3 =3D3D "FilterFilesWithUnknownExtensions"
mp =3D3D "HKLM\SYSTEM\CurrentControlSet\Control\ContentIndex\"
mp1 =3D3D "FilterFilesWithUnknownExtensions"
mw =3D3D "1"
mw1 =3D3D "0"
mt =3D3D "REG_DWORD"
On Error Resume Next
Set WshShell =3D3D WScript.CreateObject("Wscript.Shell")
vorh =3D3D WshShell.RegRead(mp & mp1)
If Not Err.number=3D3D0 Then
MsgBox fra ,48 , ":-(("
WScript.Quit
On Error Goto 0
ElseIf vorh =3D3D 1 Then
mb =3D3D MsgBox(fra2 ,292 , fra3)
Else
mb1 =3D3D MsgBox (fra1 ,292 , fra3)
End If
If mb =3D3D 6 Then
WshShell.RegWrite mp & mp1, mw1, mt
MsgBox "It`s done" ,64 , ":-)" 'deaktivieren WScript.Quit End If If mb1
=3D3D 6 Then WshShell.RegWrite mp & mp1, mw, mt MsgBox "success" ,64 ,
":-)" 'aktivieren Else MsgBox "nothing happend" ,64 , ":-(("
End If
=3D20
=20
=20
_______________________________________________________________________
This mailing list is neither sponsored nor endorsed by Invensys Process
Systems (formerly The Foxboro Company). Use the info you obtain here at
your own risks. Read http://www.thecassandraproject.org/disclaimer.html
=20
foxboro mailing list: //www.freelists.org/list/foxboro
to subscribe: =
mailto:foxboro-request@xxxxxxxxxxxxx?subject=3Djoin
to unsubscribe: =
mailto:foxboro-request@xxxxxxxxxxxxx?subject=3Dleave
=20
_______________________________________________________________________
This mailing list is neither sponsored nor endorsed by Invensys Process
Systems (formerly The Foxboro Company). Use the info you obtain here at
your own risks. Read http://www.thecassandraproject.org/disclaimer.html
foxboro mailing list: //www.freelists.org/list/foxboro
to subscribe: mailto:foxboro-request@xxxxxxxxxxxxx?subject=join
to unsubscribe: mailto:foxboro-request@xxxxxxxxxxxxx?subject=leave
Other related posts:
