Option Explicit
Dim sLastReport As String
Dim iLastReportID As Integer
'Dim sInstallationsparameter, sInstallationsparameter1
'Dim sInstallationskommando, sInstallationskommando1
'Dim lRet, lRet1
 
'Const sSetupDir = """{ENVIRONMENT..TEMP}\{package..name}\"""
 
Sub Main
'       Dim objShell
'	Set objShell = CreateObject("WScript.Shell")
'       Dim OsType
'	Dim sLng As String
'	Dim sOS As String
 
'	GetRegString (HKLM,"SYSTEM\CurrentControlSet\Control\Nls\Language","InstallLanguage",sLng)
'	GetRegString (HKLM,"SOFTWARE\Microsoft\Windows NT\CurrentVersion","CurrentBuildNumber",sOS)
 
	Dim sVersion, sSWID As String
	
	sSWID = Chr$(123)+"AC76BA86-1033-FFFF-BA7E-000000000006"+Chr$(125)	
	sVersion = WmiReadRegString(64, HKLM, "Software\Microsoft\Windows\CurrentVersion\Uninstall\"+sSWID, "DisplayVersion", "nicht vorhanden!")
	MsgBox(sVersion)
'	
'	If sOS = "7601" or sOS = "10547" then 'Win7 SP1 oder Win 10
'		sInstallationskommando = """{ENVIRONMENT..TEMP}\{package..name}\AcrobatSecUpd11015.msp"""
'		sInstallationsparameter = " /qb-! /l*v ""C:\Windows\userfiles\logs\Adobe_Acrobat_11_x_Pro_und_Standard_Update.log"""
'		sInstallationskommando1 = """{ENVIRONMENT..TEMP}\{package..name}\AcrobatUpd11014.msp"""
'		sInstallationsparameter1 = " /qb-! /l*v ""C:\Windows\userfiles\logs\Adobe_Acrobat_11_x_Pro_und_Standard_Update1.log"""
'	Else
'		FehlerSetzen("Installation", "Not Supported OS. OS Version is: " & sOS)
'	End if
'	
'	Dim oDXCopyObj As Object
'	Set oDXCopyObj = CreateObject("DxftClient.DxftClient.1")
'
'	'Evtl. alte Setup-Daten entfernen
'	rm32 ("-q -r -f", sSetupDir)
'	
'	'Installationsmedium in ein temporaeres Zielverzeichnis auf dem Client kopieren
'	'oDXCopyObj.DxCopy("-v -f -r ""{dynamic..depotrechner}:{dynamic..verzeichnis}/pkg""" + " " + sSetupDir)
'
'	If Not IsFolderExistent("C:\Windows\userfiles\logs") Then
'		MakeDir32 ("","C:\Windows\userfiles\logs") 
'	End If 
'
'	If sUpdate = "11.0.14" then 'Update Security-Patch installieren
'		'Starten eines MSI Setups
'		lRet = wexec32("msiexec", "/p " & sInstallationskommando &  sInstallationsparameter, SW_NORMAL)
'	Else 'Installation Update vor Security-Patch
'		lRet1 = wexec32("msiexec", "/p " & sInstallationskommando1 &  sInstallationsparameter1, SW_NORMAL)
'		
'		' Fehlerüberprüfung
'		If lRet = 3010 Then
'			lRet = 0
'		End If
'		If lRet = 1641 Then
'			lRet = 0
'		End If
'		If lRet = 1605 Then
'			lRet = 0
'		End If
'		If lRet <> 0 Then
'			FehlerSetzen("Installation", "Fehler während der Installation. Der Rückgabewert ist: " & lRet)
'		Else
'			ReportDXDist (1, "Installation abgeschlossen")
'		End If
'		
'		If lRet1 = 0 then 'Update Security-Patch installieren
'		'Starten eines MSI Setups
'		lRet = wexec32("msiexec", "/p " & sInstallationskommando &  sInstallationsparameter, SW_NORMAL)
'		End If
'	End If
'	
'	' Fehlerüberprüfung
'	If lRet = 3010 Then
'		lRet = 0
'	End If
'	If lRet = 1641 Then
'		lRet = 0
'	End If
'	If lRet = 1605 Then
'		lRet = 0
'	End If
'	If lRet <> 0 Then
'		FehlerSetzen("Installation", "Fehler während der Installation. Der Rückgabewert ist: " & lRet)
'    Else
'        ReportDXDist (1, "Installation abgeschlossen")
'	End If
	
'	If lRet = 1642 then
'		wexec32("cmd", " /c ping muc-dxup01", SW_HIDE)
'		'Starten eines MSI Setups
'		lRet = wexec32("msiexec", "/p " & sInstallationskommando1 &  sInstallationsparameter1, SW_NORMAL)
'	End if
	
	'Löschen der Setup-Daten
	'rm32 ("-q -r -f", sSetupDir)
 
	'Aufraeumen
	'Set oDXCopyObj=Nothing
	
End Sub
 
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