Solved

# I need a VBscript to run an msi after clicking on an ok button.

Posted on 2009-05-08
763 Views
I need a VBscript to run an msi after clicking on an ok button.  I need our users to see a message that will inform them to close a program before they click an ok button and install runs.  I have the msi working but I am just learning VB scripting.  Thanks.
0
Question by:automaton64
• 2
• 2

LVL 13

Expert Comment

ID: 24336722
See below

option explicit

on error resume next

Dim WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")


0

LVL 13

Expert Comment

ID: 24336740
to run the MSi you can use the below;

WshShell.Run "c:\windows\system32\msiexec /i ""program.msi"" /qn"
0

Author Comment

ID: 24338865
This is great.  Thank you. However, when I am testing it out with my msi which uses a transform file nothing seems to happen after the message window.  Here is what I am trying.
option explicit

on error resume next

Dim WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "C:\ln85\msiexec /i ""Lotus Notes 8.5.msi"" TRANSFORMS=""Lotus Notes 8.5.mst"""

0

LVL 12

Accepted Solution

zoofan earned 250 total points
ID: 24341494

Edit line 8 to the name of the app to close
Edit line 9 to the full command line for the msi install

save as filename.vbs

run it.

zf
Option Explicit

Dim WshShell

Dim Intresult

Dim strAppName

Dim strCommand

strAppName = "TheApptoClose" ' edit thename of the app you want the user to close.

strCommand = "msiexec.exe /i \\server\share\NameOf.msi" 'edit to the command line to execute the msi.

Intresult = MsgBox("Please close " & strAppName & " before installing this application.",vbOKCancel,"MSI installation")

If Intresult = vbOK Then

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run strCommand,1,True

Else

MsgBox "The installation has been cancelled",vbOKOnly,"MSI Installation"

End If

WScript.Quit(0)

0

Author Closing Comment

ID: 31579478
Yes.  This is just what I need. Thank you.
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

One of the frequent problems with the installations is when some file or registry entry is not removed from the system upon un-installation of the product. Clean removal is always highly desirable. One major reason for that is badly authored inst…
Introduction During my participation as a VBScript contributor at Experts Exchange, one of the most common questions I come across is this: "I have a script that runs against only one computer. How can I make it run against a list of computers in …
This lesson goes over how to construct ordered and unordered lists and how to create hyperlinks.
Learn how to create flexible layouts using relative units in CSS.  New relative units added in CSS3 include vw(viewports width), vh(viewports height), vmin(minimum of viewports height and width), and vmax (maximum of viewports height and width).