Unfortunately, enumerating keys/values is not facilitated thru VBS, it was designed for
simple read/write/delete access to the registry.
That said, the functionality you desire can still be achieved. Use Regedit to export the key to a text file.
Set oShell = CreateObject("WScript.Shell"

oShell.Run "COMMAND /C REGEDIT /E C:\temp.txt HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall"
Now, parse C:\temp.txt for the DisplayName values or use Find to export the lines with DisplayName.
oShell.Run "COMMAND /C FIND ""DisplayName"" C:\temp.txt >C:\temp2.txt"
Now, C:\temp2.txt contains a list of all the DisplayName values. Use the FSO to parse this file and present the list to your user.
Jon Hawkins