Fehler:
FehlerSetzen("Fehler", "Es ist ein Fehler aufgetreten: " + err.description + " " + err.source + " " + str(err.number))
Phase2 = 1
 

Fehler:
'FehlerSetzen("Fehler", "Es ist ein Fehler aufgetreten: " + err.description + " " + err.source + " " + str(err.number))
Phase2 = 0
 

Rem {VERSION..VER_DX_NT_1_0}
Rem Installation: Adobe Reader DC MUI
Rem Hersteller: Adobe Systems Incorporated
Rem Version: 15.007.20033
Rem GUID: AC76BA86-7AD7-FFFF-7B44-AC0F074E4100
Rem Datum: 06.11.2018 09:06:53
Rem Autor: DX-Union PaketWizard 8.1.2.436
 
Option Explicit
 
Dim sLastReport As String
Dim iLastReportID As Integer
 
Const sSetupDir = """{ENVIRONMENT..TEMP}\{package..name}"""
Const sUpdateDir = "{ENVIRONMENT..TEMP}\{package..name}\"
Const sSetupFile = "{ENVIRONMENT..TEMP}\{package..name}\AcroRead.msi"
Const lMaxFeatures = 18
 
Const sProductName = "Adobe Reader DC MUI"
Const sManufacturer = "Adobe Systems Incorporated"
Const sProductVersion = "15.007.20033"
Const sProductCode = "${AC76BA86-7AD7-FFFF-7B44-AC0F074E4100$}"
 
Const lFeatureAbsent = 0
Const lFeatureActive = 1
 
Const msiInstallStateNone = -1
Const msiInstallStateBroken = 0
Const msiInstallStateAdvertised = 1
'Const msiInstallStateAbsent = 2
Const msiInstallStateLocal = 3
Const msiInstallStateSource = 4
Const msiInstallStateDefault = 5
 
Const msiEvaluateConditionFalse = 0
Const msiEvaluateConditionTrue = 1
 
'Const msiUILevelNone = 2
'Const msiUILevelBasic = 3
Const msiUILevelHideCancel = 32
'Const msiUILevelProgressOnly = 64
 
Sub Main
 
	EnableReportDXDist
	ReportDXDist (1, "Starte Installation")
 
	Dim Phase As Integer
	Dim ExitCode As Integer
	Dim Installieren As Boolean
 
	Installieren = True
 
	While Installieren = True
 
		Phase = DXDistGetPhaseNo()
 
		Select Case(Phase)
 
			Case 0
				ExitCode = KopiereMedium
				If ExitCode <> 0 Then
					Exit Sub
				End If
				'Phase PreInstall
				ExitCode = Phase0
				If ExitCode = 0 Then
					DXDistEndPhase(1, 0)
				Else
					Installieren = False
				End If
			Case 1
				'Phase Install
				ExitCode = Phase1
				If ExitCode = 0 Then
					DXDistEndPhase(2, 0)
				ElseIf ExitCode = 1 Then
					' Returncode der Installation ist REBOOT_REQUIRED
					DXDistEndPhase(2, 1)
					ExitCode = 0
				    Installieren = False
				Else
					Installieren = False
				End If
			Case 2
				'Phase Service Pack Files
				ExitCode = Phase2
				If ExitCode = 0 Then
					DXDistEndPhase(3, 0)
				ElseIf ExitCode = 1 Then
					' Returncode der Installation ist REBOOT_REQUIRED
					DXDistEndPhase(3, 1)
					ExitCode = 0
					Installieren = False
				Else
					Installieren = False
				End If
 
			Case 3
				'Phase PostInstall
				ExitCode = Phase3
				If ExitCode = 0 Then
					DXDistEndPhase(4, 0)
				Else
					Installieren = False
				End If
			Case 4
				'Phase Active Setup
				ExitCode = Phase4
				If ExitCode = 0 Then
					DXDistEndPhase(5, 0)
				Else
					Installieren = False
				End If
			Case 5
				'Phase End
				LoescheMedium
				ExitCode = 0
				DXDistEndInstall()
				Installieren = False
		End Select
 
	Wend
 
	If Phase > 4 Then 
	   ReportDXDist (1, "Installation abgeschlossen")
	ElseIf ExitCode = 0 Then
	    ReportDXDist (1, "Phase " & Phase & " abgeschlossen")
	Else
	    ReportDXDist (1, "Fehler in Phase " & Phase & " bei der Installation")
	End If
 
End Sub
 
Function KopiereMedium
 
	'Kopiere das Softwaremedium auf den Client
	On Error GoTo Fehler
	Dim oDXCopyObj As Object
	Set oDXCopyObj = CreateObject("DxftClient.DxftClient.1")
 
	EnableReportDXDist
	ReportDXDist (1, "Kopiere Herstellerdateien auf den Client")
	ReportDXDist (1, "Evtl. alte Setup-Dateien entfernen")
 
	'Evtl. alte Setup-Daten entfernen
	rm32 ("-q -r -f", sSetupDir)
 
	KopiereMedium = 0
	If ForcePkgCD("{package..name}") = 0 Then
		oDXCopyObj.DxCopy("-v -f -r ""{dynamic..depotrechner}:{dynamic..verzeichnis}/pkg""" + " " + sSetupDir)
	    ReportDXDist (1, "Kopieren abgeschlossen")
	Else
		'Der Benutzer kann das Medium bei CD Installation nicht zur Verfügung stellen
		KopiereMedium = 1
		FehlerSetzen("Fehler", "Der Benutzer kann das Medium bei CD Installation nicht zur Verfügung stellen.")
	    ReportDXDist (1, "Kopieren fehlerhaft")
	End If
 
	Set oDXCopyObj = Nothing
 
	GoTo EndeOK:
 
	Fehler:
	FehlerSetzen("Fehler", "Es ist ein Fehler aufgetreten: " + Err.Description + " " + Err.Source + " " + Str(Err.Number))
	KopiereMedium = 1
 
	EndeOK:
 

End Function
 
Sub LoescheMedium
 
	'Lösche das Softwaremedium wieder vom Client
	On Error GoTo Fehler
	EnableReportDXDist
	ReportDXDist (1, "Lösche Herstellerdateien vom Client")
 
	'Lösche das Installationsmedium
	rm32 ("-q -r -f", sSetupDir)
 
	ReportDXDist (1, "Herstellerdateien gelöscht")
 
	GoTo EndeOK:
 
	Fehler:
	FehlerSetzen("Fehler", "Es ist ein Fehler aufgetreten: " + Err.Description + " " + Err.Source + " " + Str(Err.Number))
 
	EndeOK:
 
End Sub
 
Function Phase0
 
	'PreInstall
	On Error GoTo Fehler
	EnableReportDXDist
 
	'wexec32("C:\Temp\Adobe Acrobat Reader DC Test\AdobeAcroCleaner_DC2015.exe", "/Silent /Product=1", SW_NORMAL) 
	Phase0 = 0
 
	GoTo EndeOK:
 
	Fehler:
	FehlerSetzen("Fehler", "Es ist ein Fehler aufgetreten: " + Err.Description + " " + Err.Source + " " + Str(Err.Number))
	Phase0 = 1
 
	EndeOK:
 
End Function
 
' Da das COM-Objekt den Rückgabewert der Installation unterdrückt
' und bei Werten ungleich 0 immer nur einen Fehler mit Code 1000 liefert,
' muss für die eigentliche Installation direkt die MSI.DLL angesprochen werden.
' Zusätzlich werden die zu berücksichtigenden Rückgabewerte
' hier als Konstanten definiert!
Const ERROR_SUCCESS                  =    0
Const ERROR_SUCCESS_REBOOT_INITIATED = 1641
Const ERROR_SUCCESS_REBOOT_REQUIRED  = 3010
 
Declare Function MsiInstallProduct Lib "{ENVIRONMENT..SYSTEMROOT}\system32\msi.dll" (ByVal szPackagePath$, ByVal szCommandLine$) As Long
Declare Function MsiApplyPatch Lib "{ENVIRONMENT..SYSTEMROOT}\system32\msi.dll" (ByVal szPatchPackage$, ByVal szInstallPackage$, ByVal eInstallType%, ByVal szCommandLine$) As Long
 
Function Phase1
 
	'MainInstall
 
	' Bedeutung der Rückgabewerte:
	' 0 = Installation fehlerfrei abgeschlossen
	' 1 = Installation fehelrfrei, ein abschliessender Reboot ist nötig
	'-1 = FEHLER (näheres siehe Report/Trace/profile...)
 
	' Die Variable iErrCode erhält den Fehlercode bzw. den Rückgabewert für die Funktion
	Dim iErrCode As Long
	iErrCode = 0
	Dim hStatusHandle As Long
	hStatusHandle = 0
 
	On Error GoTo Fehler
	EnableReportDXDist
	ReportDXDist (1, "Installation durchführen")
 
	Dim i, j As Integer
 
	Dim oInstaller As Object
	Set oInstaller = CreateObject("WindowsInstaller.Installer")
 
	'Konfiguriere den Interaktionslevel des Installers
	oInstaller.UILevel = msiUILevelBasic + msiUILevelHideCancel + msiUILevelProgressOnly
 
	'Aktiviere die Protokollierung
	oInstaller.EnableLog ("v", "{ENVIRONMENT..TEMP}\{package..name}.log")
 
	'Dimensioniere die Featurearrays
	Dim sFeatures(lMaxFeatures) As String
	Dim sFeatureState(lMaxFeatures) As Long
	Dim lFeatureParents(lMaxFeatures) As Long
	Dim lFeatureParentState(lMaxFeatures) As Long
 
	'Folgende Features sind im Produkt vorhanden und werden nach ihrem Status installiert oder nicht.
	sFeatures(1) = "Help" 'Reader Online Documentation
	sFeatureState(1) = lFeatureActive
	sFeatures(2) = "ARM" 'Adobe Refresh Manager
	sFeatureState(2) = lFeatureActive
	sFeatures(3) = "ReaderProgramFiles" 'Adobe Reader Program Files
	sFeatureState(3) = lFeatureActive
	sFeatures(4) = "Reader_Big_Features" 'Features included in the full Adobe Reader build
	sFeatureState(4) = lFeatureActive
	sFeatures(5) = "Accessibility_Plugins" 'Accessibility Plug_ins
	sFeatureState(5) = lFeatureActive
	sFeatures(6) = "AdobeCommonLinguistics_Big" 'Adobe Common Linguistic Files Big
	sFeatureState(6) = lFeatureActive
	sFeatures(7) = "AdobeCommonTypSpt" 'Adobe Common Type Support Files
	sFeatureState(7) = lFeatureActive
	sFeatures(8) = "Atmosphere_3D" 'Atmosphere 3D Plug-in
	sFeatureState(8) = lFeatureActive
	sFeatures(9) = "DTShortcut" 'DTShortcut
	sFeatureState(9) = lFeatureActive
	sFeatures(10) = "Enterprise" 'Enterprise
	sFeatureState(10) = lFeatureActive
	sFeatures(11) = "MUI_Extras" 'Complete Fonts and Spelling
	sFeatureState(11) = lFeatureActive
	sFeatures(12) = "MultimediaPlugin" 'MultiMedia
	sFeatureState(12) = lFeatureActive
	sFeatures(13) = "Plugins" 'Reader Plugins
	sFeatureState(13) = lFeatureActive
	sFeatures(14) = "ReaderAIRIntegration" 'Reader AIR Integration
	sFeatureState(14) = lFeatureActive
	sFeatures(15) = "ReaderBrowserIntegration" 'Browser Integration
	sFeatureState(15) = lFeatureActive
	sFeatures(16) = "ReaderPDFIntegration" 'Reader PDF Integration
	sFeatureState(16) = lFeatureActive
	sFeatures(17) = "SearchAndIndex" 'Search and Index
	sFeatureState(17) = lFeatureActive
	sFeatures(18) = "Updater" 'Updater
	sFeatureState(18) = lFeatureActive
 
	' Behandlung von Feature Bedingungen
	Dim lFeatureConditionCount As Long
	Dim fConditionFeature(8) As String
	lFeatureConditionCount = 8
 
	'Features, zu denen Conditions gehören
	fConditionFeature(1) = "Accessibility_Plugins"
	fConditionFeature(2) = "AdobeCommonLinguistics_Big"
	fConditionFeature(3) = "Atmosphere_3D"
	fConditionFeature(4) = "MultimediaPlugin"
	fConditionFeature(5) = "ReaderAIRIntegration"
	fConditionFeature(6) = "ReaderBrowserIntegration"
	fConditionFeature(7) = "ReaderPDFIntegration"
	fConditionFeature(8) = "SearchAndIndex"
 
	' Behandlung von MSI Internen Features
	Dim lInternalMSIFeatureCount As Long
	Dim fInternalMSIFeature(18) As String
	lInternalMSIFeatureCount = 17
 
	'Interne MSI Features
	fInternalMSIFeature(1) = "Help"
	fInternalMSIFeature(2) = "ARM"
	fInternalMSIFeature(3) = "ReaderProgramFiles"
	fInternalMSIFeature(4) = "Accessibility_Plugins"
	fInternalMSIFeature(5) = "AdobeCommonLinguistics_Big"
	fInternalMSIFeature(6) = "AdobeCommonTypSpt"
	fInternalMSIFeature(7) = "Atmosphere_3D"
	fInternalMSIFeature(8) = "DTShortcut"
	fInternalMSIFeature(9) = "Enterprise"
	fInternalMSIFeature(10) = "MUI_Extras"
	fInternalMSIFeature(11) = "MultimediaPlugin"
	fInternalMSIFeature(12) = "Plugins"
	fInternalMSIFeature(13) = "ReaderAIRIntegration"
	fInternalMSIFeature(14) = "ReaderBrowserIntegration"
	fInternalMSIFeature(15) = "ReaderPDFIntegration"
	fInternalMSIFeature(16) = "SearchAndIndex"
	fInternalMSIFeature(17) = "Updater"
	'Prüfe, welche Produktfeatures bereits installiert sind. Da es eine Ergänzungsinstallation ist, sind diese Features ggf. nicht zu deaktivieren
	Dim lCurrentFeatureState As Long
	For i = 1 To lMaxFeatures
		lCurrentFeatureState = oInstaller.FeatureState(sProductCode, sFeatures(i))
		If lCurrentFeatureState < msiInstallStateLocal And lCurrentFeatureState <> msiInstallStateAdvertised Then
			lCurrentFeatureState = lFeatureAbsent
		Else
			'Dies ist ein Konfliktpotential mit Advertised Features und Features, die nicht lokal installiert sind sondern vom Installationsmedium laufen. Diese werden hier auf 'lokal installiert' gesetzt und demnach auch lokal installiert. Die Features sind anschließend lauffähig.
			lCurrentFeatureState = lFeatureActive
		End If
		If sFeatureState(i) = lFeatureAbsent And lFeatureAbsent <> lCurrentFeatureState Then
			sFeatureState(i) = lCurrentFeatureState
		End If
	Next i
 
	'--- Führe die Installation durch ---
	'Zunächst ist der Parameterstring für den Installeraufruf zu erzeugen
	Dim sParams As String
	sParams = "REBOOT=ReallySuppress"
	sParams = sParams + " TRANSFORMS=AcroRead.mst"  
	'Aktive Features
	'Stelle zunächst fest, ob es überhaupt aktive Features gibt
	Dim bActiveFeaturesExist As Boolean
	bActiveFeaturesExist = False
	For i = 1 To lMaxFeatures
		If sFeatureState(i) = lFeatureActive Then
			bActiveFeaturesExist = True
			i = lMaxFeatures
		End If
		Next i
	'Falls es aktive Features gibt, so installiere sie
	If bActiveFeaturesExist = True Then
		sParams = sParams + " ADDLOCAL="
		For i = 1 To lMaxFeatures
			If sFeatureState(i) = lFeatureActive Then
				sParams = sParams + sFeatures(i)
				If i <> lMaxFeatures Then
					sParams = sParams + ","
				End If
			End If
		Next i
	End If
 
	'Inaktive Features
	'Stelle zunächst fest, ob es überhaupt inaktive Features gibt
	Dim bInactiveFeaturesExist As Boolean
	bInactiveFeaturesExist = False
	For i = 1 To lMaxFeatures
		If sFeatureState(i) = lFeatureAbsent Then
			bInactiveFeaturesExist = True
			i = lMaxFeatures
		End If
		Next i
	'Falls es inaktive Features gibt, so deinstalliere sie
	If bInactiveFeaturesExist = True Then
		sParams = sParams + " REMOVE="
		For i = 1 To lMaxFeatures
			If sFeatureState(i) = lFeatureAbsent Then
				sParams = sParams + sFeatures(i)
				If i <> lMaxFeatures Then
					sParams = sParams + ","
				End If
			End If
		Next i
	End If
 
	'Aufruf des Installers
	Dim sStatusText As String
	sStatusText = sProductName + ", " + sProductVersion
	hStatusHandle = OpenStatusWindow&(sStatusText, "{package..name}")
	iErrCode = MsiInstallProduct(sSetupFile, sParams)
	' Auswertung des Fehlercodes des Installers:
	Select Case iErrCode
	Case ERROR_SUCCESS
	    ReportDXDist (1, "Installation SUCCESS")
	    iErrCode = 0
	Case ERROR_SUCCESS_REBOOT_INITIATED
	    ReportDXDist (1, "Installation SUCCESS - Reboot Initiated")
	    iErrCode = 0
	Case ERROR_SUCCESS_REBOOT_REQUIRED
	    ReportDXDist (1, "Installation SUCCESS - Reboot required")
	    iErrCode = 1
	Case Else
	    Err.Raise iErrCode, "MsiInstallProduct(" & sSetupFile & ")", "Paket konnte nicht installiert werden!"
	End Select
 
	Ende:
	'Gebe das Installerobjekt wieder frei
	Set oInstaller = Nothing
 
	ReportDXDist (1, "MSI-Installation abgeschlossen")
 
	Phase1 = iErrCode
 
	GoTo EndeOK:
 
	Fehler:
	FehlerSetzen("Fehler", "Es ist ein Fehler aufgetreten: " + Err.Description + " " + Err.Source + " " + Str(Err.Number))
	Phase1 = -1
 
	EndeOK:
 
	If hStatusHandle > 0 Then
       CloseStatusWnd&(hStatusHandle)
	End If
End Function
 
Function Phase2
 
	' Die Variable iErrCode erhält den Fehlercode bzw. den Rückgabewert für die Funktion
	Dim iErrCode As Long
	iErrCode = 0
 
	'Service Pack Dateien installieren
	On Error GoTo Fehler
 
    Dim oInstaller As Object
    Set oInstaller = CreateObject("WindowsInstaller.Installer")
 
    ' Konfiguriere den Interaktionslevel des Installers
    oInstaller.UILevel = msiUILevelBasic + msiUILevelHideCancel + msiUILevelProgressOnly
 
    ' Aktiviere die Protokollierung
    oInstaller.EnableLog ("v", "{ENVIRONMENT..TEMP}\{package..name}_MSP.log")
 
	EnableReportDXDist
 
	ReportDXDist (1, "Service Pack Dateien installieren")
 
	iErrCode = MsiApplyPatch(sUpdateDir + "AcroRdrDCUpd1900820080_MUI.msp", "", 0, "EULA_ACCEPT=YES REINSTALLMODE=omus REINSTALL=All REBOOT=ReallySuppress")
	' Auswertung des Fehlercodes des Installers:
	Select Case iErrCode
		Case ERROR_SUCCESS
			ReportDXDist(1, "Installation SUCCESS")
			iErrCode = 0
		Case ERROR_SUCCESS_REBOOT_INITIATED
			ReportDXDist(1, "Installation SUCCESS - Reboot Initiated")
			iErrCode = 0
		Case ERROR_SUCCESS_REBOOT_REQUIRED
			ReportDXDist(1, "Installation SUCCESS - Reboot required")
			iErrCode = 1
		Case Else
			Err.Raise iErrCode, "MsiApplyPatch(ApplicationManagerAgent64.msp)", "Patch konnte nicht installiert werden!"
	End Select
 
	ReportDXDist (1, "Service Pack Dateien installieren abgeschlossen")
 
	Phase2 = iErrCode
 
	GoTo EndeOK:
 
	Fehler:
	FehlerSetzen("Fehler", "Es ist ein Fehler aufgetreten: " + Err.Description + " " + Err.Source + " " + Str(Err.Number))
	Phase2 = 1
 
	EndeOK:
 
End Function
 
Function Phase3
 
	'PostInstall
	On Error GoTo Fehler
	EnableReportDXDist
 
	Phase3 = 0
 
	GoTo EndeOK:
 
	Fehler:
	FehlerSetzen("Fehler", "Es ist ein Fehler aufgetreten: " + Err.Description + " " + Err.Source + " " + Str(Err.Number))
	Phase3 = 1
 
	EndeOK:
 
End Function
 
Function Phase4
 
	'Registrierungsschlüssel für Active Setup setzen
	On Error GoTo Fehler
	EnableReportDXDist
 
	Phase4 = 0
 
	GoTo EndeOK:
 
	Fehler:
	FehlerSetzen("Fehler", "Es ist ein Fehler aufgetreten: " + Err.Description + " " + Err.Source + " " + Str(Err.Number))
	Phase4 = 1
 
	EndeOK:
 
End Function
 
Function FehlerSetzen(cmd$, errmsg$)
 
	' Message-Ids
	Dim QP_EXEC_ERR_EXECUTING
	Dim QP_EXEC_ERR_EXECCMD
	QP_EXEC_ERR_EXECUTING = 17460176
	QP_EXEC_ERR_EXECCMD = 17725734
 
	' Initialisierung von PET
	Dim oPetComHelper As Object
	Set oPetComHelper = CreateObject("PetcomHelper.PetcomHelper.1")
	oPetComHelper.UnloadRegistry()
	oPetComHelper.LoadRegistry("DX-Union", "DX-Script", "DX-Union")
 
	Dim oPetComError As Object
	Set oPetComError = CreateObject("PetcomError.PetcomError.1")
 
	' Fehlermeldung auf Fehlerstack ablegen
	oPetComError.Error(0, QP_EXEC_ERR_EXECUTING, cmd$)
	oPetComError.Error(0, QP_EXEC_ERR_EXECCMD , errmsg$)
 
	' Fehlermeldungsbox mit den Meldungen vom Fehlerstack anzeigen
	' oPetComError.MessageBox()
 
End Function
 
Sub EnableReportDXDist
 
	' Report-File auf ausreichende Größe setzen
	Dim obDxRegistry As Object
	Set obDxRegistry = CreateObject("DxRegistry.DxRegistry.1")
 
	obDxRegistry.sKey = "HKEY_LOCAL_MACHINE"
	obDxRegistry.sSubkey = "SOFTWARE\Dr. Materna GmbH\Tracing\DX-UNION\DX-Distribute"
	obDxRegistry.Write 2, "ReportLevel"
	obDxRegistry.Write &H500000, "ReportMaxSize"
 
End Sub
 
Function ReportDXDist(ByVal ReportID%, ByVal ReportMsg$)
 
	Dim oPetComHelperRep As Object
	Dim oPetComReport As Object
	Dim iCompIDRep
 
	' PET-Report fuer DX-Dist initialisieren
	Set oPetComHelperRep = CreateObject("PetcomHelper.PetcomHelper.1")
	oPetComHelperRep.UnloadRegistry()
 
	'Beispiel-Einstellungen für Report nach DX-Script
	'oPetComHelperRep.LoadRegistry("DX-Union", "DX-Script", "DX-Union")
	'iCompIDRep = 267        ' DX-Script
 
	'Report für Komponente DX-Distribute erzeugen
	oPetComHelperRep.LoadRegistry("DX-Union", "DX-Distribute", "DX-Union")
	iCompIDRep = 259        ' DX-Distribute
 
	Set oPetComReport = CreateObject("PetcomReport.PetcomReport.1")
	oPetComReport.Report( iCompIDRep, ReportID%, "SWP '{package..name}'- " & ReportMsg$ )
 
	iLastReportID = ReportID%
	sLastReport   = ReportMsg$
 
	' Aufräumen
	oPetComHelperRep.UnloadRegistry()
	Set oPetComHelperRep = Nothing
	Set oPetComReport = Nothing
 
End Function
 
Function isFileExisting(path As String) As Boolean
	Dim obFso
	Set obFso = CreateObject("Scripting.FileSystemObject")
	isFileExisting = obFso.FileExists( unQuote(path) )
	Set obFso = Nothing
End Function
 
Function unQuote(source As String) As String
	Dim result As String
	Dim i
	For i = 1 To Len(source)
		If Mid(source,i,1) <> """" Then result = result + Mid(source,i,1)
	Next i
	unQuote = result
End Function