Список установленных программ

[djande]

Доброго времени суток! Мне на VB6 нужно вывести список всех установленных программ в Windows. Например, как это сделано в Панель управления -> Установка и удаление программ. И ещё надо узнать пути к этим всем программам. Помогите пожалуйста.

[Antonariy]

WMI Win32_Product
Закройте, пока профессионалы не опплевались.

[djande]

Antonariy, подскажите поподробнее. Я нашел код, который определяет не установлен ли MS OFFICE?

Код: Выделить всё

Sub Example()
Dim objWMI As Object
Dim softCollection As Object
Dim objSoft As Object
Dim listSoft As String
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set softCollection = objWMI.ExecQuery("select * from Win32_Product where Vendor = 'Microsoft Corporation'")
For Each objSoft In softCollection
        If StrComp(Mid(objSoft.Caption, 1, 16), "Microsoft Office", vbTextCompare) = 0 Then
                listSoft = listSoft & objSoft.Caption & vbTab & objSoft.Version & vbCr
        End If
Next
If Len(listSoft) > 0 Then
        MsgBox "Установленное ПО:" & vbCr & listSoft
Else
        MsgBox "Искомое ПО не установлено"
End If
End Sub

А как мне узнать, список всех установленных программ?

[Antonariy]

Убрать where vendor… и If StrComp…

[djande]

Antonariy, убрал, всё равно не работает, что нужно, чтобы вывести полный список программ, установленных на компьютере

Код: Выделить всё

Sub Example()
Dim objWMI As Object
Dim softCollection As Object
Dim objSoft As Object
Dim listSoft As String

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

If Len(listSoft) > 0 Then
        MsgBox "Установленное ПО:" & vbCr & listSoft
Else
        MsgBox "Искомое ПО не установлено"
End If
End Sub

[Денис]

Antonariy, убрал, всё равно не работает, что нужно, чтобы вывести полный список программ, установленных на компьютере

Код: Выделить всё

Sub Example()

End Sub

Вы вместе с водой выплеснули ребенка. Select надо было оставить. И For Each тоже.

Вот так:

Код: Выделить всё

Option Explicit

Private Sub CommandButton1_Click()

Dim objWMI As Object
Dim softCollection As Object
Dim objSoft As Object
Dim listSoft As String

    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set softCollection = objWMI.ExecQuery("select * from Win32_Product")

    For Each objSoft In softCollection
        ListBox.AddItem objSoft.Caption & vbTab & objSoft.Version
    Next

End Sub

[djande]

Денис, огромное спасибо, а пути я к ним могу узнать например C:\Program\PhCs3\s.exe, и могу я эти программы удалить из системы при желании?

[Денис]

Денис, огромное спасибо, а пути я к ним могу узнать, и могу я их удалить при желании?

Я не знаю...

[djande]

Кто знает?

[Antonariy]

Яндекс.
Вторая ссылка, если поискать те слова, что я указал с самого начала.

[djande]

Разобрался, всем спасибо, кто помог