Wmi получение данных об установленом софте

@Dinkin · Регистрация: 31.05.2013

Студворк — интернет-сервис помощи студентам

Доброго!
Через WMI запрос (SELECT * FROM Win32_Product) получаю список установленого софта на ПК. Но в этом списк много лишнего, такое как пачи или компонент и тд.
Можно ли как то отфильтровать по параметром, что бы получить точно такой же список как и через форму "Программы и компоненты" на ОС?....
Делалал через поиск по реестру, там еще больше лишнего.

@Dinkin · 29.08.2018, 13:53 **[ТС]**

Да действительно,скрипт выдает,что не видит комп в сети, и перезагрузка не помогла....возможно, что то надо еще прописать?

FlasherX · 29.08.2018, 14:01

Может, в виртуальной папке Сеть (Сетевое окружение) компьютер как-то иначе называется?

@Dinkin · 29.08.2018, 14:07 **[ТС]**

FlasherX, по этому именни он пингуется и подключаюсь удалнно. И в сети с 10-ок ПК, на всех такая реакция

FlasherX · 29.08.2018, 14:19

По какому "этому"? Я про список в папке спросил. Какая реакция? Ничего не понял..

@Dinkin · 29.08.2018, 14:23 **[ТС]**

Это я запускаю со своего ПК и удаленно проверю доступ ли другой ПК по локалке, верно?

Visual Basic
1
2
3
4
RemoteComp =  "LOCAL0396"  
For Each N In CreateObject("Shell.Application").NameSpace(18).Items
    If N.Name = RemoteComp Then Test = True : Exit For
Next : If Test Then MsgBox "Yes.", 4160 Else MsgBox "No.", 4144

И выдает

FlasherX · 29.08.2018, 14:28

С этим было ясно. Я поэтому и спросил про иное название в списке. Давайте уже весь список посмотрим:

Visual Basic
1
2
3
4
For Each N In CreateObject("Shell.Application").NameSpace(18).Items
    List = List & vbCr & N.Name
Next
WSH.Echo List

@Dinkin · 29.08.2018, 14:37 **[ТС]**

FlasherX, еще раз благадарю,что поддерживате тему)
Старнно, запрос мне выдал только 4 принтера и один какойто ПК,хотя в сети оч много машин

FlasherX · 29.08.2018, 14:54

Зайдите в сеть (shell:NetworkPlacesFolder). Там тот же список?

@Dinkin · 29.08.2018, 15:32 **[ТС]**

Да действительно, проверил,в сетевом окружении, только этот список. Но ведь я же могу делать манипуляции с ПК,у котрого не включено сетевое обнаружение. Я думал для скрипта не принцепиально, виден комп всем или нет

FlasherX · 29.08.2018, 17:13

Стоит провести эксперимент. Есть машина из окружения. Если с ней не выходит, то причину стоит искать в другом.

@Dinkin · 29.08.2018, 17:36 **[ТС]**

С машиной что в окружении,все нормально и скрипт ее находит)) ВЫходит надо ка кто изменить функционал дозвона до других магин?

FlasherX · 29.08.2018, 17:53

Сообщение от Dinkin

и скрипт ее находит

Речь об исходном скрипте #11, а не последнем проверочном.

@Dinkin · 29.08.2018, 17:59 **[ТС]**

Сообщение от FlasherX

Речь об исходниом скрипте, а не последнем проверочном? Т. е. список на вашей машине открывается?

Только находит ПК, а ошибку, такую же выдает (15 строка, 10 символ)

FlasherX · 29.08.2018, 18:24

А как поняли, что находит ПК, если выдаёт ошибку?

@Dinkin · 29.08.2018, 18:26 **[ТС]**

По вашему укороченому скрипту

Visual Basic
1
2
3
4
RemoteComp =  "LOCAL0559"  
For Each N In CreateObject("Shell.Application").NameSpace(18).Items
    If N.Name = RemoteComp Then Test = True : Exit For
Next : If Test Then MsgBox "Yes.", 4160 Else MsgBox "No.", 4144

Выдает "Yes" )

FlasherX · 29.08.2018, 18:40

Это-то понятно. А как иначе, если есть в списке? Меня только целевой скрипт интересовал.

Кстати, а если 17 строку вставить между 14 и 15, на какую ругнётся?

@Dinkin · 29.08.2018, 18:44 **[ТС]**

Вставил, выдает такую же ошибку, так же на 15 строку (тоесть бывшую 17) =)

FlasherX · 29.08.2018, 19:29

Dinkin, была такая темка. Попробуйте рекомендации. + эти. Ещё кое-что в ЛС скинул.

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,182 Записей в блоге: 3

	Wmi получение данных об установленом софте 23.08.2018, 14:23. Показов 2971. Ответов 57 Метки нет (Все метки) Доброго! Через WMI запрос (SELECT * FROM Win32_Product) получаю список установленого софта на ПК. Но в этом списк много лишнего, такое как пачи или компонент и тд. Можно ли как то отфильтровать по параметром, что бы получить точно такой же список как и через форму "Программы и компоненты" на ОС?.... Делалал через поиск по реестру, там еще больше лишнего. 0

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,182 Записей в блоге: 3
	29.08.2018, 13:53 [ТС]
	Да действительно,скрипт выдает,что не видит комп в сети, и перезагрузка не помогла....возможно, что то надо еще прописать? 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	29.08.2018, 14:01
	Может, в виртуальной папке Сеть (Сетевое окружение) компьютер как-то иначе называется? 0

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,182 Записей в блоге: 3
	29.08.2018, 14:07 [ТС]
	FlasherX, по этому именни он пингуется и подключаюсь удалнно. И в сети с 10-ок ПК, на всех такая реакция 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	29.08.2018, 14:19
	По какому "этому"? Я про список в папке спросил. Какая реакция? Ничего не понял.. 0

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,182 Записей в блоге: 3
	29.08.2018, 14:37 [ТС]
	FlasherX, еще раз благадарю,что поддерживате тему) Старнно, запрос мне выдал только 4 принтера и один какойто ПК,хотя в сети оч много машин 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	29.08.2018, 14:54
	Зайдите в сеть (shell:NetworkPlacesFolder). Там тот же список? 0

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,182 Записей в блоге: 3
	29.08.2018, 15:32 [ТС]
	Да действительно, проверил,в сетевом окружении, только этот список. Но ведь я же могу делать манипуляции с ПК,у котрого не включено сетевое обнаружение. Я думал для скрипта не принцепиально, виден комп всем или нет 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	29.08.2018, 17:13
	Стоит провести эксперимент. Есть машина из окружения. Если с ней не выходит, то причину стоит искать в другом. 0

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,182 Записей в блоге: 3
	29.08.2018, 17:36 [ТС]
	С машиной что в окружении,все нормально и скрипт ее находит)) ВЫходит надо ка кто изменить функционал дозвона до других магин? 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	29.08.2018, 18:24
	А как поняли, что находит ПК, если выдаёт ошибку? 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	29.08.2018, 18:40
	Это-то понятно. А как иначе, если есть в списке? Меня только целевой скрипт интересовал. Кстати, а если 17 строку вставить между 14 и 15, на какую ругнётся? 0

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,182 Записей в блоге: 3
	29.08.2018, 18:44 [ТС]
	Вставил, выдает такую же ошибку, так же на 15 строку (тоесть бывшую 17) =) 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	29.08.2018, 19:29
	Dinkin, была такая темка. Попробуйте рекомендации. + эти. Ещё кое-что в ЛС скинул. 1