Creating a single .exe to customize install multiple programmes

[Doctor Trout]

Hey guys,

I hope this is relevent.

I was wondering, I often end up installing the same programmes again and again on different computers, so, I was wondering, would it be possible to make one .exe file that encorporates various different .exes into one, but, more than that, would customize install them (since I usually customise my installs) - you know, not install all the parts, or install to non-default locations.

I've tried using Windows Installer Wrapper Wizard, which seems to be the way to go - but how do I make it unattended, without asking me questions about each program it installs?

Thanks a lot.

Edited March 27, 2006 by Doctor Trout

[stickzilla]

You will probably be best off just building a batch file that installs multiple programs in succession, utilizing switches as greatly as possible.

You may wanna check out the Application Installs section of the board, it deals with doing silent installs in batch files and more.

[pirrup]

or use an autoit script

[gunsmokingman]

Or you can try a VBS script like this

Example Only

Dim Act, CT, Fso, Install
  Set Act = CreateObject("Wscript.Shell")
  Set Fso = CreateObject("Scripting.FileSystemObject")
	 Install = Array(Act.ExpandEnvironmentStrings("%Systemdrive%\SomeApp1.msi"),_
				Act.ExpandEnvironmentStrings("%Systemdrive%\SomeApp2.exe"),_
				Act.ExpandEnvironmentStrings("%Systemdrive%\SomeApp3.msi"),_
				Act.ExpandEnvironmentStrings("%Systemdrive%\SomeApp4.exe"),_
				Act.ExpandEnvironmentStrings("%Systemdrive%\Some App 5.exe"))
  CT = 0
   For Each strApp In Install
	 CT = CT + 1			   
	  If Fso.FileExists(strApp) Then 
	   If CT = 1 Then 
		Act.Run(strApp & " Xname=Spad Xkey=XXXXX-XXXXX-XXXXX-XXXXX Xagent=0 Xlibrary=0 Xintex=1 Xmodernskin=1 Xaudio=1 Xvideo=0 Xvisual=1 Xextra=1 Xregopt=0 /qr"),1,True 
		Fso.DeleteFile(strApp)
	   End If 
	  If CT = 2 Then : Act.Run(strApp & " /silent"),1,True : Fso.DeleteFile(strApp) : End If
	 If CT = 3 Then : Act.Run(strApp & " /quiet /noreboot"),1,True : Fso.DeleteFile(strApp) : End If
	If CT = 4 Then : Act.Run(strApp & " /s /q"),1,True : Fso.DeleteFile(strApp) : End If
   If CT = 5 Then : Act.Run(Chr(34) & strApp & " /s /q" & Chr(34)),1,True : Fso.DeleteFile(strApp) : End If 
  End If 
 Next

Edited March 27, 2006 by gunsmokingman