Solved:
I found this
http://www.billsway.com/vbspage/Show...es/RegSrch.txt
And modify ->
Option Explicit
Dim oWS : Set oWS = CreateObject("WScript.Shell")
Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim sSearchFor
sSearchFor = "sThousand"
Dim sRegTmp, sOutTmp, eRegLine, sRegKey, aRegFileLines
sRegTmp = oWS.Environment("Process")("Temp") & "\RegTmp.tmp "
sOutTmp = "test.txt"
oWS.Run "regedit /e /a " & sRegTmp, , True '/a enables export as Ansi
for WinXP
With oFSO.GetFile(sRegTmp)
aRegFileLines = Split(.OpenAsTextStream(1, 0).Read(.Size), vbcrlf)
End With
oFSO.DeleteFile(sRegTmp)
For Each eRegLine in aRegFileLines
If InStr(1, eRegLine, "[", 1) > 0 Then sRegKey = eRegLine
If InStr(1, eRegLine, sSearchFor, 1) > 0 Then
sRegKey = Replace(sRegKey, "[", "")
sRegKey = Replace(sRegKey, "]", "")
oWS.RegWrite sRegKey & "\" & sSearchFor, "."
End If
Next
Erase aRegFileLines