/bundles/itninjaweb/img/Breadcrumb_cap_w.png
Hi,
I am working on an msi, which at the moment only contains a VBscript. The script runs fine on its own but when I add it as a custom action I am getting the following error:

Internal Error 2235. ,RuntimeFlags, Select 'Component','RuntimeFlags','KetPath','Attributes'FROM 'Component'WHERE 'Component' = ?

VB script is as follows


strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService. _
ExecQuery("Select * From CIM_DataFile Where Name = 'C:\\oracle\\ora92\\bin\\oraclient9.dll'")

If colFiles.Count <> 0 Then

Set colFiles = objWMIService.ExecQuery _
("Select * From CIM_DataFile Where FileName = 'tnsnames' and Extension = 'ora'")

For Each objFile in colFiles

strNewName = objFile.Drive & objFile.Path & "tnsnames.old"
errResult = objFile.Rename(strNewName)

Next

Else

End If


any help on this would be appreciated.
many thanks
Jimmy
0 Comments   [ - ] Hide Comments

Comments

Please log in to comment

Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.
Answer this question or Comment on this question for clarity

Answers

0
Add a dummy component to your install. All MSI's require at least one component.
Answered 11/28/2008 by: Jamie B
Orange Senior Belt

Please log in to comment
0
Your MSI has no components. Add a dummy component to the Component table. The GUID needs to be generated somehow, of course but that's easy enough:

Component = DummyComponent
ComponentID = {A0F2122D-3077-429A-8674-91A3072B7656}
Directory_ = ProgramFilesFolder
Attributes = 0
Condition = (leave blank)
KeyPath = (leave blank)
Answered 11/28/2008 by: VBScab
Red Belt

Please log in to comment
0
Sorry me being dumb, had to add a dummy component!!

Sorry Ian and JamieB missed your posts!!
Many thanks for that
Answered 11/28/2008 by: jimmyx
Purple Belt

Please log in to comment