Change attribute for all components?

[RoejbaekDK]

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

[kolotik]

Hello!
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