Книга: Недокументированные и малоизвестные возможности Windows XP

Получение сведений об установленных на компьютере программах

Получение сведений об установленных на компьютере программах

Это еще одна интересная возможность WMI, которой можно воспользоваться. Другими словами, можно удаленно узнавать о том, установлена ли на компьютере какая-либо программа, когда она была установлена, а также просмотреть весь список установленных на компьютере программ. Для примера попробуем создать текстовый файл, содержащий сведения об установленных на компьютере программах, их описании, а также дате установки. В приведенном ниже коде будет использоваться еще одна возможность WMI — получение сведений непосредственно из ее базы данных.

'Объявляем объект для доступа к файловой системе, а потом создаем файл,
'в который будут записываться сведения об установленных на компьютере
'программах (например, файл Program_list.txt в каталоге e:)
set objFSO = CreateObject("Scripting.FIleSystemObject")
set objTextFile = objFSO.CreateTextFile("e:Program_list.txt", True)
'Подключаемся к пространству имен rootcimv2
set objWMIService = GetObject("winmgmts:" & "{impersonationLevel = impersonate}!rootcimv2")
'Выполняем SQL-запрос на получение всех записей из таблицы Win32_Product
'Конечно, можно было бы использовать SQL-запрос для получения только
'отдельных записей или колонок таблицы, но для примера нам такой сложный
'запрос не нужен
set colSoftware = objWMIService.ExecQuery("Select * from Win32_Product")
'Записываем в созданный ранее файл информацию об установленных программах.
'Здесь мы пользуемся циклом, выполняемым для каждого элемента массива
'colSoftware. После окончания записи закрываем файл
for each objSoftware in colSoftware
 objTextFile.WriteLine "Программа: " & objSoftware.Caption & " (описание программы:" & objSoftware.Description & ") была установлена: " & objSoftware.InstallDate2
next
objTextFile.Close

После выполнения данного сценария в указанном каталоге появится текстовый файл с описанием установленных программ. При этом, кроме названия программы, ее описания и даты установки, можно получить и другую информацию об установленных программах. Например, можно воспользоваться такими столбцами:

? objSoftware.IdentifyiungNumber — серийный номер программы;

? objSoftware.InstallLocation — каталог, в который установлена программа;

? objSoftware.Name — название программы, как правило, не отличается от objSoftware.Caption;

? objSoftware.Vendor — производитель программы;

? objSoftware.Version — версия программы.

Оглавление книги