Hi Robert,
When I applied your suggestion I got the error
An exception occurred in the "FindDBUpgrade" unit at line 23:
Microsoft VBScript runtime error
Object doesn't support this property or method: 'WshShell'
So what I did was that I removed the middle line, and I just seemed to be getting the Windows Installer information window. I just don't seem to be able to get past this point. Here is my latest piece of code. It just seems that the parameters might be incorrect. I can not get the interface that I am expecting.
Regards,
Ken
Sub RunMSI()
Set foundFiles = aqFileSystem.FindFiles("\\stc1\customerdata\Generic 8.0\Latest Build\Setups\Latest\", "Perenso Server DB Upgrade (8.*).msi")
If Not foundFiles Is Nothing Then
While foundFiles.HasNext
Set aFile = foundFiles.NextWend
End If
'log.Message afile.name
'Runs the "Perenso_8_Administrator" tested application Install
Dim FullPath, TestApp, TestAppIndex
' Specifies the full path to an application's executable
FullPath = afile.path
' Launches the application
'Set WshShell = CreateObject("WScript.Shell")
WshShell = CreateObject("WScript.Shell")
WshShell.Run("msiexec.exe /i " & Fullpath)
End Sub