Using VBScript in an installer package

using System;
using System.Collections;
using System.ComponentModel;
using System.Configuration.Install;
using System.Diagnostics;
using System.Reflection;
using System.ServiceProcess;

namespace InstallerDemoService
{
    [RunInstaller(true)]
    public class InstallerDemoServiceProjectInstaller : System.Configuration.Install.Installer
    {
        ...
        
        private void InitializeComponent()
        {
            ...
            this.AfterInstall += new InstallEventHandler(this.ProjectInstaller_AfterInstall);
        }
        
        ...
        
        private void ProjectInstaller_AfterInstall(object sender, InstallEventArgs e)
        {
            string currentPath = (string)e.SavedState["CustomActionData"];
            string configPath = System.IO.Path.Combine(currentPath, "InstallerDemoService.exe.config");
            
            Process notepad = Process.Start("notepad.exe", configPath);
            notepad.WaitForExit();
            
            // NB: You may want to pass a timeout to the WaitForExit call.
            
            if (PromptUser("Start InstallerDemoService?", "InstallerDemoService.Setup"))
                StartService("InstallerDemoService");
        }
        
        private static void StartService(string serviceName)
        {
            try
            {
                using(ServiceController controller = new ServiceController(serviceName))
                {
                    if (ServiceControllerStatus.Stopped == controller.Status)
                    {
                        controller.Start();
                    }
                }
            }
            catch 
            {
            }            
        }
        
        // Late-Bound MessageBox:
        const string WindowsForms = ", System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089";
        static readonly Type tMessageBox = Type.GetType("System.Windows.Forms.MessageBox" + WindowsForms);
        static readonly Type tMessageBoxButtons = Type.GetType("System.Windows.Forms.MessageBoxButtons" + WindowsForms);
        static readonly Type tMessageBoxIcon = Type.GetType("System.Windows.Forms.MessageBoxIcon" + WindowsForms);
        
        const int DialogResult_Yes = 6;
        
        const BindingFlags PublicStaticMethod = 
            BindingFlags.Public | BindingFlags.Static | BindingFlags.InvokeMethod;
        
        private static bool PromptUser(string message, string title)
        {
            object[] args = new object[4] { message, title, 
                Enum.Parse(tMessageBoxButtons, "YesNo"),
                Enum.Parse(tMessageBoxIcon, "Question")};
            
            int result = (int)tMessageBox.InvokeMember("Show",
                PublicStaticMethod, null, null, args);
            
            return (DialogResult_Yes == result);
        }
    }
}

Casp wrote:

Hi Richard,

I really like your solution to handle after-installation events. One problem I have struggled with is that how can the ProjectInstaller get to know the Installation Folder during installation, since the Installation Folder is subject to user's change. I need to get the Installation Folder and replace the default configuration file with a file for different server, for example Production or Test environment.

Thanks,

--Yu Mei