Set b = a.OpenDatabase ("C:acdseeACDSee 10 Photo Manager.msi",1)

b.OpenView("INSERT INTO Property ?

    (Property.Property, Property.Value) VALUES ('PIDKEY', '1234567890')").Execute

b.Commit

Удаление существующих полей из таблицы

Удаление какого-либо поля осуществляется в соответствии со следующим алгоритмом:

n  установить курсор на таблицу, в которой необходимо удалить параметр;

n  установить курсор на удаляемый параметр в таблице;

n  нажать кнопку <DEL> на клавиатуре или правую кнопку мыши, а в контекстном меню – DELETE;

n  подтвердить намерение удалить параметр.

Эту же задачу можно решить программным способом (см. листинг 4), используя шаблон 1. Для обеспечения возможности записи в таблице необходимо установить второй параметр метода OpenDatabase равным единице (1).

Листинг 4. Удаление существующего атрибута в таблице

Set a = CreateObject("WindowsInstaller.Installer")

Set b = a.OpenDatabase ("C:acdseeACDSee 10 Photo Manager.msi",1)

b.OpenView("DELETE FROM Property WHERE 'PIDKEY'='1234567890')").Execute

b.Commit

Изменение значений существующих полей

Изменение значения осуществляется путем установки курсора в необходимую ячейку двойным щелчком левой кнопки мыши (см. рис. 3).

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

В листинге 5 осуществляется отключение компонента Device Detector.

Листинг 5. Изменение значений существующих полей таблицы

Set a = CreateObject("WindowsInstaller.Installer")

Set b = a.OpenDatabase ("C:acdseeACDSee 10 Photo Manager.msi",1)

b.OpenView("UPDATE Feature SET Level='0' WHERE Feature='DevDetect'").Execute

b.Commit

Заключение

Внимательно изучив предложенный вариант, читатель без труда сможет либо с помощью сценария на VBScript, либо с помощью программы orca.exe значительно облегчить себе задачу массовой установки программного обеспечения, что позволит сэкономить массу времени и сил.