Retrieving GUID from installation

[T RATHA KRISHNAN]

Hi! I've created InnoSetup output files for a VB application a long time ago. I lost the script files(.iss files). But I've the output files(Setup files). Is it possible to install the setup and retrieve the GUID(AppId) from the installation? How?

[Dave Kreskowiak]

If you're talking about the ProductCode, then this is a script I use by putting a shortcut in the SendTo menu to get it. All I do is right-click the .MSI, Send To -> GetProductCode.

Dim msi,database,view1,record,productCode

Set msi = CreateObject("WindowsInstaller.Installer")
Set database = msi.OpenDatabase(WScript.Arguments(0), 1)

Set view1 = database.OpenView("SELECT `Value` FROM `Property` WHERE `Property` = 'ProductCode'")
Call view1.Execute

Set record = view1.Fetch
If record Is Nothing Then
MsgBox "Unable to find a ProductCode in the MSI database!"
WScript.Quit
End if

productCode = record.StringData(1)

Set record = view1.Fetch
If record Is Nothing Then
RecordsReturned = 1
Else
RecordsReturned = 2
End If

Set record = Nothing
view1.Close
Set view1 = Nothing
Set database = Nothing
Set msi = Nothing

If RecordsReturned = 1 Then
InputBox "The ProductCode is:", WScript.Arguments(0), productCode
Else
MsgBox "There was more than one 'ProductCode' record returned from the MSI database!!"
End If

A guide to posting questions on CodeProject[^]
Dave Kreskowiak