Mit einem VB-Script die Registry durchsuchen

Hallo,
ich hoffe mir kann da einer helfen.

Das Script soll die Reg. durchlaufen und im Zweig [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\ACPI\] nach IDs suchen, die NICHT den Wert "SkipEnumerations"=dword:00000000" enthalten und bei "PortName"=" den Wert COM (X) enthalten.

Bei Treffer soll er die entspr. Ergänzungen in der Reg vornehmen; bei keinem Treffer weitersuchen, bis er den Zweig [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\ACPI\] komplett durchsucht hat.

Die entsprechende Ergänzung wäre dieser Eintrag: (Dieser wert ist bei jedem PC variabel 5&478170f&0)

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\ACPI\PNP0501\5&478170f&0\Device Parameters]
"FirmwareIdentified"=dword:00000001
"DosDeviceName"="COM1"
"PortName"="COM1"
"PollingPeriod"=dword:00000000
"SkipEnumerations"=dword:FFFFFFFE


Ich hoffe ihr könnt mir helfen.
Danke und Gruß