Anzahl von Registrierungseinträgen auslesen

Hallo liebe Community,

wie der Titel bereits schon sagt suche ich eine Möglichkeit, die genaue Anzahl an Unterschlüsseln aus der Registrierung zu lesen ohne dabei selber extrem hohe Zahlen auslesn zu lassen.

Das hier ist also keine Möglichkeit:

For $i = 1 To 100

Local $user = RegEnumKey ("HKU", $i)

RegDelete("HKEY_USERS\"&$user&"\SOFTWARE\Citrix\ICA Client")
Next

Ich muss nämlich in einem anderen Schlüssel mehrere Tausend Unterschlüssel überprüfen und das auf mehreren Rechnern. Die Zahl der Schlüssel variiert hier stark und muss desshalb möglichst genau jedes mal wieder ausgelesen werden.
Dabei muss ich dann in den einzelnen Schlüsseln auch noch nach einem gewissen Wort suchen und wenn dieses dann vorhanden ist, diesen Schlüssel auch löschen.

Hier mein Ansatz:

$i = 1
While 1
$var = RegEnumKey("HKCR", $i)
If @error <> 0 Then ExitLoop
If StringInStr ($var, "Citrix.ICAClient") Then RegDelete ($var)
$i += 1
WEnd

#Edit: Ich hatte vergessen zu erwähnen, dass mein Ansatz absolut nichts macht außer ein wenig CPU verbrauchen.

Danke schon einmal für eure Hilfe

Da soll jemandem doch mal wer sagen, dass er nur den Schlüsselnamen zurück gibt. Oh mist steht sogar in der Hilfe...
Naja dennoch danke

Dass er nicht rekursiv sucht passt mir ganz gut, sonst häte er noch mehr Einträge zum durchsuchen.
Unterschlüssel werden doch eh immer gelöscht wenn man den Hauptschlüssen löscht oder nicht?

Deine Antwort hat mir jetzt schon sehr weitergeholfen, dennoch bleibt mein Problem mit dem Auslesen der Anzahl damit ich nicht in die Zehntausend Leerschlüsseldurchsuchungen gehen muss.

#Edit: Leider funktioniert auch deine Version nicht ...

Hab ich auch schon ja, habe ich grade aber noch einmal probiert.
Ergebnis: nichts

Danke noch einmal für eure Hilfe!
Trotzdem gibt er mir nicht mal in der Konsole was aus, das heißt dann wohl, dass irgendwas mit der suche nicht stimmt -_-

@Xeno wenn ich mir jdes Ergebnis ausgeben lasse, habe ich weit mehr als 1000 Schlüssel

Kommt auch nichts bei raus.
Also so langsam bin ich mit meinem Latein auch am Ende.

Hier noch einmal der Code:

#RequireAdmin
$i = 1
While 1
$var = RegEnumKey("HKCR", $i)
If @error Then ExitLoop
If StringInStr ($var, "Citrix") Then ConsoleWrite ("HKCR\" & $var & @CRLF)
$i += 1
WEnd

Habe die Ausgabe der zu löschenden Schlüssel jetzt mal in eine Text-Datei schreiben lassen und da geht es komischerweise.
Also muss es am löschen liegen. Jemand in der Richtung eine Idee?

Zu aller erst: Ich habe das Problem so gut wie gelöst.
Habe jetzt die Variable jedes mal wieder leer gemacht, somit löscht er dann auch einige Einträge.
Leider sind erst nach 4-5 mal ausführen alle gewünschten Einträge weg.
Code:

#RequireAdmin
$i = 1
While 1
$var = RegEnumKey("HKCR", $i)
If @error Then ExitLoop
If StringInStr ($var, "Citrix") Then RegDelete ("HKCR\" & $var)
$var = ""
$i += 1
WEnd

@Xeno: "Hier schon gescheitert" -_-

Genau das Fensterchen hier kommt

So funktioniert es:

Und noch die Ausgabe von der ich denke dass du sie meinst:
#Edit: Den meiner Meinung nach "richtigen" Screenshot eingefügt

siehe Edit im vorherigen Beitrag