Get MSI property value using VBScript

Following script displays the INSTALLDIR property value present inside MSI



Dim objWshShell, str
set objWshShell = CreateObject("WScript.Shell")
str = Session.Property("INSTALLDIR")
MsgBox(str)
set objWshShell = nothing