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
- :
- Change attribute for all components?
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
Feb 24, 2016
06:06 AM
Change attribute for all components?
Hi everyone
I have created a basic MSI Project with a 1000+ components.
I need to change the attribute value from 8 to 0 on all components in one in stead of editing every component one by one.
How do I do this??
If i go to the Direct Editor -> Component I can do a search and replace... but I cannot narrow this down to a single column.. only the entire table which is not always the best solution.
I only want to edit the column.
Best Regards,
Christian
I have created a basic MSI Project with a 1000+ components.
I need to change the attribute value from 8 to 0 on all components in one in stead of editing every component one by one.
How do I do this??
If i go to the Direct Editor -> Component I can do a search and replace... but I cannot narrow this down to a single column.. only the entire table which is not always the best solution.
I only want to edit the column.
Best Regards,
Christian
(1) Reply
- Mark as New
- Subscribe
- Mute
- Permalink
- Report Inappropriate Content
Feb 24, 2016
08:33 AM
Hello!
You can do it with automation interface, for examle in VBS:
You can do it with automation interface, for examle in VBS:
If Wscript.Arguments.Count < 1 Then
Wscript.Echo "Specify the full path to the .ism file"
Wscript.Quit 1
End If
Dim pProject
Set pProject = CreateObject("ISWiAuto20.ISWiProject"): CheckError
pProject.OpenProject Wscript.Arguments(0): CheckError
Dim pComponent
For Each pComponent in pProject.ISWiComponents
pComponent.SharedDLLRefCount = False
Next
pProject.SaveProject: CheckError
pProject.CloseProject: CheckError
Wscript.Echo "Success."
Sub CheckError()
Dim message, errRec
If Err = 0 Then Exit Sub
message = Err.Source & " " & Hex(Err) & ": " & Err.Description
Wscript.Echo message
Wscript.Quit 2
End Sub
![](/skins/images/D60DF682EA37BF37032955CE10F3F0BB/responsive_peak/images/icon_anonymous_message.png)