Office 2013 post SP1 already at 1.2Gb of updates. How to integrate it?

Discussion in 'Microsoft Office' started by yro, Aug 24, 2016.

  1. yro

    yro MDL Senior Member

    Jul 26, 2009
    463
    75
    10
    Hi guys.

    I just installed office 2013 on a fresh win 7 install and after the windows update it finds about 1.2gb of updates for office 2013 only..

    Is that a way of integrating these updates into the installation iso of office 2013?

    Like, can I grab the msu files and just put these on the updates folder on the office installation folder? If not, is there a way of integrating these updates? How?
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  2. yro

    yro MDL Senior Member

    Jul 26, 2009
    463
    75
    10
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  3. yro

    yro MDL Senior Member

    Jul 26, 2009
    463
    75
    10
    Ok.

    Is that a way on "real" integrate all these updates into the installation of office? Not by placing the updates into the updates folder, but merging/integrating inside office installer?
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  4. Enthousiast

    Enthousiast MDL Tester

    Oct 30, 2009
    12,361
    13,456
    340
    The updates folder exists for...... updates ;)
     
  5. l33tissw00t

    l33tissw00t MDL Senior Member

    Dec 6, 2012
    482
    266
    10
    No. You can use the C2R edition though..
     
  6. dante96

    dante96 MDL Junior Member

    Nov 1, 2013
    60
    9
    0
    #6 dante96, Aug 26, 2016
    Last edited by a moderator: Apr 20, 2017
    Clean install windows on a virtual machine, then install office 20xx. Do office's updates, reboot and then run this vbs as admin:
    Code:
    Dim oMsi,oFso,oWShellDim Patches,SumInfo
    Dim patch,record,msp
    Dim qView
    Dim sTargetFolder,sMessage
    Const OFFICEID = "000-0000000FF1CE}"
    Const PRODUCTCODE_EMPTY = ""
    Const MACHINESID = ""
    Const MSIINSTALLCONTEXT_MACHINE = 4
    Const MSIPATCHSTATE_APPLIED = 1
    Const MSIOPENDATABASEMODE_PATCHFILE = 32
    Const PID_SUBJECT = 3 'Displayname
    Const PID_TEMPLATES = 7 'PatchTargets
    Set oMsi = CreateObject("WindowsInstaller.Installer")
    Set oFso = CreateObject("Scripting.FileSystemObject")
    Set oWShell = CreateObject("Wscript.Shell")
    
    
    'Create the target folder
    sTargetFolder = oWShell.ExpandEnvironmentStrings("%TEMP%")&"\Updates"
    If Not oFso.FolderExists(sTargetFolder) Then oFso.CreateFolder sTargetFolder
    sMessage = "Patches are being copied to the %Temp%\Updates folder." & vbCrLf & "A Windows Explorer window will open after the script has run."
    oWShell.Popup sMessage,20,"Office Patch Collector"
    
    
    'Get all applied patches
    Set Patches = oMsi.PatchesEx(PRODUCTCODE_EMPTY,MACHINESID,MSIINSTALLCONTEXT_MACHINE,MSIPATCHSTATE_APPLIED)
    On Error Resume Next
    
    
    'Enum the patches
    For Each patch in Patches
        If Not Err = 0 Then Err.Clear
            'Connect to the patch file
            Set msp = oMsi.OpenDatabase(patch.PatchProperty("LocalPackage"),MSIOPENDATABASEMODE_PATCHFILE)
            Set SumInfo = msp.SummaryInformation
            If Err = 0 Then
                If InStr(SumInfo.Property(PID_TEMPLATES),OFFICEID)>0 Then
                    'Get the original patch name
                    Set qView = msp.OpenView("SELECT `Property`,`Value` FROM MsiPatchMetadata WHERE `Property`='StdPackageName'")
                    qView.Execute : Set record = qView.Fetch()
                    'Copy and rename the patch to the original file name
                    oFso.CopyFile patch.PatchProperty("LocalPackage"),sTargetFolder&"\"&record.StringData(2),TRUE
                End If
            End If 'Err = 0
    Next
    
    
    'patch
    oWShell.Run "explorer /e,"&chr(34)&sTargetFolder&chr(34)

    It'll extract installed updates files, and they'll ready to be copied in Office 20xx Install folder/updates. To test the result just clean install again windows on the virtual machine and reinstall the updated office with the traditional installer
     
  7. Addicted2bass

    Addicted2bass MDL Novice

    Jul 11, 2014
    8
    3
    0
    #7 Addicted2bass, Aug 29, 2016
    Last edited by a moderator: Apr 20, 2017
    one question, is this script valid to get the updates from visio and project? or just for office ?
     
  8. dante96

    dante96 MDL Junior Member

    Nov 1, 2013
    60
    9
    0
    it works with every office/visio/project update