VBS скрипт поиска в ветке реестра с динамическим именем
 

Добрый день форумчане и разработчики скриптов!
Существует задача для решения которой нужен vbs скрипт
MS outlook (2010,2013,2016,2019,365) + адресная книга LDAP в настройках которой необходимо дописать базу поиска.
Проблема в том что ветка реестра в которую записываются настройки книжки LDAP в зависимости от версии офис отличается:
2019 - HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Outlook\Profiles\Outlook\xxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxx
2016 - HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Outlook\Profiles\Outlook\xxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxx
2013 - HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\15.0\Outlook\Profiles\Outlook\xxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxx
2010 - HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
где xxxx - на каждом пк различается и не единственное в профиле по умолчанию Outlook\
Необходимо в ветке Outlook\ найти контейнер с ключом 001e6600 значение которого содержит book.local и в этом контейнере в ключ 001e6603 записать значение DC=book,DC=local
необходим именно vbs в котором сам не ориентируюсь..

на ps пару строк, но нужно на vbs
$asd=(Get-ChildItem "HKCU:\Software\Microsoft\" -Recurse | where Property -EQ 001e6603)
$path=$asd.PSPath
Set-ItemProperty -Path $path -Name "001e6603" -Value DC=book,DC=local