Was habt ihr zuletzt kopiert?

$SubBranch="SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall"  
            $registry=[microsoft.win32.registrykey]::OpenRemoteBaseKey('Localmachine',$computername)  
            $registrykey=$registry.OpenSubKey($Subbranch)  


            $SubKeys=$registrykey.GetSubKeyNames()   


            Foreach ($key in $subkeys) {  


                $exactkey=$key  


                $NewSubKey=$SubBranch+"\\"+$exactkey  


                $ReadUninstall=$registry.OpenSubKey($NewSubKey)  


                $Value=$ReadUninstall.GetValue("DisplayName")  


                $richtextbox4.Text="Hier wird die installierte Software angezeigt:"+ $Value


}