Software Deployment

Can your custom action be run as an immediate action and then use a launch condition to notify the user that excel needs to be closed before attempting the installation?

this is the custom action i wrote in vbscript to check if excel is running.

Dim strComputer, objWMIService, colProcesses, objProcess, running, WshNetwork, objArgs, app
app ="EXCEL.EXE"
strComputer="."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = '" & app & "'")
For Each objProcess in colProcessList
session.Property("EXCELRUNNING") = 1
MsgBox (session.Property("EXCELRUNNING"))
Next

it sets the property correctly I am just not sure how to end the install after checking the property.

yes it run in execute immediate.

You need a Type 19 Custom Action. Check out Custom Action types in MSI.CHM for details.

You would make the VBScript into a function that you would then call from a custom action. You would also ensure that the custom action is set to check exit codes. An example of the script is below, this will terminate the MSI installation.

Function ExcelRunning()
Dim strComputer, objWMIService, colProcesses, objProcess, running, WshNetwork, objArgs, app, x
x = 0
app ="EXCEL.EXE"
strComputer="."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = '" & app & "'")
For Each objProcess in colProcessList
x = x + 1
Next
If x >= 1 Then
ExcelRunning = 1602
Else
ExcelRunning = 0
End If
End Function

You return a 0 to the function to continue the installation and a terminated install if you pass a 1602.

-Save the above vbscript to your desktop
-add a new custom vbscript stored in the binary table
-browse to the desktop vbscript
-In "Script Function" enter in ExcelRunning and ensure that return processing is "synchronus(check exit code)"

Hope that makes sense!
Regards,
P