Registry Search Function

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Registry Search Function

Logged in as: Guest

arrSession:exec spGetSession 2,16,54982

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Registry Search Function
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Registry Search Function - 1/5/2008 7:26:00 AM

DiGiTAL.SkReAM

Posts: 1157
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

This has been posted before in various incarnations as answers to various questions.
So, I am posting it here for completeness and searchability.

This function dumps the registry to a text file, reads it into an array, and searches each element for the string you are searching for.
It then returns the results as a string.
It can take up to 30 seconds to perform the search on older machines. Longer, if your username is Fredledingue.

Function fRegFind(sSearchString)
' This function returns a string containing all of the <span class="high">Registry</span> entries
' which contain the string that is being <span class="high">search</span>ed for.  This returned
' string can then be Split() into an array by using a delimiter of VbCrLf.
Dim sRegTempDumpFile, aRegFileLines, sRegKey
Dim oRegTmp, oReg, oShell, oFSO, oCatDic, i
Set oShell = CreateObject("Wscript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sRegTempDumpFile = oFSO.GetTempName
oShell.Run "regedit /e /a " & sRegTempDumpFile, 0, True
aRegFileLines = Split(oFSO.OpenTextFile(sRegTempDumpFile,1).ReadAll,VbCrLf)
 If oFSO.FileExists(sRegTempDumpFile) Then oFSO.DeleteFile sRegTempDumpFile,True
Set oCatDic = CreateObject("Scripting.Dictionary")
 For i = 0 To UBound(aRegFileLines)
   If InStr(aRegFileLines(i), "[") <> 0 Then sRegKey = aRegFileLines(i)
   If InStr(UCase(aRegFileLines(i)), UCase(sSearchString)) <> 0 Then
     If UCase(sRegKey) <> UCase(aRegFileLines(i)) Then
      oCatDic.Add oCatDic.Count, VbCrLf & sRegKey & VbCrLf & aRegFileLines(i)
     Else
      oCatDic.Add oCatDic.Count, VbCrLf & sRegKey
     End If 
   End If 
 Next
fRegFind = Join(oCatDic.Items,VbCrLf)
End Function

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

Post #: 1

RE: Registry Search Function - 1/6/2008 1:47:09 AM

morpheus83uk

Posts: 279
Score: 0
Joined: 8/21/2006
Status: offline

Hi,

This might be a stupid question but where do I get the output for this? in a text file or anything?

Thanks

James

(in reply to DiGiTAL.SkReAM)

Post #: 2

RE: Registry Search Function - 1/17/2008 9:14:27 PM

raj_alapati

Posts: 2
Score: 0
Joined: 1/17/2008
Status: offline

Hi,

The Code looks good , and resembles much of my requirement but i also need some more changes with your help.

In the change i would like to search for a value (like IP) in all the registry keys and if found whcih matches my search string i would like to change the value of the key with some other value (Returned by another function).Can you please let me know if we have any sample script that can search and resets the registry value.

(in reply to morpheus83uk)

Post #: 3

RE: Registry Search Function - 2/29/2008 3:43:25 PM

DiGiTAL.SkReAM

Posts: 1157
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

A function returns a value as itself.
For example:

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to raj_alapati)

Post #: 4

RE: Registry Search Function - 2/29/2008 3:44:39 PM

DiGiTAL.SkReAM

Posts: 1157
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

@raj
Sorry, I don't think anyone has posted a search/replace registry fcuntion or script here.

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to DiGiTAL.SkReAM)