ГлавнаяMS ACCESS Получение списка установленных программ с помощью WMI
Получение списка установленных программ с помощью WMI
Автор osmor
07.10.2005 г.
Public Function InstalledProgramm(Optional strFilterVendor As String = "") 'Выводит список программ установленных на локальном компьютере 'Если вызывать без параметра InstalledProgramm() или InstalledProgramm("")- 'возвращает список всех программ 'Если указать параметр, вернет список программ только указанного поставщика 'например InstalledProgramm("Microsoft") список программ компании Microsoft
On Error Resume Next
Const wbemFlagReturnImmediately = &H10 Const wbemFlagForwardOnly = &H20 Dim objWMIService As Object Dim colItems As Object Dim objItem As Object
Set objWMIService = GetObject("winmgmts:\\" & "localhost" & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Product" _ & IIf(strFilterVendor = "", "", _ " where Vendor Like '%" & strFilterVendor & "%'"), "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly)
Debug.Print "Список установленных программ" For Each objItem In colItems Debug.Print "****************************************" Debug.Print "Имя: " & objItem.Name Debug.Print "Описание: " & objItem.Description Debug.Print "Дата установки: " & WMIDateStringToDate(objItem.InstallDate2) Debug.Print "Продавец: " & objItem.Vendor Debug.Print "Версия: " & objItem.Version Debug.Print Next