This commit is contained in:
2025-12-14 15:46:14 +01:00
parent 16a3b886fa
commit 9ab325d39d
310 changed files with 23964 additions and 0 deletions

View File

@@ -0,0 +1,85 @@
<?xml version="1.0" encoding="utf-8" ?>
<Errorhandling>
<Errorlist>
<Error Errornumber ="1" Description="Unspecific error occured"></Error>
<Error Errornumber ="500" Description="User profile cannot be loaded.">
<Source>AudiSysWrapper.exe</Source>
</Error>
<Error Errornumber ="999" Description="User info screen canceled by user.">
<Source>Infoblende.exe</Source>
</Error>
<Error Errornumber ="1601" Description="The Windows Installer service could not be accessed.">
<Source>MSIEXEC.exe</Source>
</Error>
<Error Errornumber ="1602" Description="User cancel installation.">
<Source>MSIEXEC.exe</Source>
</Error>
<Error Errornumber ="1603" Description="Fatal error during installation.">
<Source>MSIEXEC.exe</Source>
</Error>
<Error Errornumber ="1605" Description="This action is only valid for products that are currently installed.">
<Source>MSIEXEC.exe</Source>
</Error>
<Error Errornumber ="1618" Description="Another installation is already in progress.">
<Source>MSIEXEC.exe></Source>
</Error>
<Error Errornumber ="1619" Description="This installation package could not be opened.">
<Source>MSIEXEC.exe</Source>
</Error>
<Error Errornumber ="1624" Description="Error applying transforms.">
<Source>MSIEXEC.exe</Source>
</Error>
<Error Errornumber ="1638" Description="Another version of this product is already installed. Installation of this version cannot continue. To configure or remove the existing version of this product, use Add/Remove Programs on the Control Panel.">
<Source>MSIEXEC.exe</Source>
</Error>
<Error Errornumber ="1641" Description="The installer has started a reboot.">
<Source>MSIEXEC.exe</Source>
</Error>
<Error Errornumber ="1642" Description="The installer cannot install the upgrade patch because the program being upgraded may be missing or the upgrade patch updates a different version of the program.">
<Source>MSIEXEC.exe</Source>
</Error>
<Error Errornumber ="5100" Description="Restart required before installation can start.">
<Source>VW-Wrapper</Source>
</Error>
<Error Errornumber ="3017" Description="The requested operation failed. A system reboot is required to roll back changes made.">
<Source>MSIEXEC.exe;Wusa.exe</Source>
</Error>
<Error Errornumber ="16001" Description="There is not enough space on the C: drive.">
<Source>_Install.vbs</Source>
</Error>
<Error Errornumber ="16002" Description="Please reboot your computer to finish the installation.">
<Source>_Install.vbs</Source>
</Error>
<Error Errornumber ="16003" Description="Processes are still open">
<Source>_Install.vbs</Source>
</Error>
<Error Errornumber ="16010" Description="Audi Client not supported.">
<Source>_Install.vbs</Source>
</Error>
<Error Errornumber ="1073807364" Description="Process closes by shutdown/reboot.">
<Source>Infoblende.exe</Source>
</Error>
<Error Errornumber ="-2147418113" Description="Fatal error during installation/uninstall.">
<Source>Wusa.exe</Source>
</Error>
</Errorlist>
<Successlist>
<Success Errornumber ="0" Description="OK">
</Success>
<Success Errornumber ="3010" Description="A reboot is required to complete the install.">
<Source>MSIEXEC.exe;*.exe</Source>
</Success>
<Success Errornumber ="2359302" Description="The update is already installed on this computer.">
<Source>Wusa.exe</Source>
<Comment>install</Comment>
</Success>
<Success Errornumber ="2359303" Description="The update is not installed on this computer.">
<Source>Wusa.exe</Source>
<Comment>uninstall</Comment>
</Success>
<Success Errornumber ="-2145124329" Description="The update is not applicable to your computer.">
<Source>Wusa.exe></Source>
<Comment>install</Comment>
</Success>
</Successlist>
</Errorhandling>

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,8 @@
@echo off
rem abfrage 32/64?
set pfad=%windir%\system32
if exist "%windir%\SysWOW64" set pfad=%windir%\SysWOW64
rem vbs start
%pfad%\cscript.exe "%~dp0_Install.vbs"
echo Errorlevel: %ERRORLEVEL%

View File

@@ -0,0 +1,183 @@
Option Explicit
Dim pName, pVersion, pLang, pRevision, pCustomer, pVersionold, pBrandingName, pAES
pName = "Audi_JavaSecurityConfig"
pVersion = "4.2"
pVersionold = "4.01"
pLang = "NTR"
pRevision = "91"
pCustomer = "VWG"
pAES = "AES-1-001680-A"
pBrandingName = pName &"_"& pVersion &"_"& pLang &"_"& pRevision
'----- Functions.vbs einbinden
Dim olibfso : Set olibfso = CreateObject("Scripting.FileSystemObject")
ExecuteGlobal olibfso.OpenTextFile(olibfso.GetParentFolderName(Wscript.ScriptFullName) + "\_Functions.vbs", 1, false).ReadAll
Set olibfso = nothing
LogEnabled = True
ClientInfo()
'----- Clients (Delete this block if not needed)
AC1_32_O = 1
AC2_32_O = 1
AC2_64_O = 1
AC2_32_N = 1
AC2_64_N = 1
AC3_Alpha = 1
AC4_64_N = 1
AC4_64_O = 1
ClientCheck()
'----- START Installation -----
Dim TrustWare32 : TrustWare32 = """" & ProgramFiles & "\IT Solution GmbH\trustWare CSP+ v1.1.0.12\32\itcspsrv.exe"""
Dim TrustWare64 : TrustWare64 = """" & ProgramFiles & "\IT Solution GmbH\trustWare CSP+ v1.1.0.12\64\itcspsrv.exe"""
' Altes Paket entfernen
VbsLog "----- Start Deinstallation " & pName & " " & pVersion
DeleteReg "KEY","HKLM\Software\AudiAG\InstalledProducts\" & pName & "\",32
DeleteReg "KEY","HKLM\Software\VWG\InstalledProducts\" & pName & "\",32
'Kopieren systemweite deployment.properties
CreateFolder WinDir & "\Sun\Java\Deployment"
CopyFile "Source\Deployment\*.*",WinDir & "\Sun\Java\Deployment"
'Disable Java Deployment Expiration Check
Dim HighestJavaPath : HighestJavaPath = GetHighestJavaPath(ProgramFiles & "\Java")
If Not IsNull(HighestJavaPath) Then
run "Disable Expiration Check","""" & HighestJavaPath & "\bin\javaws"" -userConfig deployment.expiration.check.enabled false",""
End If
'Kopieren der Zertifikate
CopyCerts(ProgramFiles & "\Java")
If GetOSBit()=64 Then CopyCerts(ProgramFiles64 & "\Java")
'Trustware
If CheckFile(TrustWare32) Then run "CSP+ 32",TrustWare32 & " installjava","0"
If GetOSBit() = 64 Then
If CheckFile(TrustWare64) Then run "CSP+ 64",TrustWare64 & " installjava","0"
End If
WriteRegInfo "0"
' Notwendiger RegKey f<>r die permanente Neuinstallations-M<>glichkeit sorgt
'WriteReg "REG_DWORD", "HKLM\Software\ApplicationPacks\JavaConfig", 1, 32
' Ausf<73>hren von C:\PROGRAM FILES\Java\[any Java Runtime]\bin\ssvagent.exe -new
RunAgent ProgramFiles & "\Java"
' Write Branding
Dim pBrandingNameOld : pBrandingNameold = pName &"_"& pVersionOld &"_"& pLang &"_"& pRevision
Dim Regpath : Regpath = "HKLM\Software\"&pCustomer&"\InstalledProducts"
dim regType : regType = "KEY"
'DIM pNow: pNow = Now
DeleteReg regType, regpath &"\"& pBrandingNameOld , 32
CreateBrandingInformation pName, pVersion, pLang, pRevision
'----- ENDE Installation -----
FinishScript()
Sub RunAgent(Folder)
Dim Dir,SubDir,JavaVer
If Not CheckFolder(Folder) Then Exit Sub
Set Dir = FSO.GetFolder(Folder)
For Each SubDir In Dir.SubFolders
JavaVer=Null
If Left(LCase(SubDir.Name),4)="jre7" Or Left(LCase(SubDir.Name),6)="jre1.7" Then
JavaVer="jre7"
ElseIf Left(LCase(SubDir.Name),4)="jre8" Or Left(LCase(SubDir.Name),6)="jre1.8" Then
JavaVer="jre8"
ElseIf Left(LCase(SubDir.Name),4)="jre9" Then
JavaVer="jre9"
Else
VbsLog "Information | '" & SubDir.Path & "' ist unbekannte Java Version"
End If
If Not IsNull(JavaVer) Then
VbsLog "Information | '" & SubDir.Path & "' ist " & JavaVer
If CheckFolder(SubDir.Path & "\bin") Then
RunNoWait "Run", SubDir.Path & "\bin\ssvagent.exe -new"
End If
End If
Next
End Sub
Sub CopyCerts(Folder)
Dim Dir,SubDir,JavaVer
If Not CheckFolder(Folder) Then Exit Sub
Set Dir = FSO.GetFolder(Folder)
For Each SubDir In Dir.SubFolders
JavaVer=Null
If Left(LCase(SubDir.Name),4)="jre7" Or Left(LCase(SubDir.Name),6)="jre1.7" Then
JavaVer="jre7"
ElseIf Left(LCase(SubDir.Name),4)="jre8" Or Left(LCase(SubDir.Name),6)="jre1.8" Then
JavaVer="jre8"
ElseIf Left(LCase(SubDir.Name),4)="jre9" Then
JavaVer="jre9"
Else
VbsLog "Information | '" & SubDir.Path & "' ist unbekannte Java Version"
End If
If Not IsNull(JavaVer) Then
VbsLog "Information | '" & SubDir.Path & "' ist " & JavaVer
If CheckFolder(SubDir.Path & "\lib\security") Then
''' !jetzt nach c:\windows\sun\java\deployment
''' CopyFile "Source\CA-Trusted-Certs_VWG\*.*",SubDir.Path & "\lib\security\"
If CheckFolder("Source\JCE_VWG\" & JavaVer) Then
CopyFile "Source\JCE_VWG\" & JavaVer & "\*.*",SubDir.Path & "\lib\security\"
End If
End If
End If
Next
End Sub
Function GetHighestJavaPath(Folder)
Dim Dir,Item,Name,Version,VersionMax,Path
VersionMax = 0
If Not CheckFolder(Folder) Then
VbsLog "Kein Java gefunden in '" & Folder & "'"
GetHighestJavaPath = Null
Exit Function
End If
Set Dir = FSO.GetFolder(Folder)
For Each Item In Dir.SubFolders
If CheckFile(Item.Path & "\bin\java.exe") Then
Version=GetFileVersion(Item.Path & "\bin\java.exe")
End If
If VersionCheck(VersionMax,Version) < 0 Then
VersionMax = Version
Path = Item.Path
End If
Next
If VersionMax > 0 Then
GetHighestJavaPath = Path
Else
GetHighestJavaPath = Null
End If
End Function
Sub WriteRegInfo(ErrorLevel)
Dim RegRoot
RegRoot = "HKLM\Software\VWG\InstalledProducts\" & pName
If UBound(errorList0)>=0 Then
WriteReg "SZ",RegRoot & "\ErrorLevel",Join(errorList0,","),32
Else
WriteReg "SZ",RegRoot & "\ErrorLevel",ErrorLevel,32
End If
End Sub

View File

@@ -0,0 +1,9 @@
@echo off
rem abfrage 32/64?
set pfad=%windir%\system32
rem if exist "%windir%\SysWOW64" set pfad=%windir%\SysWOW64
rem vbs start
%pfad%\cscript.exe "%~dp0_Uninstall.vbs"
echo Errorlevel: %ERRORLEVEL%
pause

View File

@@ -0,0 +1,26 @@
Option Explicit
Dim pName, pVersion, pLang, pRevision
pName = "Audi_JavaSecurityConfig"
pVersion = "4.01"
pLang = "NTR"
pRevision = "91"
'----- Functions.vbs einbinden
Dim olibfso : Set olibfso = CreateObject("Scripting.FileSystemObject")
ExecuteGlobal olibfso.OpenTextFile(olibfso.GetParentFolderName(Wscript.ScriptFullName) + "\_Functions.vbs", 1, false).ReadAll
Set olibfso = nothing
LogEnabled = True
'----- START Uninstallation -----
VbsLog "----- Start Deinstallation " & pName & " " & pVersion
DeleteReg "KEY","HKLM\Software\AudiAG\InstalledProducts\" & pName & "\",32
DeleteReg "KEY","HKLM\Software\VWG\InstalledProducts\" & pName & "\",32
VbsLog "----- Ende Deinstallation"
'----- ENDE Uninstallation -----
FinishScript()