[Bug 35794] New: iTunes 7 installer aborts early (failure to find builtin 'RegExp' class)

https://bugs.winehq.org/show_bug.cgi?id=35794

Bug ID: 35794
           Summary: iTunes 7 installer aborts early (failure to find
                    builtin 'RegExp' class)
           Product: Wine
           Version: 1.7.14
          Hardware: x86
                OS: Linux
            Status: NEW
          Severity: normal
          Priority: P2
         Component: vbscript
          Assignee: [e-mail]
          Reporter: [e-mail]

Hello folks,

continuation of bug 34154

--- snip ---
$ WINEDEBUG=+tid,+seh,+relay,+vbscript,+ole,+variant wine ./iTunesSetup7.exe
> > log.txt 2>&1

...
002f:trace:vbscript:disp_get_id using IDispatch
002f:trace:ole:ITypeInfo_fnGetIDsOfNames (0x1daf30) Name L"CompareVersions"
cNames 1
...
002f:warn:ole:ITypeInfo_fnGetIDsOfNames no names found
002f:fixme:msi:AutomationObject_GetIDsOfNames Unknown member
L"CompareVersions", clsid {000c109e-0000-0000-c000-000000000046}
...
002f:trace:vbscript:interp_errmode 1
002f:trace:vbscript:interp_new L"RegExp"
002f:fixme:vbscript:interp_new Class L"RegExp" not found
002f:fixme:vbscript:exec_script Failed 80004005 in resume next mode 
...
002d:err:msi:ITERATE_Actions Execution halted, action L"iTunesLaunchConditions"
returned 1603
--- snip ---

Relevant VBScript code snippet:

--- snip ---
...

Sub iTunesLaunchConditions
    PreventDowngrade
    DetectGEARDriverSetDeletion
    CheckUnsupportediPodSoftware
End Sub

Function CompareVersions(sVersion1, sVersion2)
    Dim rgExpVersionComponents
    Dim oMatches1, oMatches2
    Dim iVersion1, iVersion2
    Dim i

On Error Resume Next
    Set rgExpVersionComponents = New RegExp
    rgExpVersionComponents.Pattern = "(\d+).?"
    rgExpVersionComponents.Global= True
    Set oMatches1 = rgExpVersionComponents.Execute(sVersion1)
    Set oMatches2 = rgExpVersionComponents.Execute(sVersion2)
    i = 0
    Do
        Err.Clear
        iVersion1 = 0
        iVersion2 = 0
        iVersion1 = CInt(oMatches1(i).SubMatches(0))
        iVersion2 = CInt(oMatches2(i).SubMatches(0))
        If iVersion1 < iVersion2 Then
            CompareVersions = -1
            Exit Function
        ElseIf iVersion1 > iVersion2 Then
            CompareVersions = 1
            Exit Function
        End If
        i = i + 1
    Loop While Err.number = 0
    CompareVersions = 0
End Function

Sub PreventDowngrade
    Const msiInstallStateAdvertised = 1
    Dim Installer
    Dim RelatedProducts
    Dim UpgradeCode
    Dim ProductCode
    Dim ProductVersion
    Dim ProductVersionMax
    Dim ProductVersionFound

On Error Resume Next
    Set Installer = Session.Installer
    ProductVersion = Session.Property("ProductVersion")
    ProductVersionMax = ""
    UpgradeCode = Session.Property("UpgradeCode")
    Set RelatedProducts = Installer.RelatedProducts(UpgradeCode)
    For Each ProductCode in RelatedProducts
        If Installer.ProductState(ProductCode) = msiInstallStateAdvertised Then
            ProductVersionFound = Installer.ProductInfo(ProductCode, "Version")
        Else
            Err.Clear : ProductVersionFound =
Installer.ProductInfo(ProductCode, "VersionString")
            If Err.number <> 0 Then ProductVersionFound = ""
        End If
        If CompareVersions(ProductVersionFound, ProductVersionMax) > 0 Then
ProductVersionMax = ProductVersionFound
    Next
    If CompareVersions(ProductVersionMax, ProductVersion) > 0 Then
        Session.Property("BNEWERITUNESISINSTALLED") = "1"
    Else
        Session.Property("BNEWERITUNESISINSTALLED") = ""
    End If
End Sub

...
--- snip ---

-> 'Set rgExpVersionComponents = New RegExp'

$ sha1sum iTunesSetup7.exe 
5cdc86b2edb1411b9a022f05b1bfbe858fbcf901  iTunesSetup7.exe

$ du -sh iTunesSetup7.exe 
35M    iTunesSetup7.exe

$ wine --version
wine-1.7.14-126-g2bb1059

Regards

[Bug 35794] iTunes 7 installer aborts early (failure to find builtin 'RegExp' class)

https://bugs.winehq.org/show_bug.cgi?id=35794

Anastasius Focht  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |download, Installer
                URL|                            |http://www.oldapps.com/itun
                   |                            |es.php?old_itunes=15?downlo
                   |                            |ad&ModPagespeed=noscript

[Bug 35794] iTunes 7 installer aborts early (failure to find builtin 'RegExp' class)

https://bugs.winehq.org/show_bug.cgi?id=35794

Anastasius Focht  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
      Fixed by SHA1|                            |f123556f0701f5c1c36e24d4de7
                   |                            |4886e2deeb0a8
             Status|NEW                         |RESOLVED
         Resolution|---                         |FIXED

--- Comment #1 from Anastasius Focht  ---
Hello folks,

this is fixed by commit
http://source.winehq.org/git/wine.git/commitdiff/f123556f0701f5c1c36e24d4de7...

Thanks Jacek

Regards

[Bug 35794] iTunes 7 installer aborts early (failure to find builtin 'RegExp' class)

https://bugs.winehq.org/show_bug.cgi?id=35794

Alexandre Julliard  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|RESOLVED                    |CLOSED

--- Comment #2 from Alexandre Julliard  ---
Closing bugs fixed in 1.7.15.

[Bug 35794] iTunes 7 installer aborts early (failure to find builtin 'RegExp' class)

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=35794

Anastasius Focht  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
                URL|http://www.oldapps.com/itun |https://web.archive.org/web
                   |es.php?old_itunes=15?downlo |/20170926181542/http://appl
                   |ad&ModPagespeed=noscript    |dnld.apple.com/iTunes7/Win/
                   |                            |061-2768.20060926.tnwN1/iTu
                   |                            |nesSetup.exe

--- Comment #3 from Anastasius Focht  ---
Hello folks,

adding stable download link via Internet Archive for documentation.

https://www.virustotal.com/gui/file/dcfa03446b895b3cd850dcef737489a9df346e05...

$ sha1sum iTunesSetup.exe 
9b6800b490c550d02dc590516b5718da0d3c3f46  iTunesSetup.exe

$ du -sh iTunesSetup.exe 
35M    iTunesSetup.exe

Regards