Installed Applications List

#Installed applications List
$res=@()
$paths='HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall','HKLM:\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall'
ForEach($path in $paths)
{
    $keys=Get-ChildItem -path $path
    ForEach($key in $keys)
    {
        $newpath=$path+'\'+$key.PSChildName
        $name=(Get-ItemProperty -Path $newpath -Name 'DisplayName' -ErrorAction SilentlyContinue ).DisplayName
        $version=(Get-ItemProperty -Path $newpath -Name 'DisplayVersion' -ErrorAction SilentlyContinue ).DisplayVersion
        If($name.Length -gt 0)
        {
            $res+=[PSCustomObject] @{logiciel=$name;version=$version}
        }
    }
}
$res|sort -unique -property logiciel|out-GridView