'-------------------------------------------------------------------
' 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