[Tweaked] Skype 7.18.32.111 (Multilanguage)

ricktendo · May 17, 2012

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:

Quote

x.xx.0.xxx - normal installer

x.xx.1.xxx - affiliate installer provides services [Taiwan's PChome]

x.xx.10.xxx - affiliate installer [Hong Kong company HGC]

x.xx.11.xxx - affiliate installer [Polish company Onet]

x.xx.24.xxx - affiliate installer [a UK social networking site Bebo]

x.xx.32.xxx - Business installer more convenient for centralized deployment in networks

x.xx.56.xxx - affiliate installer [Taiwan's PChome]

x.xx.59.xxx - online installer, or as a program, updated through

x.xx.63.xxx - affiliate installer [ukrainian Privatbank]

x.xx.64.xxx - UI version - version with a new user interface

x.xx.65.xxx - affiliate installer [Korean company Daesung]

x.xx.66.xxx - affiliate installer [Yandex]

x.xx.67.xxx - affiliate installer offers to install the homepage Yandex search and services;

x.xx.73.xxx - version with support for Windows Live Messenger

x.xx.74.xxx - version with support for Windows Live Messenger

x.xx.80.xxx - affiliate installer [the Japanese company Excite]

x.xx.81.xxx - UI version - version with a new user interface

x.xx.85.xxx - UI version - version with a new user interface, officially announced Microsoft;

x.xx.99.xxx - installer strategic partner of Skype in China, the company GMF

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

oguz · June 7, 2012

Hi @Rick,

Skype 5.9.0.123 is released

oguz · June 14, 2012

Skype 5.10.0.114 is released

Forseti · July 5, 2012

@Ricardo

Skype 5.10.0.115 is released

-----------------

:newhere:

WasHere · July 17, 2012

@ricktendo64

Skype v5.10.32.116 is release.

Tweaker · October 9, 2012

Thanks Rick, this is a good one :-)

Forseti · October 24, 2012

@Ricardo

Skype 6.0.0.120 is released

Edited October 24, 2012 by Forseti

Forseti · November 14, 2012

@Ricardo

Skype 6.0.0.126 is released

Balbis · December 26, 2012

Salio la versión 6.0.60.126

ricktendo · December 26, 2012

Creo que estas equivocado

Balbis · December 27, 2012

Estaba buscando un programa y lo encontre de casualidad http://skype.softonic.com/ (Desconosco si es verdad o no)

ricktendo · December 28, 2012

No, el numero 32 nunca cambia (indica que es x86)

bphlpt · December 28, 2012

Guys - English thread?

Balbis - Release version 6.0.60.126

ricktendo64 - I think you're wrong

Balbis - Was looking for a program and I found it by chance http://skype.softonic.com/ (do not know if it's true or not)

ricktendo64 - No, the number 32 never changes (indicates the x86)

Cheers and Regards

Edited December 28, 2012 by bphlpt

Forseti · January 10, 2013

@Ricardo
Skype 6.1.0.129 is released!

oguz · January 10, 2013

Skype 6.1.0.129 is released

oguz · January 10, 2013

Name is still Skype 6.0.32.129

ultrazoner · January 15, 2013

How do silent install???

ricktendo · January 21, 2013

<installer>.msi /qn

Forseti · February 13, 2013

@Ricardo
Skype 6.2.0.106 is released!

HJSC · February 13, 2013

Thanks Rick, it's just what I wanted.

:cap:

RicaNeaga · February 13, 2013

The latest version from Microsoft is 6.2.73.106, which is newer than yours, Rick (just tried your installer). You can get it from this direct link.

ricktendo · February 13, 2013

Now I see the difference...anyway I don't use that installer I use the business version with no updater and no toolbar

I'm sticking with using the business version (which the 3rd version number is always 32)

pppx00 · February 21, 2013

Link is not working

ricktendo · February 21, 2013

Link is working just fine here (unless you are doing some kinda vudu to avoid afly)

Forseti · March 13, 2013

@Ricardo

Skype 6.3.0.105 is released!

Edited March 13, 2013 by Forseti

Sign In

[Tweaked] Skype 7.18.32.111 (Multilanguage)

Recommended Posts

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

ricktendo

ricktendo

ricktendo

Join the conversation