March 01, 2001
Customizing Windows Installer
Listing 4: findxl.vbs — Figuring out if Excel is installed
Option Explicit
Public installer, state, path
Const msiInstallStateDefault = 5
' Connect to Windows Installer object
set installer = Wscript.CreateObject("WindowsInstaller.Installer")
state = installer.productstate _
("{00000409-78e1-11d2-b60f-006097c998e7}")
if state <> msiInstallStateDefault then
MsgBox ("Office not Installed " & state)
Wscript.quit
end if
path = installer.ComponentPath _
("{00000409-78E1-11D2-B60F-006097C998E7}", _
"{CC29E96F-7BC2-11D1-A921-00A0C91E2AA2}")
if path <> "" then
path = path & " Version " & installer.FileVersion (path, false)
end if
msgbox path
Previous Page |
1
|
2
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
10
|
11
|
12
|
13
|
14
|
15
|
16
|
17
|
18
|
19
|
20
|
21
|
22
|
23
|
24
Next Page
|
 |
|
|||||||||||||||||||||||||||
|
|
|
