Installierte Software auslesen

$ComputerName = Read-Host "Gebe Geräte-ID ein"  
Write-Host
Write-Host "Bitte warten ... Liste wird erstellt"  
Write-Host

# Function to get installed Software (Method Remote-WMI)
function Get-InstalledSoftware {
    param(
        [parameter(mandatory=$true)][ValidateNotNullOrEmpty()][string]$ComputerName
    )
    $all = @();$hklm = 2147483650; $hkcu = 2147483649
    # Subkeydefinition for Uninstallinformation
    $key = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"  
    $key64 = "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall"  
    try{
        # connect to StdRegProv via Remote-WMI
        $reg = gwmi -List "StdRegProv" -ComputerName $ComputerName -Namespace root\Default  
        # scriptblock function to get desired Information
        $getnodedata = {
            param($section,$k)
            $reg.EnumKey($section,$k).sNames | %{
                [pscustomobject] @{
                    Name=$reg.GetStringValue($section,"$k\$_","DisplayName").sValue  
                    Version=$reg.GetStringValue($section,"$k\$_","DisplayVersion").sValue  
                    InstallLocation=$reg.GetStringValue($section,"$k\$_","InstallLocation").sValue  
                    InstallSource=$reg.GetStringValue($section,"$k\$_","InstallSource").sValue  
                    UninstallString=$reg.GetStringValue($section,"$k\$_","UninstallString").sValue  
                    InstallDate=$reg.GetStringValue($section,"$k\$_","InstallDate").sValue  
                }
            }
        }
        # call scriptblock function 
        $all += .$getnodedata $hklm $key
        $all += .$getnodedata $hkcu $key
        # call scriptblock function for 64bit section if available
        if ((gwmi Win32_OperatingSystem -ComputerName $ComputerName).OSArchitecture -eq '64-Bit'){  
            $all += .$getnodedata $hklm $key64
            $all += .$getnodedata $hkcu $key64
        }     
            }catch{
        throw $_.Exception.Message
    }
    # return sorted and unique object data
    return ($all | ?{$_.Name -ne $null} | sort Name | select Name,Version,InstallLocation,InstallSource,UninstallString,InstallDate -Unique)
}
$result = Get-InstalledSoftware $env:ComputerName
$result | select Name,UninstallString | Export-Csv -path C:\PC_Software_Inventur\Software_$ComputerName.csv -UseCulture
Write-Host
Write-Host "Liste befindet sich unter C:\PC_Software_Inventur"  
Write-Host
Read-Host "Enter zum Beenden"