[Batch] Extract and prepare Office MSP files

Recursively extracts MSP files from Office KB packages to a folder with meaningful names.

The MSP files will be renamed with prefix 'Z_' followed by the package name, KB ID, Arch and MSP file name.
This will nicely sort MSP alphabetically, stop conflicts and allow service packs to be alphabetically installed first.

To make your life easier, use this script with WHDownloader.
forums.mydigitallife.net/threads/66243/

Usage:

Spoiler: Usage

The script has 5 variables.

• dirOfExe="Folder to execute EXE"
• dirOfMsp="Folder to extract MSP"
• OldMSPdir="Folder to move old MSP versions"
  
• langOfMSP="KB Language"
• ProofLang="Proof Language's"

You can use the variables like this:

Code:

SET "dirOfExe=D:\WHDownloader\Updates\Office2016-x64"
SET "dirOfMsp=E:\MSPs"
SET "OldMSPdir=E:\oldMSPs"
SET "langOfMSP=nl-nl"
SET "ProofLang=en-us,fr-fr,de-de"

The script can also be used externally from CMD with Unix like options.
It will accept 6 options, with each option having a short or long version.

• -e or --dirOfExe [Folder to execute EXE]
• -m or --dirOfMsp [Folder to extract MSP]
• -o or --OldMSPdir [Folder to move old MSP versions]
  
• -l or --langOfMSP [KB Language]
• -p or --ProofLang [Proof Language's]
• -h or --help (Will display help text)

Options override presets in the script.
Using the script with options will allow batch jobs, quickly creating multiple updated Office bases on a whim.
Example:

Code:

Extract_Msp_Office.cmd -e "D:\WHDownloader\Updates\Office2010-x86" -m "E:\2010_x86_EN_MSPs" OldMSPdir="E:\OLD-2010_x86_MSPs" -l "en-us" -ProofLang="fr-fr,es-es"
Extract_Msp_Office.cmd --dirOfEXE="D:\WHDownloader\Updates\Office2013-x64" -m "E:\2013_x64_NL_MSPs" -o "E:\OLD-2013_x64_MSPs" --langOfMSP="nl-nl" -p "en-us,fr,fr,de-de"
Extract_Msp_Office.cmd --dirOfEXE="D:\WHDownloader\Updates\Office2016-x64" --dirOfMSP="E:\2016_x64_MSPs" OldMSPdir="E:\OLD-2016_x64_MSPs"

For a list of possible languages to use:

Spoiler

Locale	LCID
Albanian	sq-al
Amharic (Ethiopia)	am-et
Arabic	ar-SA
Arabic	ar-SA
Arabic	ar-SA
Arabic	ar-SA
Armenian	hy-am
Assamese (India)	as-in
Azeri (Latin) (Azerbaijan)	az-latn-az
Basque (Spain)	eu-es
Bengali (Bangladesh)	bn-bd
Bengali (India)	bn-in
Bosnia and Herzegovina	bs-latn-ba
Bulgarian	bg-bg
Catalan (Spain)	ca-es
Croatian	hr-hr
Cyrillic (Serbia)	sr-cyrl-cs
Czech	cs-CZ
Danish	da-DK
Dutch	nl-NL
English	en-US
Estonian (Estonia)	et-ee
Farsi (Iran)	fa-ir
Filipino (Philippines)	fil-ph
Finnish	fi-FI
French	fr-FR
FYRO Macedonian (Former Yugoslav Republic of Macedonia)	mk-mk
Galician	gl-es
Georgian	ka-ge
German	de-DE
Greek	el-GR
Gujarati (India)	gu-in
Hausa (Latin, Nigeria)	ha-latn-ng
Hebrew	he-IL
Hindi (India)	hi-in
Hungarian	hu-HU
Icelandic	is-is
Igbo (Nigeria)	ig-ng
Indonesian	id-id
Inuktitut (Latin, Canada)	iu-latn-ca
Irish (Ireland)	ga-ie
Italian	it-IT
Japanese	ja-JP
Kannada (India)	kn-in
Kazakh (Kazakhstan)	kk-kz
Khmer (Cambodia)	km-kh
Konkani (India)	kok-in
Korean	ko-KR
Kyrgyz (Kyrgyzstan)	ky-kg
Latin (Serbia)	sr-latn-cs
Latvian	lv-lv
Lithuanian	lt-lt
Luxembourgish (Luxembourg)	lb-lu
Malay (Brunei Darussalam)	ms-bn
Malay (Malaysia)	ms-my
Malayalam (India)	ml-in
Maltese	mt-mt
Maori (New Zealand)	mi-nz
Marathi (India)	mr-in
Nepali (Nepal)	ne-np
Norwegian (Nynorsk) (Norway)	nn-no
Norwegian	nb-NO
Oriya (India)	or-in
Polish	pl-PL
Portuguese	pt-PT
PortugueseBR	pt-BR
Punjabi (India)	pa-in
Quechua (Peru)	quz-pe
Romanian	ro-ro
Russian	ru-RU
Sesotho sa Leboa (South Africa)	nso-za
SimpChinese	zh-CN
Slovak	sk-sk
Slovenian	sl-si
Spanish	es-ES
Swahili (Kenya)	sw-ke
Swedish	sv-SE
Tamil (India)	ta-in
Tatar (Russia)	tt-ru
Telugu (India)	te-in
Thai	th-th
TradChinese	zh-TW
Tswana (South Africa)	tn-za
Turkish	tr-TR
Ukrainian	uk-ua
Urdu (Islamic Republic of Pakistan)	ur-pk
Uzbek (Latin) (Uzbekistan)	uz-latn-uz
Vietnamese	vi-vn
Welsh (United Kingdom)	cy-gb
Xhosa (South Africa)	xh-za
Yoruba (Nigeria)	yo-ng
Zulu (South Africa)	zu-za

Proofing package has additional companion languages.
To find out which you need, check out the link below which fit with your office version.

• Office 2010:
  • technet.microsoft.com/en-us/library/ee942198(v=office.14).aspx
• Office 2013/365 ProPlus:
  • technet.microsoft.com/en-us/library/ee942198(v=office.15).aspx
• Office 2016:
  • Not needed, all packages are language neutral or automatically chosen.

Code:

Spoiler: Code

Filename: Extract_MSP_Office.cmd

Code:

<!-- : Begin batch script
@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
mode con cols=180 lines=777

FSUTIL dirty query "!SYSTEMDRIVE!" >nul || (
   ECHO(*************************************
   ECHO(Invoking UAC for Privilege Escalation
   ECHO(*************************************
   CSCRIPT //nologo "%~f0?.wsf" //job:ELAV /File:"%~f0" %*
   EXIT /B
)


SET "dirOfEXE=D:\WHDownloader\Updates\Office2010-x64"
SET "dirOfMSP=%~dp0MSPs"
SET "OldMSPdir=!dirOfMSP!\OLD"
SET "langOfMSP=en-us"
SET "ProofLang=fr-fr,es-es"


:EvalOpt
FOR %%A in ( "h|Help" "e|dirOfEXE" "m|dirOfMSP" "o|OldMSPdir" "l|langOfMSP" "p|ProofLang" ) do (
   FOR /f "delims=| tokens=1-2" %%B in ( "%%~A" ) do (
       SET "optShort=%%B"
       SET "optLong=%%C"
       SET "TEST=;-!optShort!;--!optLong!;"
       IF not "!TEST:;%~1;=!"=="!TEST!" (
           IF "!optLong!"=="Help" (
                   ECHO(Recursively extracts MSP files from Office KB packages to a folder with meaningful names
                   ECHO(
                   ECHO(Options:
                   ECHO( -e   --dirOfEXE   [Folder to execute EXE]
                   ECHO( -m   --dirOfMSP   [Folder to extract MSP]
                   ECHO( -o   --OldMSPdir   [Folder to move old MSP versions]
                   ECHO( -l   --langOfMSP   [KB Language]
                   ECHO( -p   --ProofLang   [Proof Language's]
                   ECHO( -h   --Help       ^(Will display help text^)
                   ECHO(
                   ECHO(Example:
                   ECHO( "file.cmd" -e "D:\WHDownloader\Updates\Office2010-x64" --dirOfMSP "E:\MSPs" -o "E:\oldMSPs" --langOfMSP "en-us" -p "fr-fr,es-es"
                   ECHO(
                   ECHO(Proofing package has additional companion languages.
                   ECHO(To find out which you need, check out the link below which fit with your office version.
                   ECHO( Office 2010:                 "technet.microsoft.com/en-us/library/ee942198(v=office.14).aspx"
                   ECHO( Office 2013/365 ProPlus:  "technet.microsoft.com/en-us/library/ee942198(v=office.15).aspx"
                   ECHO( Office 2016:                 Not needed, all packages are language neutral or automatically chosen.
                   PAUSE
                   EXIT /B
           ) else (
                   SET "!optLong!=%~2"
                   SHIFT /1
           )
           GOTO :breakEvalOpt
       )
   )
)
:breakEvalOpt
IF not "%~1"=="" (
   SHIFT /1
   GOTO :EvalOpt
)
FOR %%A in ( "dirOfEXE" "dirOfMSP" "OldMSPdir" ) do (
       SET "optVital=%%~A"
       IF not defined !optVital! (
           ECHO(Please enter data for '!optVital!' of your Office Updates"
           SET /p "!optVital!=!optVital!:"
           ECHO(
       )
       If "!%%~A!"=="" (
           ECHO(Error: Can't continue because of empty var: '!optVital!'^^!
           PAUSE
           EXIT /b
       )
   )
)


DIR /a-d /s "!dirOfEXE!\*-*-*-*-*.exe" >NUL 2>&1
IF not !ERRORLEVEL! equ 0 (
   ECHO(ERROR: Folder or valid named Office update files could not be found at "!dirOfEXE!\"^^!
) else (
   CD /d "!dirOfEXE!\"
   IF not exist "!dirOfMSP!\" ( MKDIR "!dirOfMSP!" )
   FOR /r %%A in ("*-*-*-*-*.exe") do (
       PUSHD "%%~dpA"
       SET "fileOfEXE=%%~nA"
       ECHO(Extracting "!fileOfEXE!.exe"
       "!fileOfEXE!.exe" /quiet /extract:"!dirOfMSP!\!fileOfEXE!"
       IF not exist "!dirOfMSP!\!fileOfEXE!\" (
           SET "ercFailEXE=!ERRORLEVEL!"
           SET /a "cntFailEXE+=1"
           SET "excFailEXE!cntFailEXE!=%%~fA"
           SET "ercFailEXE!cntFailEXE!=!ercFailEXE!"
           ECHO(ERROR: No folder was made after executing "!fileOfEXE!.exe"^^!
       ) else (
           PUSHD "!dirOfMSP!\!fileOfEXE!\"
           ECHO(=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
           FOR /r %%B in ("*.msp") do (
               SET "fileOfMSP=%%~nB"
               FOR /f "delims=-" %%C in ( "!fileOfMSP!" ) do (
                   SET "nameOfMSP=%%C"
                   SET "TRUE="
                   IF "!langOfMSP!"=="" (
                       SET "TRUE=1"
                   ) else (
                       IF "!fileOfMSP!"=="!nameOfMSP!-x-none" (
                           SET "TRUE=1"
                       ) ELSE (
                           FOR %%D in ( !ProofLang! ) do (
                               IF "!fileOfMSP!"=="proof-%%D" ( SET "TRUE=1" )
                           )
                           IF "!fileOfMSP!"=="!nameOfMSP!-!langOfMSP!" ( SET "TRUE=1" )
                       )
                   )
                   IF defined TRUE (
                       FOR /f "tokens=1-2,4 delims=-" %%D in ( "!fileOfEXE!" ) do (
                           SET "nameOfEXE=%%D"
                           SET "kbOfEXE=%%E"
                           SET "archOfEXE=%%F"
                       )
                       SET "NewMSPpath=!dirOfMSP!\Z_!nameOfEXE!_!kbOfEXE!_!archOfEXE!_!fileOfMSP!.msp"
                       ECHO(Moving "!fileOfMSP!.msp" to "!NewMSPpath!"
                       IF not exist "!NewMSPpath!" (
                           MOVE "!fileOfMSP!.msp" "!NewMSPpath!"
                       ) else (
                           ECHO( ^<= File already exists, skipping =^>
                       )
                   )
               )
           )
           IF defined NewMSPpath (
               FOR /F "tokens=1-5 delims=_" %%D in ('DIR /B /A:-D "!dirOfMSP!\Z_!nameOfEXE!_kb*_!archOfEXE!_*.msp"') do (
                   IF not "%%F" == "!kbOfEXE!" (
                       IF not exist "!OldMSPdir!\" ( MKDIR "!OldMSPdir!" )
                       SET "OldMSPfile=%%D_%%E_%%F_%%G_%%H"
                       ECHO( ^<= Moving older version " !OldMSPfile!" to "!OldMSPdir!" =^>
                       MOVE "!dirOfMSP!\!OldMSPfile!" "!OldMSPdir!\"
                   )
               )
               Set "NewMSPpath="
           ) else (
               ECHO( ^<= Oh my, It appears none of the MSP files were applicable to your given languages =^>
           )
           ECHO(=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
           POPD
           ECHO(Removing folder "!dirOfMSP!\!fileOfEXE!\"
           RD /s /q "!dirOfMSP!\!fileOfEXE!\"
       )
       POPD
       ECHO(
       ECHO(
   )
   ECHO(
   IF defined ercFailEXE (
       ECHO(A number of !cntFailEXE! executables have failed to extract folders.
       ECHO(The following have failed:
       FOR /L %%A in (1,1,!cntFailEXE!) Do (
           ECHO(
           ECHO(File: "!excFailEXE%%A!"
           ECHO(Errorcode: "!ercFailEXE%%A!"
       )
   ) else (
       ECHO(Dinner is ready^^!
   )
)

ECHO(
ECHO(
ECHO(Written and maintained by Hearlywarlot
ECHO(For updates on the script or other nice things visit our awesome Forum at:
ECHO(forums.mydigitallife.net/threads/64028/
ECHO(

ENDLOCAL
PAUSE
EXIT /b
----- Begin wsf script --->
<package>
   <job id="ELAV">
       <script language="VBScript">
           Set strArg=WScript.Arguments.Named

           If Not strArg.Exists("File") Then
                   Wscript.Echo "Switch /File:<File> is missing."
                   WScript.Quit 1
           End If

           Set strRdlproc = CreateObject("WScript.Shell").Exec("rundll32 kernel32,Sleep")
           With GetObject("winmgmts:\\.\root\CIMV2:Win32_Process.Handle='" & strRdlproc.ProcessId & "'")
                   With GetObject("winmgmts:\\.\root\CIMV2:Win32_Process.Handle='" & .ParentProcessId & "'")
                       If InStr (.CommandLine, WScript.ScriptName) <> 0 Then
                           strLine = Mid(.CommandLine, InStr(.CommandLine , "/File:") + Len(strArg("File")) + 8)
                       End If
                   End With
                   .Terminate
           End With

           CreateObject("Shell.Application").ShellExecute "cmd", "/c " & chr(34) & chr(34) & strArg("File") & chr(34) & " " & strLine & chr(34), "", "runas", 1
       </script>
   </job>
</package>

Spoiler: Old versions

Spoiler: 23-05-2017

Code:

<!-- : Begin batch script
@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION

FSUTIL dirty query "!SYSTEMDRIVE!" >nul || (
   ECHO(*************************************
   ECHO(Invoking UAC for Privilege Escalation
   ECHO(*************************************
   CSCRIPT //nologo "%~f0?.wsf" //job:ELAV /File:"%~f0" %*
   EXIT /B
)


SET "dirOfEXE=D:\WHDownloader\Updates\Office2010-x64"
SET "dirOfMSP=%~dp0MSPs"
SET "langOfMSP=en-us"
SET "ProofLang=fr-fr,es-es"


:EvalOpt
FOR %%A in ( "h|Help" "e|dirOfEXE" "m|dirOfMSP" "l|langOfMSP" "p|ProofLang" ) do (
   FOR /f "delims=| tokens=1-3" %%B in ( "%%~A" ) do (
       SET "optShort=%%B"
       SET "optLong=%%C"
       SET "TEST=;-!optShort!;--!optLong!;"
       IF not "!TEST:;%~1;=!"=="!TEST!" (
           IF "!optLong!"=="Help" (
               ECHO(Recursively extracts MSP files from Office KB packages to a folder with meaningful names
               ECHO(
               ECHO(Options:
               ECHO( -e   --dirOfEXE   [Folder to execute EXE]
               ECHO( -m   --dirOfMSP   [Folder to extract MSP]
               ECHO( -l   --langOfMSP  [KB Language]
               ECHO( -p   --ProofLang  [Proof Language's]
               ECHO( -h   --Help       ^(Will display help text^)
               ECHO(
               ECHO(Example:
               ECHO( "file.cmd" -e "D:\WHDownloader\Updates\Office2010-x64" --dirOfMSP "E:\MSPs" --langOfMSP "en-us" -p "fr-fr,es-es"
               ECHO(
               ECHO(Proofing package has additional companion languages.
               ECHO(To find out which you need, check out the link below which fit with your office version.
               ECHO( Office 2010:              "technet.microsoft.com/en-us/library/ee942198(v=office.14).aspx"
               ECHO( Office 2013/365 ProPlus:  "technet.microsoft.com/en-us/library/ee942198(v=office.15).aspx"
               ECHO( Office 2016:              Not needed, all packages are language neutral or automatically chosen.
               PAUSE
               EXIT /B
           ) else (
               SET "!optLong!=%~2"
               SHIFT /1
           )
           GOTO :breakEvalOpt
       )
   )
)
:breakEvalOpt
IF not "%~1"=="" (
   SHIFT /1
   GOTO :EvalOpt
)
FOR %%A in ( "dirOfEXE" "dirOfMSP" ) do (
       SET "optVital=%%~A"
       IF not defined !optVital! (
           ECHO(Please enter data for '!optVital!' of your Office Updates"
           SET /p "!optVital!=!optVital!:"
           ECHO(
       )
       If "!%%~A!"=="" (
           ECHO(Error: Can't continue because of empty var: '!optVital!'^^!
           PAUSE
           EXIT /b
       )
   )
)


DIR /a-d /s "!dirOfEXE!\*-*-*-*-*.exe" >NUL 2>&1
IF not !ERRORLEVEL! equ 0 (
   ECHO(ERROR: Folder or valid named Office update files could not be found at "!dirOfEXE!\"^^!
) else (
   CD /d "!dirOfEXE!\"
   IF not exist "!dirOfMSP!\" ( MKDIR "!dirOfMSP!" )
   FOR /r %%A in ("*-*-*-*-*.exe") do (
       PUSHD "%%~dpA"
       SET "fileOfEXE=%%~nA"
       ECHO(Extracting "!fileOfEXE!.exe"
       "!fileOfEXE!.exe" /quiet /extract:"!dirOfMSP!\!fileOfEXE!"
       IF not exist "!dirOfMSP!\!fileOfEXE!\" (
           SET "ercFailEXE=!ERRORLEVEL!"
           SET /a "cntFailEXE+=1"
           SET "excFailEXE!cntFailEXE!=%%~fA"
           SET "ercFailEXE!cntFailEXE!=!ercFailEXE!"
           ECHO(ERROR: No folder was made after executing "!fileOfEXE!.exe"^^!
       ) else (
           PUSHD "!dirOfMSP!\!fileOfEXE!\"
           ECHO(=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
           FOR /r %%B in ("*.msp") do (
               SET "fileOfMSP=%%~nB"
               FOR /f "delims=-" %%C in ( "!fileOfMSP!" ) do (
                   SET "nameOfMSP=%%C"
                   SET "TRUE="
                   IF "LANG"=="" (
                       SET "TRUE=1"
                   ) else (
                       IF "!fileOfMSP!"=="!nameOfMSP!-x-none" (
                           SET "TRUE=1"
                       ) ELSE (
                           FOR %%D in ( !ProofLang! ) do (
                               IF "!fileOfMSP!"=="proof-%%D" ( SET "TRUE=1" )
                           )
                           IF "!fileOfMSP!"=="!nameOfMSP!-!langOfMSP!" ( SET "TRUE=1" )
                       )
                   )
                   IF defined TRUE (
                       FOR /f "tokens=1-2,4 delims=-" %%D in ( "!fileOfEXE!" ) do (
                           SET "nameOfEXE=%%D"
                           SET "kbOfEXE=%%E"
                           SET "archOfEXE=%%F"
                       )
                       ECHO(Moving "!fileOfMSP!.msp" to "!dirOfMSP!\Z_!nameOfEXE!_!kbOfEXE!_!archOfEXE!_!fileOfMSP!.msp"
                       MOVE "!fileOfMSP!.msp" "!dirOfMSP!\Z_!nameOfEXE!_!kbOfEXE!_!archOfEXE!_!fileOfMSP!.msp"
                   )
               )
           )
           ECHO(=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
           POPD
           ECHO(Removing folder "!dirOfMSP!\!fileOfEXE!\"
           RD /s /q "!dirOfMSP!\!fileOfEXE!\"
       )
       POPD
       ECHO(
   )
   ECHO(
   IF defined ercFailEXE (
       ECHO(A number of !cntFailEXE! executables have failed to extract folders.
       ECHO(The following have failed:
       FOR /L %%A in (1,1,!cntFailEXE!) Do (
           ECHO(
           ECHO(File: "!excFailEXE%%A!"
           ECHO(Errorcode: "!ercFailEXE%%A!"
       )
   ) else (
       ECHO(Dinner is ready^^!
   )
)

ECHO(
ECHO(
ECHO(Written and maintained by Hearlywarlot
ECHO(For updates on the script or other nice things visit our awesome Forum at:
ECHO(forums.mydigitallife.net/posts/1318798
ECHO(

ENDLOCAL
PAUSE
EXIT /b
----- Begin wsf script --->
<package>
   <job id="ELAV">
       <script language="VBScript">
           Set strArg=WScript.Arguments.Named

           If Not strArg.Exists("File") Then
               Wscript.Echo "Switch /File:<File> is missing."
               WScript.Quit 1
           End If

           Set strRdlproc = CreateObject("WScript.Shell").Exec("rundll32 kernel32,Sleep")
           With GetObject("winmgmts:\\.\root\CIMV2:Win32_Process.Handle='" & strRdlproc.ProcessId & "'")
               With GetObject("winmgmts:\\.\root\CIMV2:Win32_Process.Handle='" & .ParentProcessId & "'")
                   If InStr (.CommandLine, WScript.ScriptName) <> 0 Then
                       strLine = Mid(.CommandLine, InStr(.CommandLine , "/File:") + Len(strArg("File")) + 8)
                   End If
               End With
               .Terminate
           End With

           CreateObject("Shell.Application").ShellExecute "cmd", "/c " & chr(34) & chr(34) & strArg("File") & chr(34) & " " & strLine & chr(34), "", "runas", 1
       </script>
   </job>
</package>

Spoiler: 10-08-2015

Code:

@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION

FSUTIL dirty query "!SYSTEMDRIVE!" >nul
IF not !ERRORLEVEL! equ 0 (
    ( ECHO SET UAC = CreateObject^("Shell.Application"^)
        ECHO UAC.ShellExecute "%~dpf0", ELAV, "", "runas", 1
    )> "!TEMP!\OEgetPrivileges.vbs"
    "!TEMP!\OEgetPrivileges.vbs"
    DEL "!TEMP!\OEgetPrivileges.vbs"
    EXIT /B
)

SET "UPDFOL=E:\WHDownloader\Updates\Office2013-x86"
SET "MSPFOL=!UPDFOL!\updates"
SET "LANG=en-us"

IF not defined UPDFOL (
    ECHO Please enter the path containing your Office Updates in script"
) else (
    IF not exist "!UPDFOL!\" (
        ECHO Could not find "!UPDFOL!\"
    ) else (
        IF not defined MSPFOL (
            ECHO Please enter the path where the MSP will be extracted to in script"
        ) else (
            CD /D "!UPDFOL!"
            MKDIR "!MSPFOL!"
            For /R %%A in (*.exe) do (
                PUSHD "%%~dpA"
                ECHO Extracting %%~xnA
                SET "KBFIL=%%~nA"
                "!KBFIL!.exe" /quiet /EXTRACT:"!KBFIL!"
                IF exist "!KBFIL!\" (
                    PUSHD "!KBFIL!"
                    ECHO Moving MSP %%~xnA
                    For /R %%B in (*.msp) do (
                        SETLOCAL
                        IF "!LANG!" ==  "" (
                            SET "TRUE=1"
                        ) else (
                            SET "RMLNG1=%%~nB"
                            CALL SET "RMLNG=%%RMLNG1:-!RMLNG1:*-=!=%%"
                            IF "!RMLNG1!" ==  "!RMLNG!-x-none" (
                                SET "TRUE=1"
                            ) else (
                                IF "!RMLNG1!" ==  "!RMLNG!-!LANG!" (
                                    SET "TRUE=1"
                                )
                            )
                        )
                        IF "!TRUE!" == "1" (
                            SET "MSPKB1=!KBFIL:*kb=KB!"
                            SET "MSPKB2=!MSPKB1:*-=!"
                            CALL SET "MSPKB=%%MSPKB1:-!MSPKB2!=%%"
                            SET "MSPARC1=!MSPKB2:*-=!"
                            SET "MSPARC=!MSPARC1:-glb=!"
                            MOVE "%%~nxB" "!MSPFOL!\Z_!MSPKB!_!MSPARC!_%%~nxB"
                        )
                        ENDLOCAL
                    )
                    POPD
                )
                RD /S /Q "!KBFIL!"
                CLS
                POPD
            )
        )
    )
)

ECHO Opening "!MSPFOL!"...
EXPLORER "!MSPFOL!"
ECHO Dinner is ready^^!

PAUSE
EXIT /B

Changelog:

Spoiler: Changelog

Spoiler: 25-07-2017

Fixed some mistakes and added new features:

• Script will now move out old MSP files to folder of choice as it copies your newer in.
• Now has a additional parameter for configuring where old MSP files go to.
  
• Will skip moving file if already exists at destination.
• If a Office KB file does not contain any MSP files corresponding with your choice, the script will tell you (eg, imeloc2010).
• Command Prompt window will resize and increase buffer a good bit to fit the onslaught of text, so you can read easier.
  
• Replaced URL in script with URL to this thread, forgot it still linked to abbodi1406's post.

Spoiler: 23-05-2017

I did an accident :

• At the MSP lang check, I accidentally did not add '!' around "nameOfMSP", making lang checks fail... I fixed this now.
• Made the script now only accept EXE files with a Office update naming convention such as "*-*-*-*-*.exe".

Spoiler: 22-05-2017

Made some minor changes and fixes to the script.

• You can now pass options in any order without being prompted to enter the data.
  
• Because of Office 2016 being language neutral, "langOfMSP" and "Prooflang" are now optional.
• Included credit and url to this thread at the end of the script.
• Will list which EXE files failed to extract folders.

Spoiler: 21-05-2017

Update: Made a major edit of the script.
The script now has the following changes:

• Supports Unix like options and has a nice help display.
• Will ask for the required data if any of the variables needed are missing.
• Embedded Elevation VBS is run without TMP files.
• Proof languages can be defined.
• Made the code much easier to read and understand.
• Made the output more fancy looking.

Spoiler: 10-08-2015

First release of script.

Your welcome ^^.

 

Fresh scripts! Go get your script while it is still warm!
Your wish has been fullfilled, I have also updated the 'Usage:' section, so check that out if you need info on how to use the added poison.

Have a nice day ^^.

 

Update: Made a major edit of the script.

The script now has the following changes:

• Supports Unix like parameters and has a nice help display.
• Will ask for the required data if any of the variables needed are missing.
• Embedded Elevation VBS is run without TMP files.
• Proof languages can be defined.
• Made the code much easier to read and understand.
• Made the output more fancy looking.

See if you like it and if you find any bugs, please post it so I can try fix it .

 

Yup, that's right.
Everything works as expected, what exactly is the problem between the two?
Is it the naming convention I used for my script or is something missing.

Please elaborate your issue.

Thank you.

 

If you mean it like that, then yes, you need to set the variables.
I set no preset in the code except for the variables because there is no point as you need to set one anyway for it to be useful.
I could make a exception to Proofing language variable, but someday you might need it and you might forget this.

Do you perhaps mean you want to extract multiple languages at once?

You can easily extract MSP of separate languages to different folders by executing the script in a command with options.
For example:

Code:

extract_slipstream_office.cmd --dirOfEXE "f:\WHDownloader_0.0.2.2\Updates\Office2016-x64" --dirOfMSP "f:\NL_2016_x64_MSPs" --langOfMSP "nl-nl" --ProofLang="en-us,fr-fr,de-de"
extract_slipstream_office.cmd --dirOfEXE "f:\WHDownloader_0.0.2.2\Updates\Office2016-x64" --dirOfMSP "f:\EN_2016_x64_MSPs" --langOfMSP "en-us" --ProofLang="fr-fr,es-es"

Otherwise, both do their job just fine.
Mine is useful if you were to want to extract existing folder of patches or do quick Batch jobs for multiple languages.
Also not sure if WHDownloader does anything with this, but mine also supports Proofing companions.

 

I checked the contents of all 44 currently available though WHDownloader downloadable 2016 x64 patches and they are all language neutral.
There looks to be no problem, the x-none suffix you see is as expected.

If you still see a problem, you may check contents the patches yourself to see if I missed anything, but I am fairly sure it's all fine.

Thanks for your help.
if you find any bugs, don't hesitate to tell me .

 

Maybe so, but it's fine.
The script was written to work with any Office patch that may ever come out.

But since 2016 has no languages and Proofing is not there I will allow to set language and proofing as empty again .