'*******************************************************************************
'     Program: Install.vbs
'      Author: Mick Pletcher
'        Date: 26 April 2012
'    Modified: 
'
'     Program: Java Runtime Environment
'     Version: 7u4
' Description: This will uninstall previous versions and then installs
'			   the current version
'			   1) Define the relative installation path
'			   2) Create the Log Folder
'			   3) Uninstall all previous versions
'			   4) Install Current Version
'			   5) Cleanup Global Variables
'*******************************************************************************
Option Explicit

REM Define Constants
CONST TempFolder    = "c:\temp\"
CONST LogFolderName = "JavaRuntime"

REM Define Global Variables
DIM Architecture : Set Architecture = Nothing
DIM LogFolder    : LogFolder        = TempFolder & LogFolderName & "\"
DIM RelativePath : Set RelativePath = Nothing

REM Define the relative installation path
DefineRelativePath()
REM Create the Log Folder
CreateLogFolder()
REM Determine Architecture
DetermineArchitecture()
REM Uninstall all Previous Versions
Uninstall()
REM Installx86
Installx86()
If Architecture = "x64" Then
	REM Installx64 
	Installx64()
End If
REM Cleanup Global Variables
GlobalVariableCleanup()

'*******************************************************************************
'*******************************************************************************

Sub DefineRelativePath()

	REM Get File Name with full relative path
	RelativePath = WScript.ScriptFullName
	REM Remove file name, leaving relative path only
	RelativePath = Left(RelativePath, InStrRev(RelativePath, "\"))

End Sub

'*******************************************************************************

Sub CreateLogFolder()

	REM Define Local Objects
	DIM FSO : Set FSO = CreateObject("Scripting.FileSystemObject")

	If NOT FSO.FolderExists(TempFolder) then
		FSO.CreateFolder(TempFolder)
	End If
	If NOT FSO.FolderExists(LogFolder) then
		FSO.CreateFolder(LogFolder)
	End If

	REM Cleanup Local Variables
	Set FSO = Nothing

End Sub

'*******************************************************************************

Sub DetermineArchitecture()

	REM Define Local Objects
	DIM WshShell : Set WshShell = CreateObject("WScript.Shell")

	REM Define Local Variables
	DIM OsType : OsType = WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")

	If OsType = "x86" then
		Architecture = "x86"
	elseif OsType = "AMD64" then
		Architecture = "x64"
	end if
	
	REM Cleanup Local Variables
	Set WshShell = Nothing
	Set OsType   = Nothing
	
End Sub

'*******************************************************************************

Sub Uninstall()

	REM Define Local Objects
	DIM oShell : SET oShell = CreateObject("Wscript.Shell")

	REM Define Local Variables
	DIM Parameters      : Parameters      = Chr(32) & "/qb- /norestart"
	DIM Uninstall01     : Uninstall01     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160010}" & Parameters
	DIM Uninstall02     : Uninstall02     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160020}" & Parameters
	DIM Uninstall03     : Uninstall03     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160030}" & Parameters
	DIM Uninstall04     : Uninstall04     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160040}" & Parameters
	DIM Uninstall05     : Uninstall05     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160050}" & Parameters
	DIM Uninstall06     : Uninstall06     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160060}" & Parameters
	DIM Uninstall07     : Uninstall07     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160070}" & Parameters
	DIM Uninstall08     : Uninstall08     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160080}" & Parameters
	DIM Uninstall09     : Uninstall09     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160090}" & Parameters
	DIM Uninstall10     : Uninstall10     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160060}" & Parameters
	DIM Uninstall11     : Uninstall11     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160110}" & Parameters
	DIM Uninstall12     : Uninstall12     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160120}" & Parameters
	DIM Uninstall13     : Uninstall13     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160130}" & Parameters
	DIM Uninstall14     : Uninstall14     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160140}" & Parameters
	DIM Uninstall15     : Uninstall15     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160150}" & Parameters
	DIM Uninstall16     : Uninstall16     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160160}" & Parameters
	DIM Uninstall17     : Uninstall17     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160170}" & Parameters
	DIM Uninstall18     : Uninstall18     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160180}" & Parameters
	DIM Uninstall19     : Uninstall19     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160190}" & Parameters
	DIM Uninstall20     : Uninstall20     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160200}" & Parameters
	DIM Uninstall21     : Uninstall21     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160210}" & Parameters
	DIM Uninstall22     : Uninstall22     = "msiexec.exe /x {3248F0A8-6813-11D6-A77B-00B0D0160220}" & Parameters
	DIM Uninstall23     : Uninstall23     = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F83216023FF}" & Parameters
	DIM Uninstall23x64  : Uninstall23x64  = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F86416023FF}" & Parameters
	DIM Uninstall24     : Uninstall24     = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F83216024FF}" & Parameters
	DIM Uninstall24x64  : Uninstall24x64  = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F86416024FF}" & Parameters
	DIM Uninstall25     : Uninstall25     = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F83216025FF}" & Parameters
	DIM Uninstall25x64  : Uninstall25x64  = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F86416025FF}" & Parameters
	DIM Uninstall26     : Uninstall26     = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F83216026FF}" & Parameters
	DIM Uninstall26x64  : Uninstall26x64  = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F86416026FF}" & Parameters
	DIM Uninstall27     : Uninstall27     = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F83216027FF}" & Parameters
	DIM Uninstall27x64  : Uninstall27x64  = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F86416027FF}" & Parameters
	DIM Uninstall28     : Uninstall28     = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F83216028FF}" & Parameters
	DIM Uninstall28x64  : Uninstall28x64  = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F86416028FF}" & Parameters
	DIM Uninstall29     : Uninstall29     = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F83216029FF}" & Parameters
	DIM Uninstall29x64  : Uninstall29x64  = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F86416029FF}" & Parameters
	DIM Uninstall30     : Uninstall30     = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F83216030FF}" & Parameters
	DIM Uninstall30x64  : Uninstall30x64  = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F86416030FF}" & Parameters
	DIM Uninstall31     : Uninstall31     = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F83216031FF}" & Parameters
	DIM Uninstall31x64  : Uninstall31x64  = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F86416031FF}" & Parameters
	DIM Uninstall7_1    : Uninstall7_1    = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F83217001FF}" & Parameters
	DIM Uninstall7_1x64 : Uninstall7_1x64 = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F86417001FF}" & Parameters
	DIM Uninstall7_2    : Uninstall7_2    = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F83217002FF}" & Parameters
	DIM Uninstall7_2x64 : Uninstall7_2x64 = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F86417002FF}" & Parameters
	DIM Uninstall7_3    : Uninstall7_3    = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F83217003FF}" & Parameters
	DIM Uninstall7_3x64 : Uninstall7_3x64 = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F86417003FF}" & Parameters
	DIM Uninstall7_4    : Uninstall7_4    = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F83217004FF}" & Parameters
	DIM Uninstall7_4x64 : Uninstall7_4x64 = "msiexec.exe /x {26A24AE4-039D-4CA4-87B4-2F86417004FF}" & Parameters

	oShell.Run Uninstall01, 7, True
	oShell.Run Uninstall02, 7, True
	oShell.Run Uninstall03, 7, True
	oShell.Run Uninstall04, 7, True
	oShell.Run Uninstall05, 7, True
	oShell.Run Uninstall06, 7, True
	oShell.Run Uninstall07, 7, True
	oShell.Run Uninstall08, 7, True
	oShell.Run Uninstall09, 7, True
	oShell.Run Uninstall10, 7, True
	oShell.Run Uninstall11, 7, True
	oShell.Run Uninstall12, 7, True
	oShell.Run Uninstall13, 7, True
	oShell.Run Uninstall14, 7, True
	oShell.Run Uninstall15, 7, True
	oShell.Run Uninstall16, 7, True
	oShell.Run Uninstall17, 7, True
	oShell.Run Uninstall18, 7, True
	oShell.Run Uninstall19, 7, True
	oShell.Run Uninstall20, 7, True
	oShell.Run Uninstall21, 7, True
	oShell.Run Uninstall22, 7, True
	oShell.Run Uninstall23, 7, True
	oShell.Run Uninstall23x64, 7, True
	oShell.Run Uninstall24, 7, True
	oShell.Run Uninstall24x64, 7, True
	oShell.Run Uninstall25, 7, True
	oShell.Run Uninstall25x64, 7, True
	oShell.Run Uninstall26, 7, True
	oShell.Run Uninstall26x64, 7, True
	oShell.Run Uninstall27, 7, True
	oShell.Run Uninstall27x64, 7, True
	oShell.Run Uninstall28, 7, True
	oShell.Run Uninstall28x64, 7, True
	oShell.Run Uninstall29, 7, True
	oShell.Run Uninstall29x64, 7, True
	oShell.Run Uninstall30, 7, True
	oShell.Run Uninstall30x64, 7, True
	oShell.Run Uninstall31, 7, True
	oShell.Run Uninstall31x64, 7, True
	oShell.Run Uninstall7_1, 7, True
	oShell.Run Uninstall7_1x64, 7, True
	oShell.Run Uninstall7_2, 7, True
	oShell.Run Uninstall7_2x64, 7, True
	oShell.Run Uninstall7_3, 7, True
	oShell.Run Uninstall7_3x64, 7, True
	oShell.Run Uninstall7_4, 7, True
	oShell.Run Uninstall7_4x64, 7, True

	REM Cleanup Local Variables
	Set oShell          = Nothing
	Set Parameters      = Nothing
	Set Uninstall01     = Nothing
	Set Uninstall02     = Nothing
	Set Uninstall03     = Nothing
	Set Uninstall04     = Nothing
	Set Uninstall05     = Nothing
	Set Uninstall06     = Nothing
	Set Uninstall07     = Nothing
	Set Uninstall08     = Nothing
	Set Uninstall09     = Nothing
	Set Uninstall10     = Nothing
	Set Uninstall11     = Nothing
	Set Uninstall12     = Nothing
	Set Uninstall13     = Nothing
	Set Uninstall14     = Nothing
	Set Uninstall15     = Nothing
	Set Uninstall16     = Nothing
	Set Uninstall17     = Nothing
	Set Uninstall18     = Nothing
	Set Uninstall19     = Nothing
	Set Uninstall20     = Nothing
	Set Uninstall21     = Nothing
	Set Uninstall22     = Nothing
	Set Uninstall23     = Nothing
	Set Uninstall23x64  = Nothing
	Set Uninstall24     = Nothing
	Set Uninstall24x64  = Nothing
	Set Uninstall25     = Nothing
	Set Uninstall25x64  = Nothing
	Set Uninstall26     = Nothing
	Set Uninstall26x64  = Nothing
	Set Uninstall27     = Nothing
	Set Uninstall27x64  = Nothing
	Set Uninstall28     = Nothing
	Set Uninstall28x64  = Nothing
	Set Uninstall29     = Nothing
	Set Uninstall29x64  = Nothing
	Set Uninstall30     = Nothing
	Set Uninstall30x64  = Nothing
	Set Uninstall31     = Nothing
	Set Uninstall31x64  = Nothing
	Set Uninstall7_1    = Nothing
	Set Uninstall7_1x64 = Nothing
	Set Uninstall7_2    = Nothing
	Set Uninstall7_2x64 = Nothing
	Set Uninstall7_3    = Nothing
	Set Uninstall7_3x64 = Nothing
	Set Uninstall7_4    = Nothing
	Set Uninstall7_4x64 = Nothing

End Sub

'*******************************************************************************

Sub Installx86()

	REM Define Local Objects
	DIM oShell : SET oShell = CreateObject("Wscript.Shell")

	REM Define Local Variables
	DIM File       : File       = Chr(32) & RelativePath & "x86\jre1.7.0_04.msi"
	DIM Parameters : Parameters = Chr(32) & "/qb- ADDLOCAL=ALL IEXPLORER=1 MOZILLA=1 SYSTRAY=1 JAVAUPDATE=1 JU=0 AUTOUPDATECHECK=1 /norestart"
	DIM Install    : Install    = "msiexec.exe /i" & File & Parameters

	oShell.Run Install, 1, True

	REM Cleanup Local Variables
	Set File       = Nothing
	Set Install    = Nothing
	Set oShell     = Nothing
	Set Parameters = Nothing

End Sub

'*******************************************************************************

Sub Installx64()

	REM Define Local Objects
	DIM oShell : SET oShell = CreateObject("Wscript.Shell")

	REM Define Local Variables
	DIM File       : File       = Chr(32) & RelativePath & "x64\jre1.7.0_04.msi"
	DIM Parameters : Parameters = Chr(32) & "/qb- ADDLOCAL=ALL IEXPLORER=1 MOZILLA=1 SYSTRAY=1 JAVAUPDATE=1 JU=0 AUTOUPDATECHECK=1 /norestart"
	DIM Install    : Install    = File & Parameters

	oShell.Run Install, 1, True

	REM Cleanup Local Variables
	Set File       = Nothing
	Set Install    = Nothing
	Set oShell     = Nothing
	Set Parameters = Nothing

End Sub

'*******************************************************************************

Sub GlobalVariableCleanup()

	Set Architecture = Nothing
	Set LogFolder    = Nothing
	Set RelativePath = Nothing

End Sub