[Bug 34154] iTunes 7 does not install

[wine-bugs at winehq.org]

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

Anastasius Focht <focht at gmx.net> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |Installer
                 CC|                            |focht at gmx.net
          Component|-unknown                    |vbscript

--- Comment #1 from Anastasius Focht <focht at gmx.net> ---
Hello folks,

confirming, still present.

--- snip ---
$ WINEDEBUG=+tid,+seh,+vbscript wine ./iTunesSetup7.exe
...
0026:trace:vbscript:interp_set_ident L"RelatedProducts"
0026:trace:vbscript:interp_icall 
0026:trace:vbscript:interp_newenum 
0026:fixme:vbscript:interp_newenum Unsupported for {V_BYREF -> {VT_DISPATCH:
0x1e0a08}}
0026:fixme:vbscript:exec_script Failed 80004001 in resume next mode
0026:warn:vbscript:exec_script Failed 80004001
...
0024:err:msi:ITERATE_Actions Execution halted, action L"iTunesLaunchConditions"
returned 1603
--- snip ---

The extracted VBScript code in question ('For Each ProductCode in
RelatedProducts'):

--- snip ---
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 ---

$ sha1sum iTunesSetup7.exe 
5cdc86b2edb1411b9a022f05b1bfbe858fbcf901  iTunesSetup7.exe

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

$ wine --version
wine-1.7.14

Regards

-- 
Do not reply to this email, post in Bugzilla using the
above URL to reply.
You are receiving this mail because:
You are watching all bug changes.