Вверх ↑
Этот топик читают: Гость
Ответов: 242
Рейтинг: 13
#1: 2009-06-04 21:10:25 ЛС | профиль | цитата
доброй ночи пожалуйста намекните как получить список установленного ПО при этом минуя обновления (желательно) с какой стороны копать? с ветки Software?
карма: 0

0
Ответов: 1161
Рейтинг: 160
#2: 2009-06-04 22:17:40 ЛС | профиль | цитата
так попробуй
code_13598.txt
вот только на счет обновлений надо подумать...
карма: 0

1
файлы: 1code_13598.txt [1.7KB] [175]
Голосовали:Bams
Ответов: 242
Рейтинг: 13
#3: 2009-06-05 09:44:49 ЛС | профиль | цитата
Вот на выходе получаем без обновлений

code_13600.txt
карма: 0

0
файлы: 1code_13600.txt [2.4KB] [165]
Гость
Ответов: 17029
Рейтинг: 0
#4: 2009-06-05 09:53:21 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-11 23:11:10
карма: 0

0
Ответов: 14
Рейтинг: 2
#5: 2009-06-08 16:08:13 ЛС | профиль | цитата
Список установленного ПО можно также получить используя WMI
------------ Дoбавленo в 16.35:
Вот схема:

Add(MainForm,7400529,280,84){
Left=20
Top=105
WindowsState=2
}
Add(VBJScript,5068143,399,119)
{
WorkPoints=#6:doWork|
EventPoints=#7:onEvent|
Script=#27:Function doWork(Data,Index)|0:|20:On Error Resume Next|0:|17:strComputer = "."|0:|74:Set objWMIService = GetObject("winmgmts:\" & strComputer & "ootcimv2")|69:Set colItems = objWMIService.ExecQuery("Select * from Win32_Product")|28:For Each objItem in colItems|0:|107:sys.onEvent objItem.Caption & ";" & objItem.Description & ";" & objItem.InstallDate & ";" & objItem.Version|0:|4:Next|0:|12:End Function|
UseName=0
link(onEvent,6211496:doAdd,[])
}
Add(StringTable,6211496,455,119)
{
Left=545
Top=125
Align=5
Columns=#12:Название=400|12:Описание=500|28:Дата установки на машину=180|11:Версия=200 |
}
Add(Button,9681997,350,119)
{
Left=350
Top=115
Align=2
link(onClick,5068143:doWork,[])
}
карма: 1

0
5
Сообщение
...
Прикрепленные файлы
(файлы не залиты)