MOTOBIT.COM - ASP upload, IIS utility List of installed software

'The script writes all installed software on the computer.

Wscript.Echo "Software installed on this machine :"
Wscript.Echo "************************************"

  Set S = CreateObject("RegEdit.Server")
  For Each Key In S.Keys("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall").SubKeys
      If Key.ExistsValue("DisplayName") Then 
        Wscript.Echo Key.Values("DisplayName").Value 
      Else 
        Wscript.Echo "(" & Key.Name & ")"
      End If
  Next