[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

Link to comment

Share on other sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

ricktendo

ricktendo

ricktendo

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation