Installierte Software in Windows auslesen

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    Installierte Software in Windows auslesen

    Hallo,

    gibt es eine Möglichkeit und die Liste der Aktuell auf dem PC Installierten Software (z.B. die der kategorie "Software" in der Systemsteuerung) in VB auszulesen und z.B. in ne Listbox zu schreiben? Wäre nett wenn mir da jemand n tipp/link/codeschnipsel geben könnte...

    MfG

    Ja hab schon n Teil per WMI, aber nur für 32-Bit:

    VB.NET-Quellcode

    1. Try
    2. Dim searcher As New ManagementObjectSearcher( _
    3. "root\CIMV2", _
    4. "SELECT * FROM Win32_Product")
    6. For Each queryObj As ManagementObject In searcher.Get()
    8. ListBox1.Items.Add(queryObj("Caption"))
    9. Next
    10. Catch err As ManagementException
    11. MessageBox.Show("Folgender Fehler ist auf aufgetreten: " & err.Message)
    12. End Try


    Nur wie krieg ich des für 64 bit umgeschrieben bzw ne liste

    Mh irgendwie komm ich damit nicht klar :D ich krieg zwar die ordner angezeigt, aber ka, wie ich nun ne software liste kriege

    Habs:

    VB.NET-Quellcode

    1. Dim Key As RegistryKey
    2. Key = Registry.LocalMachine.OpenSubKey( _
    3. "SOFTWARE\Wow6432Node\Microsoft\Windows\" _
    4. & "CurrentVersion\Uninstall")
    6. Dim SubKeyNames() As String
    7. SubKeyNames = Key.GetSubKeyNames()
    8. ' Unterzweige Rausfinden
    9. For i = LBound(SubKeyNames) To UBound(SubKeyNames) - 1
    10. Dim key2 As RegistryKey
    11. key2 = Registry.LocalMachine.OpenSubKey( _
    12. "SOFTWARE\Wow6432Node\Microsoft\Windows\" _
    13. & "CurrentVersion\Uninstall\" & SubKeyNames(i))
    14. Dim ValueNames As String
    15. ValueNames = key2.GetValue("DisplayName")
    16. ' Namen der Schlüssel ausgeben
    17. Try
    18. ListBox1.Items.Add(ValueNames)
    19. Catch
    20. End Try
    23. Next

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „DJ Re-DarK“ ()

    Für die Leute, die sich fragen, warum hier jemand übersehen hat, dass die letzte Antwort 10 Jahre her ist:
    *closed
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende