'appslist.vbs

Const HKLM = &H80000002
strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" 
Set objReg = GetObject("winmgmts://./root/default:StdRegProv")
objReg.EnumKey HKLM, strKey, arrSubkeys 
For Each strSubkey In arrSubkeys 
  If objReg.GetStringValue(HKLM, strKey & strSubkey, "DisplayName", strValue) <> 0 Then 
    objReg.GetStringValue HKLM, strKey & strSubkey, "QuietDisplayName", strValue
  End If 
  If strValue <> "" Then 
    WScript.Echo strValue
  End If 
Next

CSCRIPT //NoLogo C:\appslist.vbs