Dim RegKey As Microsoft.Win32.RegistryKey
        Dim SubRegKeyName As String
        Dim subkeys() As String
        Dim software As String
        Dim StreamWriter As System.IO.StreamWriter
        StreamWriter = New System.IO.StreamWriter("C:\software.txt")
 
        Try
            'Registry
            RegKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
              "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
            subkeys = RegKey.GetSubKeyNames
            StreamWriter.WriteLine("Software:")
 
            ' Key auslesen
            For i1 As Integer = 0 To RegKey.SubKeyCount - 1
                SubRegKeyName = subkeys(i1).ToString
                software = ""
                Try
                    software = RegKey.OpenSubKey(SubRegKeyName).GetValue( _
                      "DisplayName").ToString
                Catch ex As Exception
 
                End Try
                If software <> "" Then
                    StreamWriter.WriteLine(software)
                End If
            Next
 
        Catch ex As Exception
            MessageBox.Show("Fehler")
        Finally
            StreamWriter.Close()
        End Try

fg viperbone