code:

---

break on
 
$WSInfoFile = ".\wsinfo.ini"
$Num = 0
$RootKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
 
$Index = 0
$Key = EnumKey($RootKey, $Index)
While @Error = 0
 $RC = EnumValue($RootKey + $Key, 1)
 If @Error = 0
  $Value = ReadValue($RootKey + $Key, "DisplayName")
  If $Value = ""
   $Value = ReadValue($RootKey + $Key, "QuietDisplayName")
   If $Value = ""
    $Value = $Key
   EndIf
  EndIf
  $RC = WriteProfileString("$WSInfoFile", "ProgramInfo", "$Key", "$Value")
  $Num = $Num + 1
 EndIf
 $Index = $Index + 1
 $Key = EnumKey($RootKey, $Index)
Loop
 
exit 1

---