VBScript zum Auslesen eines bestimmten Registry Schlüssels

Hallo liebe Administratoren-Kollegen,

ich brauche mal Eure kreative Unterstützung.

Ich benötige ein Script, welches in der Lage ist bestimmte Registry Schlüssel auszulesen, zu vervollständigen und den höchsten Eintrag zurückzugeben.

Dafür habe ich aber nur einen Teil des Schlüssels als Vorgabewert zur Verfügung: Z.B. den Teil B-VR0000004 des gesamten Schlüssels B-VR0000004-0004-C0002

Ich möchte also den Namen des gesamten Schlüssel zurückgeben bekommen. Es kann sein, dass es mehrere Schlüssel mit diesem Anfangsteil gibt, z.B.

B-VR0000004-0004-C0002
B-VR0000004-0004-C0003

Der erste Teil B-VR0000004 kennzeichnet dabei eine Applikation, der zweite (0004) den Kunden und das letzte Segment (C0002) die einzelnen Updates der App. D.h. hier liegt die Appliaktion in zwei verschienenen Versionsständen auf dem Rechner vor.

In diesem Fall benötige ich den Schlüssel mit dem höchsten Wert am Ende also C0003, bzw. den vollständigen Namen B-VR0000004-0004-C0003.

Die Schlüssel liegen alle unterhalb des Schlüssels HKEY_LOCAL_MACHINE\SOFTWARE\Administrator-Forum\Software\

Also z.B. sowas

[HKEY_LOCAL_MACHINE\SOFTWARE\Administrator-Forum\Software\B-VR0000004-0004-C0002\]
[HKEY_LOCAL_MACHINE\SOFTWARE\Administrator-Forum\Software\B-VR0000004-0004-C0003\]
[HKEY_LOCAL_MACHINE\SOFTWARE\Administrator-Forum\Software\B-VR0000005-0004-C0001\]
[HKEY_LOCAL_MACHINE\SOFTWARE\Administrator-Forum\Software\B-VR0000006-0004-C0001\]
[HKEY_LOCAL_MACHINE\SOFTWARE\Administrator-Forum\Software\B-VR0000006-0004-C0002\]


Könnt ihr mir hier etwas weiterhelfen? Vielleichtr habt ihr Teile davon, schon in ähnlich Scripten verwendet. Wäre ganz toll, was von Euch zu hören!!!

Viele Grüße!!!!

Search = "VR0000004-0004" 'nur zum Testen; ansonsten natürlich Input-Box oder WScript.Arguments()  
strKeyPath = "Software\Administrator-Forum\Software"  

SearchFor = LCase("B-" & Search)  
SearchLen = Len(SearchFor)
MaxVersion = ""  

strComputer = "."  
Const HKLM = &H80000002
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _  
    strComputer & "\root\default:StdRegProv")  
objReg.EnumKey HKLM, strKeyPath, arrEntryNames
For Each Key In arrEntryNames
    If LCase(Left(Key, SearchLen)) = SearchFor Then
        If LCase(Key) > LCase(MaxVersion) Then MaxVersion = Key
    End If
Next
WScript.Echo MaxVersion

If WScript.Arguments.Count > 0 Then
    Search = WScript.Arguments(0)
Else
    WScript.Echo "Bitte den Suchbegriff als Parameter übergeben!"  
    WScript.Quit(1)
End If
...