First

Java Tool/pkg/AUDI_JavaUninstall_ALL_4.0/_Uninstall.vbs

@@ -0,0 +1,39 @@
+'-------------------------------------------------------------------
+' Gerd Czaya
+' 01.04.2015
+' uninstall des JavaUninstall 3.1 Paketes,
+' der geschriebene Branding Key wird geloescht
+'--------------------------------------------------------------------
+
+Option Explicit
+Dim pName, pVersion, pLang, pRevision
+Dim pInstallDate, pCustomer
+
+pName = 	"Audi_JavaUninstall"
+pVersion = 	"4.0"
+pLang =		"NTR"
+pRevision = "91"
+pCustomer = "VWG"
+
+'----- 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
+
+'----- Remove Branding Key -----
+DeleteBrandingInformation()
+
+'----- ENDE Uninstallation -----
+FinishScript()
+
+Function DeleteBrandingInformation(pName, regpath, regType)
+	DeleteReg regType, regpath &"\"& pName , GetOSBit()
+End Function