Работа с реестром

Sub Main

Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
' чтение пути
bKey = WshShell.RegRead("HKCU\Software\Rational Software\Rational\")
' чтение значения параметра - без слеша на конце
bKey = WshShell.RegRead("HKCU\Software\Rational Software\Rational")

'запись нового подпути
bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\")
' запись значения
WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader")

' удаление
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\MindReader"

End Sub

Пример взят из обсуждения:
http://forums.softwa...st=