' Hello friends,
'
' Make sure vc_red.msi is in the same directory as this file before running:
'
' cscript <name_of_file>.vbs
'
' Modify this file as needed.
'
' Kind Regards,
' dumpydooby (modded by ricktendo64)
Option Explicit
Dim ws, installer, db, view, x
Set ws = WScript.CreateObject("WScript.Shell")
Set installer = WScript.CreateObject("WindowsInstaller.Installer")
Set db = installer.OpenDatabase("vc_red.msi", 1)
Function QueryDatabase(query)
	WScript.Echo query
	On Error Resume Next
	Set view = db.OpenView (query) : CheckError
	view.Execute : CheckError
	view.close
	Set view = nothing
	db.commit : CheckError
End Function
Sub CheckError
	Dim message, errRec
	If Err = 0 Then Exit Sub
	message = Err.Source & " " & Hex(Err) & ": " & Err.Description
	If Not installer Is Nothing Then
		Set errRec = installer.LastErrorRecord
		If Not errRec Is Nothing Then message = message & vbNewLine & errRec.FormatText
	End If
	Wscript.Echo "" : Wscript.Echo message : Wscript.Echo ""
	Wscript.Quit 2
End Sub
On Error Resume Next
QueryDatabase("DELETE FROM `Component` WHERE `Directory_` = 'CSetupMM_URT_amd64.3643236F_FC70_11D3_A536_0090278A1BB8'") 
QueryDatabase("DELETE FROM `Component` WHERE `Directory_` = 'CSetupMM_URT_x86.3643236F_FC70_11D3_A536_0090278A1BB8'") 
QueryDatabase("DELETE FROM `Component` WHERE `Directory_` = 'DR_54322.3643236F_FC70_11D3_A536_0090278A1BB8'") 
QueryDatabase("DELETE FROM `Directory` WHERE `Directory` = 'CSetupMM_URT_amd64.3643236F_FC70_11D3_A536_0090278A1BB8'") 
QueryDatabase("DELETE FROM `Directory` WHERE `Directory` = 'CSetupMM_URT_x86.3643236F_FC70_11D3_A536_0090278A1BB8'") 
QueryDatabase("DELETE FROM `Directory` WHERE `Directory` = 'DR_54322.3643236F_FC70_11D3_A536_0090278A1BB8'") 
QueryDatabase("DELETE FROM `FeatureComponents` WHERE `Feature_` = 'VC_RED_enu_amd64_net_SETUP'") 
QueryDatabase("DELETE FROM `FeatureComponents` WHERE `Feature_` = 'VC_RED_enu_x86_net_SETUP'") 
QueryDatabase("DELETE FROM `FeatureExtensionData` WHERE `FeatureId` = 'VC_RED_enu_amd64_net_SETUP'") 
QueryDatabase("DELETE FROM `FeatureExtensionData` WHERE `FeatureId` = 'VC_RED_enu_x86_net_SETUP'") 
QueryDatabase("DELETE FROM `Feature` WHERE `Feature` = 'VC_RED_enu_amd64_net_SETUP'") 
QueryDatabase("DELETE FROM `Feature` WHERE `Feature` = 'VC_RED_enu_x86_net_SETUP'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_EULA_chs'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_EULA_cht'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_EULA_deu'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_EULA_enu'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_EULA_esn'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_EULA_fra'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_EULA_ita'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_EULA_jpn'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_EULA_kor'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_EULA_rus'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_exe_amd64'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_exe_x86'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_ini_enu'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_ini_ln'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_amd64_chs'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_x86_chs'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_amd64_cht'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_x86_cht'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_amd64_deu'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_x86_deu'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_amd64_enu'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_x86_enu'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_amd64_esn'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_x86_esn'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_amd64_fra'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_x86_fra'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_amd64_ita'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_x86_ita'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_amd64_jpn'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_x86_jpn'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_amd64_kor'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_x86_kor'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_amd64_rus'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_Install_res_dll_x86_rus'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_MSI_amd64_enu'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_MSI_x86_enu'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_VCRedist_Bmp'") 
QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_VC_Redist_Noninstall_VCRedist_CAB'") 
QueryDatabase("DELETE FROM `MsiFileHash` WHERE `File_` = 'F_VC_Redist_NonInstall_Globdata_ini'") 
QueryDatabase("DELETE FROM `MsiFileHash` WHERE `File_` = 'F_VC_Redist_NonInstall_Install_ini_enu'") 
QueryDatabase("DELETE FROM `MsiFileHash` WHERE `File_` = 'F_VC_Redist_Noninstall_EUAL_txt_chs'") 
QueryDatabase("DELETE FROM `MsiFileHash` WHERE `File_` = 'F_VC_Redist_Noninstall_EUAL_txt_cht'") 
QueryDatabase("DELETE FROM `MsiFileHash` WHERE `File_` = 'F_VC_Redist_Noninstall_EUAL_txt_deu'") 
QueryDatabase("DELETE FROM `MsiFileHash` WHERE `File_` = 'F_VC_Redist_Noninstall_EUAL_txt_enu'") 
QueryDatabase("DELETE FROM `MsiFileHash` WHERE `File_` = 'F_VC_Redist_Noninstall_EUAL_txt_esn'") 
QueryDatabase("DELETE FROM `MsiFileHash` WHERE `File_` = 'F_VC_Redist_Noninstall_EUAL_txt_fra'") 
QueryDatabase("DELETE FROM `MsiFileHash` WHERE `File_` = 'F_VC_Redist_Noninstall_EUAL_txt_ita'") 
QueryDatabase("DELETE FROM `MsiFileHash` WHERE `File_` = 'F_VC_Redist_Noninstall_EUAL_txt_jpn'") 
QueryDatabase("DELETE FROM `MsiFileHash` WHERE `File_` = 'F_VC_Redist_Noninstall_EUAL_txt_kor'") 
QueryDatabase("DELETE FROM `MsiFileHash` WHERE `File_` = 'F_VC_Redist_Noninstall_EUAL_txt_rus'") 
QueryDatabase("DELETE FROM `MsiFileHash` WHERE `File_` = 'F_VC_Redist_Noninstall_VCRedist_Bmp'") 
QueryDatabase("INSERT INTO `Property` (`Property`,`Value`) VALUES ('USING_EXUIH','1')") 
Can't load '/usr/lib/p7zip/Codecs/.keep-p7zip' (Permission denied)
