List all the installed applications on a given machine

Find the below script to get the all installed application in given server.

 strHost = "."
 Const HKLM = &H80000002
 Set objReg = GetObject("winmgmts://" & strHost & _
     "/root/default:StdRegProv")
 Const strBaseKey = _
     "Software\Microsoft\Windows\CurrentVersion\Uninstall\"
 objReg.EnumKey HKLM, strBaseKey, arrSubKeys
 For Each strSubKey In arrSubKeys
     intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _
         "DisplayName", strValue)
     If intRet <> 0 Then
         intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _
         "QuietDisplayName", strValue)
     End If
     If (strValue <> "") and (intRet = 0) Then
         WScript.Echo strValue
     End If
 Next

For more Link