This website uses cookies. By clicking Accept, you consent to the use of cookies. Click Here to learn more about how we use cookies.
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
- Revenera Community
- :
- InstallShield
- :
- InstallShield Forum
- :
- Urgent: Want changes made by one installer to be undone by another installer
Subscribe
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Subscribe
- Mute
- Printer Friendly Page
- Mark as New
- Subscribe
- Mute
- Permalink
- Report Inappropriate Content
‎Jun 28, 2011
12:53 PM
Urgent: Want changes made by one installer to be undone by another installer
Hi there,
I want changes made by one installer (A) to be undone (uninstalled) by another installer.
What changes can I make in Installer A so that installer B can undo changes made by installer A.
Installer A is fixing problem (bug) present in installer B. I also do not want installer A entry to appear in "Add/Remove programs" list.
Thanks so much in advance.
Pankaj
I want changes made by one installer (A) to be undone (uninstalled) by another installer.
What changes can I make in Installer A so that installer B can undo changes made by installer A.
Installer A is fixing problem (bug) present in installer B. I also do not want installer A entry to appear in "Add/Remove programs" list.
Thanks so much in advance.
Pankaj
(2) Replies
- Mark as New
- Subscribe
- Mute
- Permalink
- Report Inappropriate Content
‎Jun 29, 2011
11:16 AM
You can use a VB Script CA to modify another installation. This one targets previous versions on an upgrade, but you can substitute a different upgrade code:
on error resume next
Const msiOpenDatabaseModeTransact = 1
Set oInstaller = Session.Installer
For Each ProductCode in oInstaller.RelatedProducts(Session.Property("UpgradeCode"))
Set oDatabase = oInstaller.OpenDatabase( oInstaller.ProductInfo( ProductCode, "LocalPackage" ), msiOpenDatabaseModeTransact )
Set oView = oDatabase.OpenView("DELETE FROM `RemoveFile` WHERE `FileName`='ABC'" )
oView.Execute
Set oView = oDatabase.OpenView("UPDATE `InstallExecuteSequence` SET `Condition`='VersionNT' WHERE `Action`='DEF'" )
oView.Execute
Set oView = oDatabase.OpenView("DELETE FROM `InstallExecuteSequence` WHERE `Action`='GHI'" )
oView.Execute
Set oView = oDatabase.OpenView("UPDATE `Component` SET `Attributes`='16' WHERE `Component`='XYZ'" )
oView.Execute
oDatabase.Commit
Next
on error resume next
Const msiOpenDatabaseModeTransact = 1
Set oInstaller = Session.Installer
For Each ProductCode in oInstaller.RelatedProducts(Session.Property("UpgradeCode"))
Set oDatabase = oInstaller.OpenDatabase( oInstaller.ProductInfo( ProductCode, "LocalPackage" ), msiOpenDatabaseModeTransact )
Set oView = oDatabase.OpenView("DELETE FROM `RemoveFile` WHERE `FileName`='ABC'" )
oView.Execute
Set oView = oDatabase.OpenView("UPDATE `InstallExecuteSequence` SET `Condition`='VersionNT' WHERE `Action`='DEF'" )
oView.Execute
Set oView = oDatabase.OpenView("DELETE FROM `InstallExecuteSequence` WHERE `Action`='GHI'" )
oView.Execute
Set oView = oDatabase.OpenView("UPDATE `Component` SET `Attributes`='16' WHERE `Component`='XYZ'" )
oView.Execute
oDatabase.Commit
Next
- Mark as New
- Subscribe
- Mute
- Permalink
- Report Inappropriate Content
‎Jun 29, 2011
08:52 PM
This sounds like a recipe for a diaster. One installer shouldn't intentionally mess with components registered to another installer.
Have you instead considered authoring a patch for the bad installer?
Have you instead considered authoring a patch for the bad installer?
![](/skins/images/D60DF682EA37BF37032955CE10F3F0BB/responsive_peak/images/icon_anonymous_message.png)