40 lines
1.1 KiB
Plaintext
40 lines
1.1 KiB
Plaintext
'-------------------------------------------------------------------
|
|
' 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
|