Software Deployment

Option Explicit

Dim oShell, oFso, oFile, StrCurPath, path, startPath, transforms, endPath, ReturnVal, oEnv,sProgramFiles,sLogfile,sMSIInstallLog, sLogFolder, OSystem, sBits, sPlatform
Dim strComputer, objWMIService, wbemFlagReturnImmediately, wbemFlagForwardOnly, colItems, objItem, sVersion, oReg, sGuid, sProductCode, sStatus, sPackageName, sMsiFile, sMsiGUID
Dim sComputername, sType,oMSI, oNetwork, sMSIUninstallLog, View, Record,sAllUsersPrograms , sAllUsersDesktop, sSystemDrive, fo, sSystem, sSystemRoot, sProgramFilesx86, sMyCompany

Set oShell = CreateObject("WScript.Shell")
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oMSI=CreateObject("WindowsInstaller.Installer")

'------------------------------------------------------------------
sPackageName = "Epson MP MultiPC Projector 1.05 fr_FR"
sMsiFile = "EPSON EasyMP Multi PC Projection.msi"
sVersion = "1.05"
'------------------------------------------------------------------

path = WScript.ScriptFullName
StrCurPath = Left(path, InstrRev(path, "\"))
startPath = "Msiexec /i " & chr(34) & StrCurPath
transforms = chr(34) & " Transforms=" & chr(34) & StrCurPath
endPath = " /passive REBOOT=REALLYSUPPRESS ALLUSERS=2"
sPlatform = oShell.ExpandEnvironmentStrings( "%PROCESSOR_ARCHITECTURE%" ) 
sProgramFiles = oShell.ExpandEnvironmentStrings("%ProgramFiles%")
sProgramFilesx86 = oShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%")
sAllUsersPrograms = oShell.SpecialFolders("AllUsersPrograms")
sAllUsersDesktop = oShell.SpecialFolders("AllUsersDesktop")
If sPlatform = "AMD64" Then
	sMyCompany = sProgramFilesx86 & "\MyCompany"
Else
	sMyCompany = sProgramFiles & "\MyCompany"
End If
sLogFolder = sMyCompany + "\logs\"
sLogfile = sLogFolder & sPackageName &".log"
sMSIInstallLog = sLogFolder & "Appl_Install_" & sPackageName & ".Log"
sMSIUninstallLog = sLogFolder & "Appl_Uninstall_" & sPackageName & ".Log"
Set oFile=oFso.OpenTextFile(sLogfile,2,True)
oFile.close

'-------- BEGIN ------------

Set oEnv = oShell.Environment("PROCESS")
oEnv("SEE_MASK_NOZONECHECKS") = 1

Log("Installation "& sPackageName)
preinstall()
Install()			
Registry()
Set oShell = Nothing
oEnv.Remove("SEE_MASK_NOZONECHECKS")

'-------- END ------------

Function Log(sEntry)
    Set oFile=oFso.OpenTextFile(sLogfile,8,True)
    'WScript.echo Now & " : " & sEntry
    oFile.writeline Now & " : " & sEntry
    oFile.close
End Function

Function Fail (Message)
   Log Message & "Installation failed!"
   oShell.Popup Message, 20, "Installation failed!", 16
   WScript.Quit 1
End Function

Function PreInstall()
	'remove older selfmade version
	MSI_GetPackageStatusByGuid("{65B612C2-C714-41A6-AF3B-43F6C030B927}")
	If (uCase(sStatus)="THE PACKAGE IS INSTALLED.") Then Uninstall("{65B612C2-C714-41A6-AF3B-43F6C030B927}")
	'return to mormal process
	MSI_GetPackageGUID (sMsiFile)
	MSI_GetPackageStatusByGuid(sProductCode)
	Log sStatus
	If (uCase(sStatus)="THE PACKAGE IS INSTALLED.") Then Uninstall(sProductCode)
	PreInstall=sStatus
End Function

Function UnInstall(sProductCode)
	Log "Msiexec /x " & sProductCode & " /L* " & """" & sMSIUninstallLog & """" & endPath
	ReturnVal = oShell.run ("Msiexec /x " & sProductCode & " /L* " & """" & sMSIUninstallLog & """" & endPath,0,True)
	Log "Return Code : " & ReturnVal
	If Not (ReturnVal = 0 Or ReturnVal = 3010) Then Fail("Could not Uninstall " & sPackageName & "!")
	If ofso.FileExists (sAllUsersDesktop & "\Epson MP Multi PC Projection.lnk") Then oFso.DeleteFile sAllUsersDesktop & "\Epson MP Multi PC Projection.lnk",true
	UnInstall=sStatus
End Function

Function Install()
	Log startPath & sMsiFile & """" & " /L* " & """" & sMSIInstallLog & """" & endPath
	ReturnVal = oShell.run (startPath & sMsiFile & """" & " /L* " & """" & sMSIInstallLog & """" & endPath,0,True)
	Log "Return Code : " & ReturnVal
	If Not (ReturnVal = 0 Or ReturnVal = 3010) Then 
		Fail("Could not Install " & sPackageName & "!")
	Else
		Log StrCurPath & "setacl.exe -on " & """" & sProgramFiles & "\Epson"& """" & " -ot file -actn ace -ace " & """" & "n:users;p:change" & """" & " -log " & """" &  sProgramFiles & "\Epson\setacl.txt" & """" & " -silent"
		oShell.run """" & StrCurPath & "setacl.exe" & """" & " -on " & """" & sProgramFiles & "\Epson"& """" & " -ot file -actn ace -ace " & """" & "n:users;p:change" & """" & " -log " & """" &  sProgramFiles & "\Epson\setacl.txt" & """" & " -silent"
		Log sAllUsersPrograms & "\EPSON Projector\EasyMP Multi PC Projection\EasyMP Multi PC Projection Ver.1.05.lnk" & " - " & sAllUsersDesktop & "\Epson MP Multi PC Projection.lnk"
		oFso.CopyFile sAllUsersPrograms & "\EPSON Projector\EasyMP Multi PC Projection\EasyMP Multi PC Projection Ver.1.05.lnk",sAllUsersDesktop & "\Epson MP Multi PC Projection.lnk",1
		Registry()
	End If
End Function

Private Function MSI_GetPackageStatusByGUID(sMsiGUID)
	Dim iStatus
	Dim sState
	On Error Resume Next
	iStatus=oMSI.ProductState(sMsiGUID)
    Select Case iStatus
		Case -6 : sState="Bad configuration."
		Case -2 : sState="Invalid argument."
		Case -1 : sState="The package is not installed."
		Case 1 : sState="The package is advertised, but not installed."
		Case 2 : sState="The package is absent."
		Case 5 : sState="The package is installed."
    End Select
	If (iStatus>-7) Then Log "MSI_GetPackageStatusByGUID : "& sState
	sStatus=sState
	MSI_GetPackageStatusByGUID=sState
End Function

Function MSI_GetPackageGUID(sMsiFile)
	Dim oSession
	Set oSession=oMsi.Opendatabase(StrCurPath & sMsiFile,0)
	If IsObject(oSession) Then
		Set View = oSession.OpenView("SELECT Value FROM Property where Property='ProductCode'") 'could include FileSize, etc
		View.Execute
		Do
			Set Record = View.Fetch
			If Record Is Nothing Then Exit Do
			sProductCode=Record.StringData(1)
		Loop
	End If
	Set View = Nothing
	If Len(sProductCode) Then Log "MSI_GetPackageStatus GUID: " & sProductCode
	MSI_GetPackageGUID=sStatus
End Function

Function Registry()
	ReturnVal = oShell.run ("reg add " & """" & "HKEY_LOCAL_MACHINE\SOFTWARE\MyCompany\Applications\" & sPackageName & """" & " /f /t REG_SZ /v InstallDate /d " & date(),0,True)
	ReturnVal = oShell.run ("reg add " & """" & "HKEY_LOCAL_MACHINE\SOFTWARE\MyCompany\Applications\" & sPackageName & """" & " /f /t REG_SZ /v Version /d " & sVersion,0,True)
	ReturnVal = oShell.run ("reg add " & """" & "HKEY_LOCAL_MACHINE\SOFTWARE\MyCompany\Applications\" & sPackageName & """" & " /f /t REG_SZ /v GUID /d " & sProductCode,0,True)
End Function

Has anyone successfully accomplished this yet? I am also getting the license agreement window.