Microsoft Office 2016 Volume License ISO [Original from VLSC]

avi smile · Nov 16, 2015

CreativeMan said: ↑

Not yet, AFAIK. But you can add the updates in the ISO so they will be deployed while installing.

Paste this code in a .vbs, and run it on a clean computer with a Office 2016 up to date, then put all the .MSP updates in the folder "Updates" of the ISO :

Code:

Dim oMsi,oFso,oWShell
Dim 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)

Click to expand...

This code does What? Brings you all updates downloaded through windows update for MS Office and copies them to a folder?

Thanks

Mr Been · Nov 16, 2015

CreativeMan said: ↑

Not yet, AFAIK. But you can add the updates in the ISO so they will be deployed while installing.

Paste this code in a .vbs, and run it on a clean computer with a Office 2016 up to date, then put all the .MSP updates in the folder "Updates" of the ISO :

Code:

Dim oMsi,oFso,oWShell
Dim 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)

Click to expand...

I tried your script, but it stops with this line:

__ sMessage = "Patches are being copied to the %Temp%\Updates folder." & vbCrLf & "A Windows Explorer window will open after the script has run." __

and then ......nothing !!!!!!!!!!!

avi smile · Nov 16, 2015

You need to login to view this posts content.

harrismail · Nov 16, 2015

You need to login to view this posts content.

CreativeMan · Nov 16, 2015

You need to login to view this posts content.

Bornung1 · Nov 17, 2015

Edit, works again

NICK@NUMBER11 · Nov 17, 2015

CreativeMan said: ↑

Not yet, AFAIK. But you can add the updates in the ISO so they will be deployed while installing.

Paste this code in a .vbs, and run it on a clean computer with a Office 2016 up to date, then put all the .MSP updates in the folder "Updates" of the ISO :

Code:

Dim oMsi,oFso,oWShell
Dim 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)

Click to expand...

can we change the download patch

harrismail · Nov 17, 2015

CreativeMan said: ↑

Not yet, AFAIK. But you can add the updates in the ISO so they will be deployed while installing.

Paste this code in a .vbs, and run it on a clean computer with a Office 2016 up to date, then put all the .MSP updates in the folder "Updates" of the ISO :

Code:

Dim oMsi,oFso,oWShell
Dim 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)

Click to expand...

Fantastic - the .vbs script works a treat - thanks!

jacques abidal · Nov 20, 2015

Hi LostED,

Do you know of any Language Accessory Packs single installers (.msi /.exe) for Office 2016 VL ?

Thanks in advance !

CreativeMan · Nov 20, 2015

NICK@NUMBER11 said: ↑

can we change the download patch
Click to expand...

The download path you mean ? like somewhere else than %temp%\updates ?

EFA11 · Nov 27, 2015

You need to login to view this posts content.

night3 · Dec 4, 2015

Are there any downsides in using MTK for activating a fresh copy of Office 2016 or should I just use the command lines every 180 days?

jackjr · Dec 5, 2015

scheduled task

Hi I have couple of questions

1)Every 180 we need to do things below right?
2)So we can add them to scheduled tasks and can the windows repeat it every 180days
3) if the answer of 2nd question is yes how can we do it?

thanks have nice day!!

frappated · Dec 8, 2015

Ok I've been using this standard version of MS office for 2 months now and i have to say that works perfectly. Thank you so much! <3

LostED · Dec 11, 2015

You need to login to view this posts content.

Khandelia · Dec 13, 2015

Hello! Please help to download only Office 2016 MLP and LIP and Proofing Tools of Hindi Language For Microsoft Office 2016 Professional Plus Retail Edition. Thanks & Regards!

NICK@NUMBER11 · Dec 14, 2015

so have the iso been updated now also, as i see that the click and run have been?

Fennec · Dec 17, 2015

Hi everybody.
From the last updates (Office 2016. 16.0.4312.1000), I can’t activate hyperlinks in Word, I get the following message:
"The strategies of your organization does not allow us to perform this action. Contact support for more information. "
Why ? Thank you.

zamica · Dec 28, 2015

well done, Is it possible to have the Arabic and English proofing tools as separate exe files ?

LostED · Dec 28, 2015

You need to login to view this posts content.

Microsoft Office 2016 Volume License ISO [Original from VLSC]

avi smile MDL Junior Member

Mr Been MDL Senior Member

avi smile MDL Junior Member

harrismail MDL Member

CreativeMan MDL Novice

Bornung1 MDL Member

NICK@NUMBER11 MDL Expert

harrismail MDL Member

jacques abidal MDL Novice

CreativeMan MDL Novice

EFA11 Avatar Guru

night3 MDL Novice

jackjr MDL Novice

frappated MDL Novice

LostED SVF Patch Lover

Khandelia MDL Junior Member

NICK@NUMBER11 MDL Expert

Fennec MDL Junior Member

zamica MDL Member

LostED SVF Patch Lover