Leaderboard

Slim Microsoft .NET Framework 4.6.1 Full x86/x64 Slim Microsoft .NET Framework 4.6.1 Full x86/x64 Incl. Language Packs (ar cs da de el es fi fr he hu it ja ko nl no pl pt-BR pt-PT ru sv tr zh-Hans zh-Hant) Some tools and resources for (re)creating your own slim (intl) installer .NET4.6.1 SFX Maker (installer repacker): .NET4.6.1 Intl SFX Maker (if you want to add LP): Silent "No GUI" SFX alternative: Slim down your dotNET4(.6.x) & LP installers: If you cant find a hotfix try using the KB(1234567) number w/ this URL: Slim Language Packs: Arabic: N/A Chinese (Simplified): Chinese (Traditional): Czech: Danish: Dutch: Finnish: French: German: Greek: Hebrew: Hungarian: Italian: Japanese: Korean: Norwegian (Bokmal): Polish: Portuguese (Brazil): Portuguese (Portugal): Russian: Spanish: Swedish: Turkish: http://support2.microsoft.com/hotfix/KBHotfix.aspx?kbnum=1234567

About: This is the business version of Skype MSI so by default it has no junk! Tweaked: Shortcut moved out of sub folder into All Programs, Run on Windows startup removed, Run after standard GUI install removed Differences between Skype installers: VBS Editor Script Option Explicit Dim ws, installer, fs, db, view, record, x Set ws = WScript.CreateObject("WScript.Shell") Set fs = CreateObject("Scripting.FileSystemObject") Set installer = WScript.CreateObject("WindowsInstaller.Installer") If WScript.Arguments.Count <> 0 Then For each x in WScript.Arguments ProcessMSI x Next Else If fs.FileExists("SkypeSetup.msi") Then ProcessMSI "SkypeSetup.msi" End If '********************************************************************** '** Function; Query MSI database ** '********************************************************************** Function QueryDatabase(arrOpts) On Error Resume Next Dim query, file, binary : binary = false If LCase(TypeName(arrOpts)) = "string" Then query = arrOpts Else If fs.FileExists(arrOpts(0)) Then file = arrOpts(0) query = arrOpts(1) Else query = arrOpts(0) file = arrOpts(1) End If binary = true End If WScript.Echo query If binary Then Set record = installer.CreateRecord(1) record.SetStream 1, file End If Set view = db.OpenView (query) : CheckError If binary Then view.Execute record : CheckError Else view.Execute : CheckError End If view.close Set view = nothing If binary Then Set record = nothing binary = false db.commit : CheckError End Function '********************************************************************** '** Subroutine; Check errors in most recently executed MSI command ** '********************************************************************** 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 '********************************************************************** '** Function; Push changes to MSI ** '********************************************************************** Function ProcessMSI(file) Set db = installer.OpenDatabase(file, 1) On Error Resume Next QueryDatabase("DELETE FROM `AdminExecuteSequence` WHERE `Action` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `AdminUISequence` WHERE `Action` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `AdvtExecuteSequence` WHERE `Action` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `Component` WHERE `Directory_` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `Component` WHERE `Directory_` = 'UpdaterFolder'") QueryDatabase("DELETE FROM `CustomAction` WHERE `Action` = 'SkypeStart1'") QueryDatabase("DELETE FROM `CustomAction` WHERE `Action` = 'SkypeStart2'") QueryDatabase("DELETE FROM `CustomAction` WHERE `Action` = 'SkypeUpdaterCleanup'") QueryDatabase("DELETE FROM `CustomAction` WHERE `Action` = 'SkypeUpdaterConfig'") QueryDatabase("DELETE FROM `CustomAction` WHERE `Action` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `Directory` WHERE `Directory` = 'SystemFolder'") QueryDatabase("DELETE FROM `Directory` WHERE `Directory` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `Directory` WHERE `Directory` = 'UpdaterFolder'") QueryDatabase("DELETE FROM `Feature` WHERE `Feature` = 'Updater'") QueryDatabase("DELETE FROM `FeatureComponents` WHERE `Component_` = 'C_CENTRAL_msvcp120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `FeatureComponents` WHERE `Component_` = 'C_CENTRAL_msvcr120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `FeatureComponents` WHERE `Component_` = 'C_CENTRAL_vccorlib120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `FeatureComponents` WHERE `Feature_` = 'Updater'") QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_CENTRAL_msvcp120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_CENTRAL_msvcr120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_CENTRAL_vccorlib120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'SkypeUpdater'") QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'DeleteServices'") QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'InstallServices'") QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'SkypeUpdaterCleanup'") QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'SkypeUpdaterConfig'") QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'StartServices'") QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'StopServices'") QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `InstallUISequence` WHERE `Action` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'SkypeStart1'") QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'SkypeStart2'") QueryDatabase("DELETE FROM `ModuleComponents` WHERE `Component` = 'C_CENTRAL_msvcp120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `ModuleComponents` WHERE `Component` = 'C_CENTRAL_msvcr120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `ModuleComponents` WHERE `Component` = 'C_CENTRAL_vccorlib120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `ModuleSignature` WHERE `ModuleID` = 'Microsoft_VC120_CRT_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") QueryDatabase("DELETE FROM `MsiShortcutProperty` WHERE `Shortcut_` = 'SkypeDesktopShortcut'") QueryDatabase("DELETE FROM `Property` WHERE `Value` = 'DirectoryTable'") QueryDatabase("DELETE FROM `Registry` WHERE `Component_` = 'SkypeUpdater'") ' QueryDatabase("DELETE FROM `Registry` WHERE `Key` = 'Software\Microsoft\Windows\CurrentVersion\Run'") ' QueryDatabase("DELETE FROM `ServiceControl`") ' QueryDatabase("DELETE FROM `ServiceInstall`") QueryDatabase("DELETE FROM `Shortcut` WHERE `Shortcut` = 'SkypeDesktopShortcut'") QueryDatabase("INSERT INTO `Component` (`Component`,`ComponentId`,`Directory_`,`Attributes`,`Condition`,`KeyPath`) VALUES ('SkypeRegistryRun','{7D53301D-E4F0-403A-9A1C-876F1544939E}','PhoneFolder','4','RUN = 1','reg08D3E7E5CD85CB55680CCDE42A2E2625')") QueryDatabase("INSERT INTO `Control` (`Dialog_`,`Control`,`Type`,`X`,`Y`,`Width`,`Height`,`Attributes`,`Property`,`Text`,`Control_Next`) VALUES ('InstallDirDlg','Run','CheckBox','20','140','370','18','19','RUN','&Start Skype when I start Windows','Next')") QueryDatabase("INSERT INTO `FeatureComponents` (`Feature_`,`Component_`) VALUES ('Phone','SkypeRegistryRun')") QueryDatabase("INSERT INTO `Property` (`Property`,`Value`) VALUES ('LicenseAccepted','1')") QueryDatabase("UPDATE `Shortcut` SET Directory_ = 'ProgramMenuFolder' WHERE `Directory_` = 'ProgramMenuDir'") QueryDatabase("UPDATE `Registry` SET Component_ = 'SkypeRegistryRun' WHERE `Registry` = 'reg08D3E7E5CD85CB55680CCDE42A2E2625'") QueryDatabase("UPDATE `Control` SET Control_Next = 'Run' WHERE `Control` = 'ChangeFolder'") Set db = nothing End Function

Updated Add: 2789648

I was getting annoyed at the error message's not allowing it to silently run this package so I made an autoit script to fix it: #Region ;**** Directives created by AutoIt3Wrapper_GUI ****#AutoIt3Wrapper_UseX64=n#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.8.1 Author: myName Script Function: Template AutoIt script.#ce ----------------------------------------------------------------------------#RequireAdmin; Script Start - Add your code below here$Runs = Run (@ScriptDir&"\VBCFJRedist_AIO_x86_x64-2013-02-07.exe /y", @ScriptDir)While ProcessExists($Runs) If WinExists("Windows Installer") Then ControlClick("Windows Installer", "OK", "[CLASS:Button; INSTANCE:1]") EndIf Sleep(100)WEnd Thanks rick, I read that using .msi instead of the .exe is what causes the errors to show (no way to disable them), but using the .msi is faster and smaller, so with protection agains it stopping I am happy again, this only continues when an error is found so if you manually uninstall the packages first it'll work as intended still, just in case someone needs this totally silent.

KB2723430 VC++ 2010 files have been updated from v10.0.40219.434 to v10.0.40219.436 Server might be down right now