\u0414\u043b\u044f \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u0441\u0435\u0432\u0435\u0440 SharePoint \u0442\u043e\u0439 \u0436\u0435 \u0432\u0435\u0440\u0441\u0438\u0438, \u0433\u0434\u0435 \u043e\u0431\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u044f \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u044e\u0442\u0441\u044f. <\/p>\n\n\n\n
\u0421\u043a\u043e\u043f\u0438\u0440\u0443\u0439\u0442\u0435 \u043f\u0430\u043f\u043a\u0443 c:\\windows\\installer \u0441 \u0434\u0440\u0443\u0433\u043e\u0433\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0449\u0435\u0433\u043e \u0441\u0435\u0440\u0432\u0435\u0440\u0430 SharePoint \u0432 \u043b\u043e\u043a\u0430\u043b\u044c\u043d\u0443\u044e c:\\temp\\ \u043f\u0430\u043f\u043a\u0443 \u043d\u0430 \u0432\u0430\u0448 \u043f\u043b\u043e\u0445\u043e\u0439 \u0441\u0435\u0440\u0432\u0435\u0440.<\/p>\n\n\n\n
\u0421\u043e\u0437\u0434\u0430\u0435\u043c \u0444\u0430\u0439\u043b OpUtil.vbs \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0433\u043e \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u043d\u0438\u044f:<\/p>\n\n\n\n
'=======================================================================================================\n' Name: OPUtil.vbs - Office Patch Utility\n' Author: Microsoft Customer Support Services\n' Copyright (c) 2009, Microsoft Corporation\n' \n' Utility for Office patch maintenance tasks "log, repair, apply, remove, clean"\n' Formerly published as MspFixUp.vbs\n'\n'=======================================================================================================\n\n'=======================================================================================================\n'[INI] Section for script behavior customizations\n\n'Quiet switch.\n'Default: False -> A summary log opens automatically when done\nDim bQuiet\nbQuiet = False\n\n'Set fDetectOnly to 'True' if only a log should be generated\n'None of the detected actions required will be executed!\n'Default: False -> execute detected actions required\nDim fDetectOnly\nfDetectOnly = False\n\n'Optional location to provide .msp patch files that should be applied\n'A list of full path references to folders with .msp files, separated by semicolons\n'Default: sUpdateLocation = ""\nDim sUpdateLocation\nsUpdateLocation = ""\n\n'Optional location to restore .msi & .msp packages that have gone missing\n'A list of fully qualified paths to folders with .msi and\/or .msp files, separated by semicolons\n'Default: sUpdateLocation = ""\nDim sRestoreLocation\nsRestoreLocation = ""\n\n'Option to explicitly exclude the Windows Installer cache when searching for applicable .msp files.\n'This allows to enforce patches are only applied from the provided SUpdateLocation folders\n'Note: For detection integrity it's still required to include the patches in the sequence logic!\n'Default: fExcludeCache = False -> Scans %WinDir%\\Installer folder for applicable patches\nDim fExcludeCache\nfExcludeCache = False\n\n'Option to include OCT patches from the Windows Installer cache.\n'This option is a subset of the above 'fExcludeCache' option\n'it allows to include that cached (installed) OCT patches get applied\n'NOTE: It's recommended to keep this set to 'False' unless you have a specific requirement to enforce this\n'Default: fIncludeOctCache = False -> Filters OCT patches from %WinDir%\\Installer folder\nDim fIncludeOctCache\nfIncludeOctCache = False\n\n'Check the integrity of the local Windows Installer cache and try to repair missing .msi and .msp files if needed\n'Default: fRepairCache = True -> Try to repair missing files\nDim fRepairCache\nfRepairCache = True\n\n'Unregister patches that have gone missing from the local Windows Installer cache to unblock maintenance transactions\n'Default: fReconcileCache = False -> Don't unregister missing patches\nDim fReconcileCache\nfReconcileCache = False\n\n'Apply .msp patch files\n'Patch files are applied from the optional SUpdateLocation folders and the local Windows Installer cache.\n'Note: To fine tune the behavior see the options for SUpdateLocation, fExcludeCache, fIncludeOctCache\n'Default: fApplyPatch = True -> Apply patches\nDim fApplyPatch\nfApplyPatch = True\n\n'Remove installed patches\n'Allows to uninstall superseded patches or a specified list.\n'The list allows passing in a KB number(s) or PatchCode(s)\n'Default: fRemovePatch = False -> Do not attempt to uninstall patches\n' sMspRemoveFilter = "Superseded" -> If enabled default to remove superseded patches\n' sMspProductFilter = "" -> If enabled remove from all products\nDim fRemovePatch,sMspRemoveFilter,sMspProductFilter\nfRemovePatch = False\nsMspRemoveFilter = "Superseded"\nsMspProductFilter= ""\n\n'Delete cached .msp files that are no longer referenced by any product from the local Windows Installer cache\nDim fCleanCache\nfCleanCache = False\n\n'Suppress debug logging details from the log\n'Default: fNoDebugLog = False -> Add debug logging information\nDim fNoDebugLog\nfNoDebugLog = False\n\n'DO NOT CUSTOMIZE BELOW THIS LINE!\n'=======================================================================================================\n\n'Declarations\n\nConst SOLUTIONNAME = "OPUtil"\nConst SCRIPTBUILD = "2.24"\n\nConst FOR_READING = 1\nConst FOR_WRITING = 2\nConst FOR_APPENDING = 8\nConst TRISTATE_TRUE = -1\nConst TRISTATE_USEDEFAULT = -2\nConst LEN_GUID = 38\nConst USERSID_NULL = ""\nConst USERSID_EVERYONE = "s-1-1-0"\n\nConst PID_TITLE = 2\nConst PID_SUBJECT = 3 'Displayname\nConst PID_AUTHOR = 4 'Author\nConst PID_COMMENTS = 6 'Comments\nConst PID_TEMPLATE = 7 'compatible platform and language versions for .msi \/ PatchTargets for .msp\nConst PID_LASTAUTHOR = 8 'Transform Substorages\nConst PID_REVNUMBER = 9 'package code for .msi \/ GUID patch code for .msp\nConst PID_WORDCOUNT = 15 'minimum Windows Installer version \nConst PID_SECURITY = 19 'read-only flag\n\n'Component state constants\nConst INSTALLSTATE_NOTUSED = -7 ' component disabled\nConst INSTALLSTATE_UNKNOWN = -1 ' unrecognized product or feature\nConst INSTALLSTATE_BROKEN = 0 ' broken\nConst INSTALLSTATE_LOCAL = 3 ' installed. \nConst INSTALLSTATE_SOURCE = 4 ' installed to run from source, CD, or network.\n\nConst MSICOLUMNINFONAMES = 0\nConst MSICOLUMNINFOTYPES = 1\n\nConst MSIINSTALLCONTEXT_USERMANAGED = 1\nConst MSIINSTALLCONTEXT_USERUNMANAGED = 2\nConst MSIINSTALLCONTEXT_MACHINE = 4\nConst MSIINSTALLCONTEXT_ALL = 7\nConst MSIPATCHSTATE_APPLIED = 1\nConst MSIPATCHSTATE_SUPERSEDED = 2\nConst MSIPATCHSTATE_OBSOLETED = 4\nConst MSIPATCHSTATE_REGISTERED = 8\nConst MSIPATCHSTATE_ALL = 15\n\nConst MSIOPENDATABASEMODE_READONLY = 0\nConst MSIOPENDATABASEMODE_TRANSACT = 1\nConst MSIOPENDATABASEMODE_PATCHFILE = 32\n\nConst MSISOURCETYPE_NETWORK = 1\nConst MSISOURCETYPE_URL = 2\n\nConst MSIUILEVEL_BASIC = 3\nConst MSIUILEVEL_PROGRESSONLY = 64\nConst MSIINSTALLTYPE_SINGLEINSTANCE = 2\nConst MSIINSTALLSTATE_LOCAL = 3\n\nConst MSITRANSFORMERROR = 256\nConst MSITRANSFORMERROR_ALL = 319\n\nConst HKCR = &H80000000\nConst HKCU = &H80000001\nConst HKLM = &H80000002\nConst HKU = &H80000003\nConst HKEY_CLASSES_ROOT = &H80000000\nConst HKEY_CURRENT_USER = &H80000001\nConst HKEY_LOCAL_MACHINE = &H80000002\nConst HKEY_USERS = &H80000003\nConst MSP_NOSEQ = 0\nConst MSP_MINOR = 1\nConst MSP_SMALL = 2\nConst COL_FILENAME = 0\nConst COL_TARGETS = 1\nConst COL_PATCHCODE = 2\nConst COL_SUPERSEDES = 3\nConst COL_KB = 4\nConst COL_PACKAGE = 5\nConst COL_RELEASE = 6\nConst COL_SEQUENCE = 7\nConst COL_FAMILY = 8\nConst COL_PATCHXML = 9\nConst COL_PATCHTABLES = 10\nConst COL_REFCNT = 11\nConst COL_APPLIEDCNT = 12\nConst COL_SUPERSEDEDCNT = 13\nConst COL_APPLICABLECNT = 14\nConst COL_NOQALBASELINECNT = 15\nConst COL_PATCHBASELINES = 16\nConst COL_MAX = 16\nConst REG_GLOBALCONFIG = "Software\\Microsoft\\Windows\\CurrentVersion\\Installer\\UserData\\"\nConst REG_PRODUCT = "Software\\Classes\\Installer\\"\nConst REG_PRODUCTPERUSER = "Software\\Microsoft\\Installer\\"\nConst REG_PRODUCTPERUSERMANAGED = "Software\\Microsoft\\Windows\\CurrentVersion\\Installer\\Managed\\"\nConst ERR_REBOOT = "A reboot is required to complete the update(s)!"\n\nConst OFFICE_ALL = "78E1-11D2-B60F-006097C998E7}.0001-11D2-92F2-00104BC947F0}.6000-11D3-8CFE-0050048383C9}.6000-11D3-8CFE-0150048383C9}.BDCA-11D1-B7AE-00C04FB92F3D}.6D54-11D4-BEE3-00C04F990354}.CFDA-404E-8992-6AF153ED1719}."\n'Office 2000 -> KB230848; Office XP -> KB302663; Office 2003 -> KB832672\nConst OFFICE_2000 = "78E1-11D2-B60F-006097C998E7}"\nConst ORK_2000 = "0001-11D2-92F2-00104BC947F0}"\nConst PRJ_2000 = "BDCA-11D1-B7AE-00C04FB92F3D}"\nConst VIS_2002 = "6D54-11D4-BEE3-00C04F990354}"\nConst OFFICE_2002 = "6000-11D3-8CFE-0050048383C9}"\nConst OFFICE_2003 = "6000-11D3-8CFE-0150048383C9}"\nConst PPS_2007 = "CFDA-404E-8992-6AF153ED1719}" 'Project Portfolio Server 2007\nConst OFFICEID = "000-0000000FF1CE}" 'cover O12, O14 with 32 & 64 bit\n\nConst DISK_UNKNOWN = 0\nConst DISK_NOROOTDIR = 1\nConst DISK_REMOVABLE = 2\nConst DISK_LOCAL = 3\nConst DISK_NETWORK = 4\nConst DISK_CD = 5\nConst DISK_RAM = 6\n\nConst SQL_CREATEFILETABLE = "CREATE TABLE `File` (`File` CHAR(72) NOT NULL, `Component_` CHAR(72) NOT NULL, `FileName` CHAR(255) NOT NULL LOCALIZABLE, `FileSize` LONG NOT NULL, `Version` CHAR(72), `Language` CHAR(20), `Attributes` SHORT, `Sequence` LONG NOT NULL PRIMARY KEY `File`)"\nConst SQL_CREATECATABLE = "CREATE TABLE `CustomAction` (`Action` CHAR(72) NOT NULL, `Type` SHORT NOT NULL, `Source` CHAR(72), `Target` CHAR(255) PRIMARY KEY `Action`)"\nConst SQL_CREATEPROPTABLE = "CREATE TABLE `Property` (`Property` CHAR(72) NOT NULL, `Value` LONGCHAR NOT NULL LOCALIZABLE PRIMARY KEY `Property`)"\n\nConst MSIREADSTREAM_ANSI = 2\n\nConst xlTop = &HFFFFEFC0\nConst xlUp = &HFFFFEFBE\nConst xlSrcRange = 1\nConst xlYes = 1\nConst xlNo = 2\nConst xlMaximized = &HFFFFEFD7\n\nConst COL_NONPOUND = 1\nConst COL_POUND = 2\n\nConst HROW = 1\n\nConst SEQ_PATCHFAMILY = 1\nConst SEQ_PRODUCTCODE = 2\nConst SEQ_SEQUENCE = 3\nConst SEQ_ATTRIBUTE = 4\n\nConst MET_COMPANY = 1\nConst MET_PROPERTY = 2\nConst MET_VALUE = 3\n\nConst TARGETGUID = 1\nConst MSPTARGETVER = 2\nConst MSPUPDATEDVER = 3\nConst LCID = 4\nConst CULTURE = 5\nConst VAL_TARGETPRODUCTCODE = 6\nConst VAL_TARGETVERSION = 7\nConst VAL_TARGETLANGUAGE = 8\nConst VAL_TARGETUPGRADECODE = 9\n\nConst OTARGETGUID = 1\nConst OTARGETNAME = 2\nConst OFAMILYVER = 3\nConst OMSPTARGETVER = 4\nConst OMSPUPDATEDVER= 5\nConst OLCID = 6\nConst OCULTURE = 7\nConst OLICENSE = 8\nConst OARCHITECTURE = 9\nConst OVAL_TARGETPRODUCTCODE = 10\nConst OVAL_TARGETVERSION = 11\nConst OVAL_TARGETLANGUAGE = 12\nConst OVAL_TARGETUPGRADECODE = 13\nConst OVAL_REINSTALLMODE = 14\nConst OVAL_REINSTALL = 15\n\nConst F_FILE = 1\nConst F_COMPONENT = 2\nConst F_FILENAME = 3\nConst F_FILESIZE = 4\nConst F_VERSION = 5\nConst F_HASH = 6\nConst F_LANGUAGE = 7\nConst F_ATTRIBUTE = 8\nConst F_SEQUENCE = 9\nConst F_PREDICTED = 10\nConst F_COMPSTATE = 11\nConst F_CURSIZE = 12\nConst F_CURVERSION = 13\nConst F_CURHASH = 14\nConst F_FILEPATH = 15\n\nConst S_PROP = 1\nConst S_VAL = 2\nConst S_ROW_NAME = 2\nConst S_ROW_KB = 3\nConst S_ROW_PACKLET = 4\nConst S_ROW_SEQUENCE = 5\nConst S_ROW_BASELINE = 6\nConst S_ROW_SUPERSEDENCE = 7\nConst S_ROW_UNINSTALLABLE = 8\nConst S_ROW_TITLE = 9\nConst S_ROW_AUTHOR = 10\nConst S_ROW_SUBJECT = 11\nConst S_ROW_COMMENTS = 12\nConst S_ROW_PATCHCODE = 13\nConst S_ROW_TARGETS = 14\nConst S_ROW_OBSOLETES = 15\nConst S_ROW_TRANSFORMSUB = 16\nConst S_ROW_PATCHTYPE = 17\nConst S_ROW_SECURITY = 18\nConst S_ROW_PATCHXML = 19\n\nDim sErr_Syntax\nsErr_Syntax = vbCrLf & _\n"Usage: " & vbTab & SOLUTIONNAME&".vbs [\/Option] \u2026" & vbCrLf & vbCrLf & _\n" \/RepairCache " & vbTab & "Tries to restore missing items in the local WI cache" & vbCrLf & _\n" \/SRestoreLocation=" & vbTab & "A list of fully qualified paths to folders with .msp files, separated by semicolons" & vbCrLf & _\n" " & vbTab & vbTab & "<Folder01>;<\\\\Server02\\Share02>;\u2026" & vbCrLf & vbCrLf & _\n" \/ReconcileCache " & "Unregisters missing patches in the cache to unblock broken WI configurations" & vbCrLf & vbCrLf& _\n" \/ApplyPatch " & vbTab & "Apply patches from current folder and SUpdateLocation" & vbCrLf & _\n" \/SUpdateLocation=" & vbTab & "A list of fully qualified paths to folders with .msi and\/or .msp files, separated by semicolons" & vbCrLf & _\n" " & vbTab & vbTab & "<Folder01>;<\\\\Server02\\Share02>;\u2026" & vbCrLf& _\n" \/ExcludeCache"&vbTab& "Will not apply any patches from %windir%\\installer folder" & vbCrLf& _\n" \/IncludeOctCache"&vbTab& "Includes OCT patches from %windir%\\installer folder into patch detection" &vbCrLf&vbCrLf& _\n" \/RemovePatch " & vbTab & "Uninstall specified list of patches, separated by semicolons" & vbCrLf& _\n" " & vbTab & "Accepts KBxxxxxx;{PatchCode};<FullPath>;SUPERSEDED" & vbCrLf&vbCrLf& _\n" \/CleanCache " & vbTab & "Removes unreferenced (orphaned) patch files from the local WI cache" & vbCrLf&vbCrLf& _\n" \/CabExtract=<Patch>" & vbTab & "Extracts the patch embedded .CAB file to the %temp% folder" & vbCrLf&vbCrLf& _\n" \/ViewPatch=<Patch>" & vbTab & "Display the patch contents in Excel" & vbCrLf&vbCrLf& _\n" \/DetectOnly"&vbTab& "Create a log file but do not execute any actions" & vbCrLf&vbCrLf & _\n" \/q " & vbTab& "Suppresses the automatic display of the log file" & vbCrLf&vbCrLf&vbCrLf& _\n" \/register " & vbTab& "Registers OPUtil context menu extensions for .msp files" & vbCrLf&vbCrLf&vbCrLf& _\n" \/unregister" & vbTab& "UnRegisters OPUtil context menu extensions for .msp files" & vbCrLf&vbCrLf&vbCrLf& _\n"By default 'RepairCache' and 'ApplyPatch' are enabled." & vbCrLf& _\n"To disable use \/[Option]=False." & vbCrLf & vbCrLf & _\n"Examples" &vbCrLf&"========"&vbCrLf& _\n"Default 'RepairCache' & 'ApplyPatch' from current directory:" &vbCrLf& _\n" cscript.exe "&SOLUTIONNAME&".vbs" & vbCrLf & vbCrLf & _\n"Repair and reconcile a broken Windows Installer Cache:" &vbCrLf& _\n" cscript.exe "&SOLUTIONNAME&".vbs \/ReconcileCache \/RepairCache \/SRestoreLocation=<\\\\Location1\\ShareName>;<\\\\Location2\\ShareName>" & vbCrLf & vbCrLf & _\n"Create a log for applicability of specific patches:" &vbCrLf& _\n" cscript.exe "&SOLUTIONNAME&".vbs \/ApplyPatch \/SUpdateLocation=<\\\\Location1\\ShareName>;<\\\\Location2\\ShareName> \/ExcludeCache \/DetectOnly" & vbCrLf & vbCrLf & _\n"Install applicable patches (including local Windows Installer cache):" &vbCrLf& _\n" cscript.exe "&SOLUTIONNAME&".vbs \/ApplyPatch \/SUpdateLocation=<\\\\Location1\\ShareName>;<\\\\Location2\\ShareName>" & vbCrLf & vbCrLf & _\n"UnInstall patch(es):" &vbCrLf& _\n" cscript.exe "&SOLUTIONNAME&".vbs \/RemovePatch=KB123456;KB654321" & vbCrLf& _ \n" cscript.exe "&SOLUTIONNAME&".vbs \/RemovePatch={PatchCode}" & vbCrLf& _\n" cscript.exe "&SOLUTIONNAME&".vbs \/RemovePatch=Superseded" & vbCrLf '& vbCrLf & _\n\nDim oMsi,oFso,oReg,oWShell,oShellApp,oWmiLocal,DateTime,XmlDoc,oFile\n\nDim LogStream,ReadStream,LogProd\n\nDim fCScript,fx64,fCleanAggressive,fRebootRequired,fSumInit,fUpdatesCollected,fViewPatch,fCabExtract\nDim fShowLog,fForceRemovePatch,fContextMenu,fDeepScan, fDynSUpdateDiscovered, fMsiProvidedAsFile\nDim fNeedGenericSql\n\nDim sLogFile,sLogSummary,sAppData,sTmp,sTemp,sWinDir,sWICacheDir,sScriptDir,sTimeStamp,sLogNoRef\nDim Location,Key,vWI,vWIMajorMinor,sProductVersionNew,sProductVersionReal,sMspFile,sApplyPatch\nDim sOSinfo, sOSVersion, sComputerName, sExternalMsi\n\nDim iIndex,iVersionNt\n\nDim arrUpdateLocations,arrRestoreLocations,arrSUpdatesAll,arrTmpLog\nDim dicSUpdatesAll,dicFamily,dicSummary,dicRepair,dicLocalDisks,dicMspNoSeq,dicMspMinor,dicMspSmall\nDim dicMspObsoleted,dicMspSequence,dicDynCultFolders,dicSqlCreateTbl,dicProdMst\n\n'=======================================================================================================\n\n'Main\nOn Error Resume Next\n\n'Initialize objects and defaults\nInitialize\n\n'Parse the command line\nParseCmdLine\n\n'Validate ShowLog setting\nIf (fApplyPatch AND NOT fViewPatch) OR fCleanCache OR fForceRemovePatch OR fReconcileCache OR fRemovePatch OR fRepairCache Then fShowLog = True\n\nsTmp = ""\nLog "Current Settings:"\nLog Space(30)&"\/RepairCache "&fRepairCache&", "&"\/SRestoreLocation="&sRestoreLocation\nLog Space(30)&"\/ReconcileCache "&fReconcileCache\nLog Space(30)&"\/ApplyPatch "&fApplyPatch&", \/ExcludeCache "&fExcludeCache&", \/IncludeOctCache "&fIncludeOctCache&", \/SUpdateLocation="&sUpdateLocation\nLog Space(30)&"\/RemovePatch "&fRemovePatch&", Patches="&sMspRemoveFilter\nLog Space(30)&"\/CleanCache "&fCleanCache\nLog Space(30)&"\/CabExtract "&fCabExtract\nLog Space(30)&"\/ViewPatch "&fViewPatch\nLog Space(30)&"\/DetectOnly "&fDetectOnly\nLog Space(30)&"\/Q "&bQuiet &vbCrLf\nLog Space(30)&"For more details on available commands run "&chr(34)&"cscript OPUtil.vbs \/?"&chr(34)&vbCrLf\n\nIf Not Err = 0 Then\nLog "Error: Could not determine script parameters. Aborting"\nLog vbCrLf & "End of script: " & Now\nLogStream.Close\nwscript.Quit 1\nEnd If\n\nIf fCscript Then wscript.echo "Init complete"\n\n'Log if DetectOnly\nIf fDetectOnly Then\nsTmp = "DetectOnly mode. No changes will be done to the system!"\nLog String(Len(sTmp),"=")&vbCrLf&sTmp&vbCrLf&String(Len(sTmp),"=")&vbCrLf\nsTmp = ""\nEnd If 'fDetectOnly\n\n'Set the bookmark for the summary\nLog "[SUMMARY]"\n\n'Add marker to indicate the start of debug logging section\nsTmp = "Debug Logging Section"\nLog vbCrLf&String(Len(sTmp),"=")&vbCrLf&sTmp&vbCrLf&String(Len(sTmp),"=")\n\n'Ensure correct value for SRestoreLocation\narrRestoreLocations = EnsureLocation(sRestoreLocation & ";" & sUpdateLocation)\n\n'Ensure correct value for SUpdateLocation\nIf (NOT fApplyPatch) AND (NOT fRemovePatch) AND sUpdateLocation="" _\nThen arrUpdateLocations=Split(sScriptDir,";") _\nElse arrUpdateLocations = EnsureLocation(sUpdateLocation)\n\n'"RepairCache" .msi\/.msp resiliency'\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014-\nIf fRepairCache Then\n'Build the 'Repair' references\nInitRepairDic\n'Check and try to restore missing files if needed\nRepairCache\nEnd If 'fRepairCache\n\n'"ReconcileCache" patch reconcile\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014-\nIf fReconcileCache Then MspReconcile\n\n'"ApplyPatch" apply patches\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014-\nIf fApplyPatch AND NOT fViewPatch Then ApplyPatches\n\n'"CleanCache" orphaned .msp cleanup\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014-\nIf fCleanCache Then WICleanOrphans\n\n'"RemovePatch" Uninstall patches\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014-\nIf fRemovePatch Then \nDim arrMspRemove\nDim Msp,Item\n\nsTmp = "Running MspRemove with filter: '" & sMspRemoveFilter &"'"\nLog vbCrLf&vbCrLf&sTmp &vbCrLf& String(Len(sTmp),"-")\nIf fCscript Then wscript.echo "Checking for removable patches"\n\narrMspRemove = Split(sMspRemoveFilter,";")\nFor Each Item In arrMspRemove\nMsp = Item\n'Check if it's a reference to a .msp file\nIf Len(Msp)>4 Then\nIf LCase(Right(Msp,4))=".msp" Then\nIf oFso.FileExists(Msp) Then\nsMspRemoveFilter=sMspRemoveFilter & Left(oMsi.SummaryInformation(Msp).Property(PID_REVNUMBER),38)\nEnd If\nEnd If\nEnd If\nIf NOT Left(Msp,1)="{" Then\nIf NOT fUpdatesCollected Then CollectSUpdates\nFor iIndex = 0 To UBound(arrSUpdatesAll)\nIf arrSUpdatesAll(iIndex,COL_KB) = Replace(Msp,"KB","") Then sMspRemoveFilter=sMspRemoveFilter & ";"&arrSUpdatesAll(iIndex,COL_PATCHCODE)\nIf UCase(arrSUpdatesAll(iIndex,COL_RELEASE)) = UCase(Msp) Then sMspRemoveFilter=sMspRemoveFilter & ";"&arrSUpdatesAll(iIndex,COL_PATCHCODE)\nNext 'iIndex\nEnd If\nNext 'Item\nIf InStr(sMspRemoveFilter,"{")>0 Then MspRemove sMspRemoveFilter,sMspProductFilter\nIf InStr(UCase(sMspRemoveFilter),"SUPERSEDED")>0 Then MspRemove "Superseded",sMspProductFilter\nEnd If\n\n'"ViewPatch"\n'\u2014\u2014\u2014-\nIf fViewPatch Then\nViewPatch sMspFile\nEnd If\n\n'"CabExtract"\n'\u2014\u2014\u2014\u2014-\nIf fCabExtract Then\nsTmp = CabExtract(sMspFile)\nEnd If\n\n \n\n'Check reboot requirement\nIf fRebootRequired Then\nLog vbCrLf & "Note: "&ERR_REBOOT\nwscript.echo ERR_REBOOT\nEnd If 'fRebootRequired\n\n'Close the temp log\nsTmp = "End of script: " & Now\nLog vbCrLf & vbCrLf & String(Len(sTmp),"=") &vbCrLf & sTmp\nLogStream.Close\n'Create the final log including the summary section\n\n'Log Notes & Errors\nFor Each Key in dicSummary.Keys\nsTmp = ""\nIf NOT Left(Key,1)="{" Then sLogSummary = sLogSummary &vbCrLf&Key & dicSummary.Item(Key)\nNext 'Key\n\n'By Patch Summary \nfSumInit = False\nIf fApplyPatch AND (NOT fViewPatch OR fDeepScan) Then\nFor iIndex = 0 To UBound(arrSUpdatesAll)\nIf (NOT Left(arrSUpdatesAll(iIndex,COL_FILENAME),Len(sWICacheDir)) = sWICacheDir) OR _\n(Len(arrSUpdatesAll(iIndex,COL_APPLICABLECNT))>0) OR _\n(Len(arrSUpdatesAll(iIndex,COL_NOQALBASELINECNT))>0) Then\n'Found patch to be logged\n'Check if Heading needs to be added\nIf NOT fSumInit Then\nfSumInit = True\nsLogSummary = sLogSummary &vbCrLf&vbCrLf&"Summary By Patch"&vbCrLf&"================"\nsLogNoRef = ""\nEnd If\n'Add patch & product details\nIf (arrSUpdatesAll(iIndex,COL_REFCNT)= 0) Then\nsLogNoRef = sLogNoRef &vbCrLf&" - KB "&arrSUpdatesAll(iIndex,COL_KB)& _\n", "&arrSUpdatesAll(iIndex,COL_PATCHCODE)&", "&arrSUpdatesAll(iIndex,COL_PACKAGE)&", "&arrSUpdatesAll(iIndex,COL_FILENAME)\nElse\nsLogSummary = sLogSummary &vbCrLf&vbCrLf&"KB "&arrSUpdatesAll(iIndex,COL_KB)& _\n", "&arrSUpdatesAll(iIndex,COL_PATCHCODE)&", "&arrSUpdatesAll(iIndex,COL_PACKAGE)&", "&arrSUpdatesAll(iIndex,COL_FILENAME)\n'Applied details\nsTmp = vbTab&"Applied: "\nIf InStr(arrSUpdatesAll(iIndex,COL_APPLIEDCNT),";")>0 Then\nReDim arrTmpLog(-1)\nIf Right(arrSUpdatesAll(iIndex,COL_APPLIEDCNT),1)=";" Then _\narrSUpdatesAll(iIndex,COL_APPLIEDCNT) = Left(arrSUpdatesAll(iIndex,COL_APPLIEDCNT),Len(arrSUpdatesAll(iIndex,COL_APPLIEDCNT))-1)\narrTmpLog = Split(arrSUpdatesAll(iIndex,COL_APPLIEDCNT),";")\nsTmp = sTmp & "Patch is installed to "&UBound(arrTmpLog)+1&" product(s)"\nFor Each LogProd in arrTmpLog\nsTmp = sTmp&vbCrLf&vbTab&vbTab&LogProd&" - "\nsTmp = sTmp&oMsi.ProductInfo(LogProd,"ProductName")\nNext 'LogPatch\n\nsLogSummary = sLogSummary &vbCrLf&sTmp\nElse\nsTmp = sTmp & "No"\nEnd If\n\n'Superseded details\nsTmp = vbTab&"Superseded: "\nIf InStr(arrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT),";")>0 Then\nReDim arrTmpLog(-1)\nIf Right(arrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT),1)=";" Then _\narrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT) = Left(arrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT),Len(arrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT))-1)\narrTmpLog = Split(arrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT),";")\nsTmp = sTmp & "Patch is superseded for "&UBound(arrTmpLog)+1&" product(s)"\nFor Each LogProd in arrTmpLog\nsTmp = sTmp&vbCrLf&vbTab&vbTab&LogProd&" - "\nsTmp = sTmp&oMsi.ProductInfo(LogProd,"ProductName")\nNext 'LogPatch\nsLogSummary = sLogSummary &vbCrLf&sTmp\nElse\nsTmp = sTmp & "No"\nEnd If\n\n'Applicable details\nsTmp = vbTab&"Applicable: "\nIf InStr(arrSUpdatesAll(iIndex,COL_APPLICABLECNT),";")>0 Then\nReDim arrTmpLog(-1)\nIf Right(arrSUpdatesAll(iIndex,COL_APPLICABLECNT),1)=";" Then _\narrSUpdatesAll(iIndex,COL_APPLICABLECNT) = Left(arrSUpdatesAll(iIndex,COL_APPLICABLECNT),Len(arrSUpdatesAll(iIndex,COL_APPLICABLECNT))-1)\narrTmpLog = Split(arrSUpdatesAll(iIndex,COL_APPLICABLECNT),";")\nsTmp = sTmp & "Patch is applicable to "&UBound(arrTmpLog)+1&" product(s)"\nFor Each LogProd in arrTmpLog\nsTmp = sTmp&vbCrLf&vbTab&vbTab&LogProd&" - "\nsTmp = sTmp&oMsi.ProductInfo(LogProd,"ProductName")\nNext 'LogPatch\nsLogSummary = sLogSummary &vbCrLf&sTmp\nElse\nsTmp = sTmp & "No"\nEnd If\n\n'Applicable but no valid baseline details\nsTmp = vbTab&"Can't apply: "\nIf InStr(arrSUpdatesAll(iIndex,COL_NOQALBASELINECNT),";")>0 Then\nReDim arrTmpLog(-1)\nIf Right(arrSUpdatesAll(iIndex,COL_NOQALBASELINECNT),1)=";" Then _\narrSUpdatesAll(iIndex,COL_NOQALBASELINECNT) = Left(arrSUpdatesAll(iIndex,COL_NOQALBASELINECNT),Len(arrSUpdatesAll(iIndex,COL_NOQALBASELINECNT))-1)\narrTmpLog = Split(arrSUpdatesAll(iIndex,COL_NOQALBASELINECNT),";")\nsTmp = sTmp & "Patch is applicable to "&UBound(arrTmpLog)+1&" product(s) but the product(s) do(es) not meet the required SP level "\nFor Each LogProd in arrTmpLog\nsTmp = sTmp&vbCrLf&vbTab&vbTab&LogProd&" - "&oMsi.ProductInfo(LogProd,"ProductName")& _\nvbCrLf&vbTab&vbTab&"Patch baseline(s): "&arrSUpdatesAll(iIndex,COL_PATCHBASELINES)& ". Installed baseline: " &oMsi.ProductInfo(LogProd,"VersionString")&vbCrLf\nNext 'LogPatch\nsLogSummary = sLogSummary &vbCrLf&sTmp\nElse\nsTmp = sTmp & "No"\nEnd If\n\nEnd If \nEnd If\nNext 'iIndex\nIf NOT sLogNoRef="" Then sLogSummary = sLogSummary & vbCrLf&vbCrLf& "Patch(es) that don't target any installed applications:"& sLogNoRef\nEnd If 'fApplyPatch\n\n'By Product Summary\nIf fSumInit Then sLogSummary = sLogSummary &vbCrLf&vbCrLf&vbCrLf&"Summary By Product"&vbCrLf&"=================="&vbCrLf\n\nFor Each Key in dicSummary.Keys\nsTmp = ""\nIf Left(Key,1)="{" Then \nsTmp = Key&" - "&oMsi.ProductInfo(Key,"ProductName") \nsLogSummary = sLogSummary &vbCrLf&sTmp & dicSummary.Item(Key)\nEnd If\nNext 'Key\nErr.Clear\nIf sLogSummary = "==============="&vbCrLf&"Summary Section"&vbCrLf&"==============="&vbCrLf Then sLogSummary = sLogSummary&vbCrLf&" All appears to be well."&vbCrLf&vbCrLf&"For detailed logging see the 'Debug' section below."&vbCrLf\nSet ReadStream= oFso.OpenTextFile(sLogFile,FOR_READING,False,TRISTATE_USEDEFAULT)\nSet LogStream = oFso.CreateTextFile(sTemp&SOLUTIONNAME&".log",True,True)\nDo While Not ReadStream.AtEndOfStream\nsTmp = ReadStream.ReadLine\nIf NOT InStr(sTmp,"[SUMMARY]")>0 Then\nLogStream.WriteLine sTmp\nElse\nLogStream.Write sLogSummary&vbCrLf\nIf fRebootRequired Then LogStream.Write vbCrLf&ERR_REBOOT&vbCrLf&vbCrLf\nIf (NOT ReadStream.AtEndOfStream AND NOT fNoDebugLog) Then LogStream.Write ReadStream.ReadAll\nExit Do\nEnd If\nLoop\nReadStream.Close\nLogStream.Close\noFso.DeleteFile sLogFile\n\n'Show completion notice\nIf fCscript Then wscript.echo "Script execution complete."\n\n'Show the log\nIf (NOT bQuiet) AND fShowLog Then oWShell.Run chr(34) & sTemp&SOLUTIONNAME&".log" & chr(34)\n\n'END \n'====\n'=======================================================================================================\n\n'Initialize Objects and defaults\nSub Initialize\n\nDim Item,ComputerItem,Process,Processes\n\nDim iInstanceCnt\n\nOn Error Resume Next\n\nfCScript = False\nfx64 = False\nfViewPatch = False\nfCabExtract = False\nfShowLog = False\nsMspFile = ""\nsApplyPatch = ""\nfUpdatesCollected = False\nfCleanAggressive = False\nfForceRemovePatch = False\nfRebootRequired = False\nfContextMenu = False\nfDeepScan = False\nfDynSUpdateDiscovered = False\nfNeedGenericSql = True\nfMsiProvidedAsFile = False\n\nSet dicSqlCreateTbl = CreateObject("Scripting.Dictionary")\nSet dicProdMst = CreateObject("Scripting.Dictionary")\n\nsLogSummary = "==============="&vbCrLf&"Summary Section"&vbCrLf&"==============="&vbCrLf\n\nSet oMsi = CreateObject("WindowsInstaller.Installer")\nSet oFso = CreateObject("Scripting.FileSystemObject")\nSet oWShell = CreateObject("WScript.Shell")\nSet oShellApp = CreateObject("Shell.Application")\nSet oReg = GetObject("winmgmts:\\\\.\\root\\default:StdRegProv")\nSet oWmiLocal = GetObject("winmgmts:\\\\.\\root\\cimv2")\nSet DateTime = CreateObject("WbemScripting.SWbemDateTime")\nSet XmlDoc = CreateObject("Microsoft.XMLDOM")\n\n'Ensure there's only a single instance running of this script\niInstanceCnt = 0\nSet Processes = oWmiLocal.ExecQuery("Select * From Win32_Process")\nFor Each Process in Processes\nIf LCase(Mid(Process.Name,2,6))="script" Then \nIf InStr(LCase(Process.CommandLine),"oputil")>0 Then iInstanceCnt=iInstanceCnt+1\nEnd If\nNext 'Process\nIf iInstanceCnt>1 Then\nwscript.echo "Error: Another instance of this script is already running."\nwscript.quit\nEnd If\n\n'Obtain the current timestamp\nDateTime.SetVarDate Now,True\nsTimeStamp = Left(DateTime.Value,14)\n\n'Are we running on Cscript?\nfCScript = (LCase(Mid(Wscript.FullName, Len(Wscript.Path)+2, 1)) = "c")\n\n'Get environment path info\nsAppData = oWShell.ExpandEnvironmentStrings("%appdata%")&"\\"\nsTemp = oWShell.ExpandEnvironmentStrings("%temp%")&"\\"\nsWinDir = oWShell.ExpandEnvironmentStrings("%windir%")&"\\"\nsWICacheDir = sWinDir&"Installer\\"\nsScriptDir = wscript.ScriptFullName\nsScriptDir = Left(sScriptDir,InStrRev(sScriptDir,"\\"))\n\n'Init default for the resiliency .msi & .msp location\nsRestoreLocation = sRestoreLocation&";"&sScriptDir&";"&sWICacheDir\nIf Left(sRestoreLocation,1)=";" Then sRestoreLocation = Mid(sRestoreLocation,2)\n\n'Create the logfile with initial data\nsLogFile = sTemp & "~"&SOLUTIONNAME&".log"\nSet LogStream = oFso.CreateTextFile(sLogFile,True,True)\nLog "Microsoft Customer Support Services - " &SOLUTIONNAME & " V "& SCRIPTBUILD & " - " & Now & vbCrLf\nvWI = oMsi.Version\nvWIMajorMinor = Left(vWi,3)\nsTmp = "Windows Installer Version:"\nLog sTmp&Space(30-Len(sTmp))&vWI\nsTmp = "ComputerName:"\nLog sTmp&Space(30-Len(sTmp))& oWShell.ExpandEnvironmentStrings("%COMPUTERNAME%")\n\n'Initialize the 'Summary' log dictionary\nSet dicSummary = CreateObject("Scripting.Dictionary")\n\nIf vWIMajorMinor = "4.5" AND vWI<"4.5.6001.22392" Then _\nLogSummary "Important Note:","KB 972397 contains important updates for the installed version of Windows Installer! http:\/\/support.microsoft.com\/kb\/972397\/EN-US\/”"\n'More recent version of WI: KB 2388997. KB search term "Msi.dll" AND "hotfix information"\n\n'Detect if we're running on a 64 bit OS\nSet ComputerItem = oWmiLocal.ExecQuery("Select * from Win32_ComputerSystem")\nFor Each Item In ComputerItem\nfx64 = Instr(Left(Item.SystemType,3),"64") > 0\nsTmp = "OS Architecture:"\nLog sTmp&Space(30-Len(sTmp))& Item.SystemType\nNext\n\n'Find local disk drives\nSet dicLocalDisks = CreateObject("Scripting.Dictionary")\nFindLocalDisks\n\nEnd Sub\n'=======================================================================================================\n\n'Command Line Parser\nSub ParseCmdLine\n\nDim sTmp,sArg\n\nDim iCnt,iArgCnt\n\nDim fIgnoreOnce,fArray,fValidCmdFound\n\nDim arrArg\n\nOn Error Resume Next\n\nfIgnoreOnce = False\nfArray = False\niArgCnt = WScript.Arguments.Count\nIf Not iArgCnt > 0 Then \n'Use defaults\nExit Sub\nEnd If\n\nDim iActionCnt\nDim fRepairCacheOrg,fReconcileCacheOrg,fApplyPatchOrg,fRemovePatchOrg,fCleanCacheOrg\n\n'Found command line argument(s) -> default to disabled modules\niActionCnt = 0\nfValidCmdFound = False\nfRepairCacheOrg = fRepairCache : fRepairCache = False\nfReconcileCacheOrg = fReconcileCache : fReconcileCache = False\nfApplyPatchOrg = fApplyPatch : fApplyPatch = False\nfRemovePatchOrg = fRemovePatch : fRemovePatch = False\nfCleanCacheOrg = fCleanCache : fCleanCache = False\n\nFor iCnt = 0 To (iArgCnt-1)\n\nsArg = ""\nsArg = UCase(WScript.Arguments(iCnt))\nIf InStr(sArg,"=")>0 Then\nSet arrArg = Nothing\narrArg=Split(sArg,"=",2)\nsArg = arrArg(0)\nfArray = True\nEnd If\n\nSelect Case sArg\n\nCase "\/?"\nWscript.Echo sErr_Syntax\nWscript.Quit\nCase "\/APPLYPATCH","-APPLYPATCH","APPLYPATCH"\nfValidCmdFound = True\nfShowLog = True\nIf fArray Then\nIf arrArg(1) = "FALSE" Then\nfApplyPatch = False\nfApplyPatchOrg = False\nfValidCmdFound = False\nEnd If\nfApplyPatch = True\niActionCnt = iActionCnt + 1\nsApplyPatch = arrArg(1)\nIf oFso.FileExists(sApplyPatch) Then\nSet oFile = oFso.GetFile(sApplyPatch)\nIf sUpdateLocation = "" Then sUpdateLocation = oFile.ParentFolder.Path Else sUpdateLocation = sUpdateLocation&";"&oFile.ParentFolder.Path\nEnd If\nfArray = False\nElse\nfApplyPatch = True\niActionCnt = iActionCnt + 1\nEnd If\n\nCase "\/CABEXTRACT","-CABEXTRACT","CABEXTRACT"\nfValidCmdFound = True\niActionCnt = iActionCnt + 1\nfCabExtract = True\nIf fArray Then\nsMspFile = arrArg(1)\nfArray = False\nElse\nfIgnoreOnce = True\nIf (iArgCnt-1) > iCnt Then _\nsMspFile = WScript.Arguments(iCnt+1) Else\nsMspFile = ""\nEnd If\n\nCase "\/CLEANAGGRESSIVE","-CLEANAGGRESSIVE","CLEANAGGRESSIVE"\nfCleanAggressive = True\n\nCase "\/CLEANCACHE","-CLEANCACHE","CLEANCACHE"\nfValidCmdFound = True\nfShowLog = True\nIf fArray Then\nIf arrArg(1) = "FALSE" Then\nfCleanCache = False\nfCleanCacheOrg = False\nEnd If\nIf arrArg(1) = "TRUE" Then\nfCleanCache = True\niActionCnt = iActionCnt + 1\nEnd If\nfArray = False\nElse\nfCleanCache = True\niActionCnt = iActionCnt + 1\nEnd If\n\nCase "\/CONTEXTMENU"\nfContextMenu = True\n\n' Case "\/DEEPSCAN"\n' iActionCnt = iActionCnt + 1\n' fDeepScan = True\n' fDetectOnly = True\n' fApplyPatch = True\n\nCase "\/DETECTONLY","-DETECTONLY","DETECTONLY"\nIf fArray Then\nIf arrArg(1)="TRUE" OR arrArg(1)=1 Then fDetectOnly=True Else fDetectOnly=False\nfArray=False\nElse\nfDetectOnly = True\nEnd If 'fArray\n\nCase "\/DISABLEREPAIR","-DISABLEREPAIR","DISABLEREPAIR"\nfRepairCache = False\n\nCase "\/EXCLUDECACHE","-EXCLUDECACHE","EXCLUDECACHE"\nfExcludeCache = True\n\n'Warning: This is an undocumented and unsupported feature!\nCase "\/FORCEREMOVEPATCH","-FORCEREMOVEPATCH","FORCEREMOVEPATCH"\nfForceRemovePatch = True\nfValidCmdFound = True\nfShowLog = True\nIf fArray Then\nIf arrArg(1) = "FALSE" Then \nfForceRemovePatch = False\nElse\nfRemovePatch = True\nsMspRemoveFilter = Replace(arrArg(1),",",";")\niActionCnt = iActionCnt + 1\nEnd If\nfArray = False\nEnd If\n\nCase "\/INCLUDEOCTCACHE","-INCLUDEOCTCACHE","INCLUDEOCTCACHE"\nfIncludeOctCache = True\n\nCase "\/R","-R","R","\/REGISTER","-REGISTER","REGISTER"\nfValidCmdFound = True\niActionCnt = iActionCnt + 1\nRegisterShellExt\n\nCase "\/RECONCILECACHE","-RECONCILECACHE","RECONCILECACHE"\nfValidCmdFound = True\nfShowLog = True\nIf fArray Then\nIf arrArg(1) = "FALSE" Then \nfReconcileCache = False\nfReconcileCacheOrg = False\nEnd If\nIf arrArg(1) = "TRUE" Then\nfReconcileCache = True\niActionCnt = iActionCnt + 1\nEnd If\nfArray = False\nElse\nfReconcileCache = True\niActionCnt = iActionCnt + 1\nEnd If\n\nCase "\/REMOVEPATCH","-REMOVEPATCH","REMOVEPATCH"\nfValidCmdFound = True\nfShowLog = True\nIf fArray Then\nIf arrArg(1) = "FALSE" Then \nfRemovePatch = False\nfRemovePatchOrg = False\nElse\nfRemovePatch = True\nsMspRemoveFilter = Replace(arrArg(1),",",";")\niActionCnt = iActionCnt + 1\nEnd If\nfArray = False\nElse\nfRemovePatch = True\niActionCnt = iActionCnt + 1\nEnd If\n\nCase "\/REPAIRCACHE","-REPAIRCACHE","REPAIRCACHE"\nfValidCmdFound = True\nfShowLog = True\nIf fArray Then\nIf arrArg(1) = "FALSE" Then \nfRepairCache = False\nfRepairCacheOrg = False\nEnd If\nIf arrArg(1) = "TRUE" Then\nfRepairCache = True\niActionCnt = iActionCnt + 1\nEnd If\nfArray = False\nElse\nfRepairCache = True\niActionCnt = iActionCnt + 1\nEnd If\n\nCase "\/SRESTORELOCATION","-SRESTORELOCATION","SRESTORELOCATION" 'SRestoreLocation\nIf fArray Then\nsRestoreLocation = arrArg(1)\nfArray = False\nElse\nfIgnoreOnce = True\nsRestoreLocation = WScript.Arguments(iCnt+1)\nEnd If\n\nCase "\/SUPDATELOCATION","-SUPDATELOCATION","SUPDATELOCATION","\/SUPDATESLOCATION","-SUPDATESLOCATION","SUPDATESLOCATION" 'SUpdateLocation\nIf fArray Then\nsUpdateLocation = arrArg(1)\nfArray = False\nElse\nfIgnoreOnce = True\nsUpdateLocation = WScript.Arguments(iCnt+1)\nEnd If\n\nCase "\/U","-U","U","\/UNREGISTER","UNREGISTER","UNREGISTER"\nfValidCmdFound = True\niActionCnt = iActionCnt + 1\nUnRegisterShellExt\n\nCase "\/VIEW","\/VIEWPATCH"\niActionCnt = iActionCnt + 1\nfValidCmdFound = True\nfViewPatch = True\nfDetectOnly = True\nfApplyPatch = True\nfDeepScan = True\nIf fArray Then\nsMspFile = arrArg(1)\nIf oFso.FileExists(sMspFile) Then\nSet oFile = oFso.GetFile(sMspFile)\nIf sUpdateLocation = "" Then sUpdateLocation = oFile.ParentFolder.Path Else sUpdateLocation = sUpdateLocation&";"&oFile.ParentFolder.Path\nEnd If\nfArray = False\nElse\nfIgnoreOnce = True\nIf (iArgCnt-1) > iCnt Then _\nsMspFile = WScript.Arguments(iCnt+1) Else _\nsMspFile = ""\nEnd If\n\nCase "\/Q"\nbQuiet = True\n\nCase Else\nIf NOT fIgnoreOnce Then\nsTmp = ""\nsTmp = vbCrLf&"Warning: Invalid command line switch '" & WScript.Arguments(iCnt) & "' will be ignored."&vbCrLf\nIf NOT bQuiet Then wscript.echo sTmp\nLog sTmp\nfIgnoreOnce = NOT fIgnoreOnce\nEnd If\n\nEnd Select\n\nNext 'iCnt\n\n'Ensure we had a valid Cmd\nIf NOT fValidCmdFound OR iActionCnt = 0 Then\n'Restore defaults\nfShowLog = True\nfRepairCache = fRepairCacheOrg\nfReconcileCache = fReconcileCacheOrg\nfApplyPatch = fApplyPatchOrg\nfRemovePatch = fRemovePatchOrg\nfCleanCache = fCleanCacheOrg\nEnd If\n\nEnd Sub 'ParseCmdLine\n'=======================================================================================================\n\n'Build a dictionary array for a reference list of available .msi and .msp packages\n'Key for .msi is <ProductCode>_<PackageCode> (required to support AIP installs)\n'Key for .msp is <PatchCode>\nSub InitRepairDic\n\nDim File,Folder,MspDb,Record,SumInfo\n\nDim sProductCode,sPackageCode,sKey\n\nDim qView\n\nOn Error Resume Next\n\nIf fCscript Then wscript.echo "Collecting resiliency data"\nSet dicRepair = CreateObject("Scripting.Dictionary")\n\nFor Each Folder in arrRestoreLocations\nIf fCscript Then wscript.echo vbTab&"Collect files from "&Folder\nFor Each File in oFso.GetFolder(Folder).Files\nSelect Case LCase(Right(File.Name,4))\nCase ".msp"\nsKey = ""\nsKey = oMsi.SummaryInformation(File.Path,MSIOPENDATABASEMODE_READONLY).Property(PID_REVNUMBER)\nIf Len(sKey)>LEN_GUID Then sKey=Left(sKey,LEN_GUID)\nIf Not dicRepair.Exists(sKey) Then dicRepair.Add sKey,File.Path\nCase ".msi"\nsKey = GetMsiProductCode(File.Path)&"_"&GetMsiPackageCode(File.Path)\nIf Not dicRepair.Exists(sKey) Then dicRepair.Add sKey,File.Path\nCase Else\n'Do Nothing\nEnd Select\nNext 'File\nNext 'Folder\n\nEnd Sub 'InitRepairDic\n'=======================================================================================================\n\nSub RepairCache\n\nDim File,Product,Prod,PatchList,Patch,Source,MsiSources,MspSources\n\nDim sLocalMsi,sLocalMsp,sKey,sSourceKey,sRepair,sFile,sFileName,sPackage\nDim sRegPackageCode,sMsiPackageCode,sGlobalPatchesKey,sClassesPatchesKey\n\nDim fTrySource,fRepaired,fMsiOK,fMsiRename,fReLoop\n\nDim dicMspError, dicMspChecked, dicMspUnreg ,arrKeys\n\nDim iReLoop\n\nOn Error Resume Next\n\nSet dicMspError = CreateObject("Scripting.Dictionary")\nSet dicMspChecked = CreateObject("Scripting.Dictionary")\nSet dicMspUnreg = CreateObject("Scripting.Dictionary")\n\nsTmp = "Running RepairCache"\nLog vbCrLf&vbCrLf&sTmp&vbCrLf& String(Len(sTmp),"-")\nIf fCscript Then wscript.echo "Scanning Windows Installer cache"\n\nFor Each Product in oMsi.Products\nLog vbCrLf&"Product: "&Product&" - "&oMsi.ProductInfo(Product,"ProductName")\nIf fCscript Then wscript.echo vbTab&"Scan "&Product&" - "&oMsi.ProductInfo(Product,"ProductName")\n\n'Check local .msi package\nsLocalMsi = "" : sRegPackageCode = "" : sFileName = "" : sRepair = ""\nfTrySource = False : fRepaired = False : fMsiOK = False : fMsiRename = False\nErr.Clear\nsLocalMsi = oMsi.ProductInfo(Product,"LocalPackage")\nsRegPackageCode = oMsi.ProductInfo(Product,"PackageCode")\nIf Err = 0 Then\nIf oFso.FileExists(sLocalMsi) Then\nsMsiPackageCode = GetMsiPackageCode(sLocalMsi)\nIf sRegPackageCode = sMsiPackageCode Then \nfMsiOK = True\nLog vbTab&"Success: Local .msi package " &sLocalMsi & " is available and valid."\nElse\n'PackageCode mismatch! Windows Installer will not accept the local copy in the WI cache as valid.\nfMsiRename = True\nsTmp = vbTab&"Error: Local .msi package "&sLocalMsi&" is available but invalid. Registered PackageCode '"&sRegPackageCode&"' does not match cached files PackageCode '"&sMsiPackageCode&"'"\nLogSummary Product,sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&"Error: Local .msi package "&sLocalMsi&" is available but invalid."\nEnd If\nEnd If 'oFso.FileExists\nElse\nErr.Clear\nEnd If\n\nIf NOT fMsiOK Then\nIf sLocalMsi = "" Then \nsTmp = vbTab&"Error: No local .msi package registered. Cannot restore."\nLog sTmp\nElse\n'Try to restore from available resources\nsRepair = "Error: Local .msi package missing. Attempt failed to restore "\nIf fMsiRename Then sRepair = "Note: No matching .msi package available to replace the mismatched file "\nsKey = ""\nsKey = Product&"_"&sRegPackageCode\nIf dicRepair.Exists(sKey) Then \nIf fMsiRename Then\nIf NOT fDetectOnly Then\nsFileName = ""\nSet File = oFso.GetFile(sLocalMsi)\nsFileName = File.Name\nFile.Name = "Renamed_"&File.Name\noFso.CopyFile dicRepair.Item(sKey),sLocalMsi\nEnd If 'fDetectOnly\nElse\nIf NOT fDetectOnly Then oFso.CopyFile dicRepair.Item(sKey),sLocalMsi\nEnd If 'fMsiRename\nIf oFso.FileExists(sLocalMsi) _\nThen sRepair = "Restored: Successfully connected to 'RestoreLocation' ("&dicRepair.Item(sKey)&") to restore local .msi package " _\nElse fTrySource = True\n\n'Handle 'DetectOnly' exception\nIf fDetectOnly Then\nsRepair = "Note: Restore is possible from 'RestoreLocation' ("&dicRepair.Item(sKey)&") to restore local .msi package "\nfTrySource = False\nEnd If 'fDetectOnly\nElse\nfTrySource = True\nEnd If\n\n'Try to restore from resgistered sources\nIf fTrySource Then\n'Obtain a productsex handle\nSet Prod = oMsi.ProductsEx(Product,"",MSIINSTALLCONTEXT_ALL)(0)\n'Get the sources\nSet MsiSources = Prod.Sources(1)\nsPackage = ""\nsPackage = Prod.SourceListInfo("PackageName")\nFor Each Source in MsiSources\nLog "Debug: Trying to connect to resiliency source "&Source\nIf fCscript Then wscript.echo vbTab&vbTab&"Trying to connect to resiliency source "&Source\nIf fRepaired Then Exit For\nsFile = ""\nsFile = Source&sPackage\nIf oFso.FileExists(sFile) Then\nsSourceKey = ""\nsSourceKey = GetMsiProductCode(sFile)&"_"&GetMsiPackageCode(sFile)\nIf sKey = sSourceKey Then\nIf Not dicRepair.Exists(sSourceKey) Then dicRepair.Add sSourceKey,sFile\nIf NOT fDetectOnly AND fMsiRename Then \nsFileName = ""\nSet File = oFso.GetFile(sLocalMsi)\nsFileName = File.Name\nFile.Name = "Renamed_"&File.Name\nEnd If\nIf NOT fDetectOnly Then oFso.CopyFile sFile,sLocalMsi\nfRepaired = oFso.FileExists(sLocalMsi)\nIf fDetectOnly Then sRepair = "Note: Restore is possible from 'registered InstallSource' ("&sFile&") to restore local .msi package "\nEnd If 'sKey = sSourceKey\nEnd If\nNext 'Source\nIf fRepaired Then sRepair = "Restored: Successfully connected to 'registered InstallSource' ("&sFile&") to restore local .msi package "\nEnd If 'fTrySource\n\nIf NOT oFso.FileExists(sLocalMsi) AND fMsiRename Then\n'Undo rename\nFile.Name = sFileName\nsRepair = "Error: Attmpt failed to replace the mismatched file. Original cached file has been restored "\nEnd If\nSet File = Nothing\n\n'Log the result\nsTmp = vbTab&sRepair&sLocalMsi&" (PackageCode: "&sRegPackageCode&")"\nLog sTmp\nEnd If\nLogSummary Product,sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nEnd If\n\n'Check local .msp packages\nFor iReLoop = 0 To 1\nfReLoop = False\nSet PatchList = oMsi.PatchesEx(Product,USERSID_NULL,MSIINSTALLCONTEXT_MACHINE,MSIPATCHSTATE_APPLIED + MSIPATCHSTATE_SUPERSEDED + MSIPATCHSTATE_OBSOLETED)\nIf Err = 0 Then\nFor Each Patch in PatchList\nErr.Clear\nsLocalMsp = "" : sRepair = "" : fTrySource = False : fRepaired = False\nsLocalMsp = LCase(Patch.PatchProperty("LocalPackage"))\nIf Not dicMspChecked.Exists(Patch.PatchCode) Then dicMspChecked.Add Patch.PatchCode,sLocalMsp\nIf Not Err = 0 Then\nErr.Clear\n'This happens if a patch is registered but the global patch registration has gone missing.\n'To work around this a correction entry is created\nsTmp = vbTab&"Error: Failed to obtain local patch package data for patch '"&Patch.PatchCode&"'. Fixing patch registration."\nIf fDetectOnly Then sTmp = vbTab&"Error: Failed to obtain local patch package data for patch '"&Patch.PatchCode&"'. Patch registration would be fixed."\nLog sTmp\nLogSummary Product,sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nIf NOT fDetectOnly Then\nFixMspGlobalReg Patch.PatchCode\nfReLoop = True\nsLocalMsp = LCase(Patch.PatchProperty("LocalPackage"))\nEnd If\nEnd If\nIf NOT sLocalMsp = "" Then\nIf oFso.FileExists(sLocalMsp) Then \nLog vbTab&"Success: Confirmed local patch package as '"&sLocalMsp&"'"&vbTab&"for patch '"&Patch.PatchCode&"' - '"&Patch.PatchProperty("DisplayName")&"'."\nElse\n'Try to restore from available resources\nsRepair = "Error: Local .msp package missing. Attempt failed to restore '"\nsKey = ""\nsKey = Patch.PatchCode\nIf dicRepair.Exists(sKey) Then\nIf NOT fDetectOnly Then oFso.CopyFile dicRepair.Item(sKey),sLocalMsp\nIf oFso.FileExists(sLocalMsp) Then sRepair = "Restored: Successfully connected to 'RestoreLocation' ("&dicRepair.Item(sKey)&") to restore local .msp package '" Else fTrySource = True\n'Handle 'DetectOnly' exception\nIf fDetectOnly Then\nsRepair = "Note: Restore is possible from 'RestoreLocation' ("&dicRepair.Item(sKey)&") to restore local .msp package "\nfTrySource = False\nIf NOT dicMspError.Exists(Patch.PatchCode) Then dicMspError.Add Patch.PatchCode,sLocalMsp\nEnd If 'fDetectOnly\nElse\nfTrySource = True\nEnd If\n\n'Try to restore from resgistered sources\nIf fTrySource Then\n'Get the sources\nsPackage = Patch.SourceListInfo("PackageName")\nSet MspSources = Patch.Sources(1)\nFor Each Source in MspSources\nIf fRepaired Then Exit For\nsFile = Source&sPackage\nIf oFso.FileExists(sFile) Then\nsSourceKey = ""\nsSourceKey = oMsi.SummaryInformation(sFile,MSIOPENDATABASEMODE_READONLY).Property(PID_REVNUMBER)\nIf sKey = sSourceKey Then\nIf NOT dicRepair.Exists(sSourceKey) Then dicRepair.Add sSourceKey,sFile\nIf NOT fDetectOnly Then oFso.CopyFile sFile,sLocalMsp\nfRepaired = oFso.FileExists(sLocalMsp)\nIf fDetectOnly Then \nsRepair = "Note: Restore is possible from 'registered InstallSource' ("&sFile&") to restore local .msp package "\nIf NOT dicMspError.Exists(Patch.PatchCode) Then dicMspError.Add Patch.PatchCode,sLocalMsp\nEnd If\nEnd If 'sKey = sSourceKey\nEnd If\nNext 'Source\nIf fRepaired Then\nsRepair = "Restored: Successfully connected to 'registered InstallSource' ("&sFile&") to restore local .msp package "\nElse\nIf NOT dicMspError.Exists(Patch.PatchCode) Then dicMspError.Add Patch.PatchCode,sLocalMsp\nEnd If\nEnd If 'fTrySource\n\n'Log the result\nsTmp = vbTab&sRepair&sLocalMsp&"' - '"&Patch.PatchCode&"' - '"&Patch.PatchProperty("DisplayName")\nLog sTmp\nLogSummary Product,sTmp\nEnd If 'NOT oFso.FileExists\nEnd If 'Not sLocalMsp = ""\nIf NOT fReLoop Then EnsurePatchMetadata Patch,USERSID_NULL\nNext 'Patch\nElse\nsTmp = vbTab&"Error: PatchesEx API failed with error " & err.number & " - " & err.Description\nLog sTmp\nLogSummary Product,sTmp &" (Module RepairCache)"\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nEnd If 'Err = 0\nIf NOT fReLoop Then Exit For\nNext 'iReLoop\n\nNext 'Prod\n\n'In case that a global patch entry exists which is no longer linked to any product this is not covered\n'in the logic above and requires this special handler\nsGlobalPatchesKey = REG_GLOBALCONFIG & "S-1-5-18\\Patches\\"\nsClassesPatchesKey = "Installer\\Patches\\"\nIf RegEnumKey(HKLM,sGlobalPatchesKey,arrKeys) Then\nFor Each sKey in arrKeys\nPatch = GetExpandedGuid(sKey)\nIf NOT dicMspChecked.Exists(Patch) Then\n'Only care if it's impacting known patches from the repair dictionary\nIf dicRepair.Exists(sKey) Then\n'Flag to reconcile the registration to allow a clean transaction\nIf Not dicMspUnreg.Exists(sKey) Then dicMspUnreg.Add sKey,sKey\nEnd If 'dicRepair.Exists\nEnd If\nNext 'sKey\nEnd If 'RegEnumKey sGlobalPatchesKey\nIf RegEnumKey(HKCR,sClassesPatchesKey,arrKeys) Then\nFor Each sKey in arrKeys\nPatch = GetExpandedGuid(sKey)\nIf NOT dicMspChecked.Exists(Patch) Then\n'Only care if it's impacting known patches from the repair dictionary\nIf dicRepair.Exists(sKey) Then\n'Flag to reconcile the registration to allow a clean transaction\nIf Not dicMspUnreg.Exists(sKey) Then dicMspUnreg.Add sKey,sKey\nEnd If 'dicRepair.Exists\nEnd If\nNext 'sKey\nEnd If 'RegEnumKey sClassesPatchesKey\nIf dicMspUnreg.Count > 0 Then\nFor Each sKey in dicMspUnreg.Keys\nRegDeleteKey HKLM,sGlobalPatchesKey & sKey & "\\"\nRegDeleteKey HKCR,sClassesPatchesKey & sKey & "\\"\nNext 'sKey\nEnd If 'dicMspUnreg > 0\n\nErr.Clear\nSet PatchList = oMsi.PatchesEx("",USERSID_NULL,MSIINSTALLCONTEXT_MACHINE,MSIPATCHSTATE_APPLIED + MSIPATCHSTATE_SUPERSEDED + MSIPATCHSTATE_OBSOLETED)\nIf Err = 0 Then\nFor Each Patch in PatchList\n'Only care if it's not a patch with known issues\nIf NOT dicMspChecked.Exists(Patch.PatchCode) Then\nErr.Clear\nsLocalMsp = "" : sRepair = "" : fTrySource = False : fRepaired = False\nsLocalMsp = LCase(Patch.PatchProperty("LocalPackage"))\nIf Not Err = 0 Then\nErr.Clear\n'This happens if a patch is registered but the global patch registration has gone missing.\n'To work around this a correction entry is created\nsTmp = vbTab&"Error: Failed to obtain local patch package data for patch '"&Patch.PatchCode&"'. Fixing patch registration."\nIf fDetectOnly Then sTmp = vbTab&"Error: Failed to obtain local patch package data for patch '"&Patch.PatchCode&"'. Patch registration would be fixed."\nLog sTmp\nLogSummary "",sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nIf NOT fDetectOnly Then\nFixMspGlobalReg Patch.PatchCode\nsLocalMsp = LCase(Patch.PatchProperty("LocalPackage"))\nEnd If\nEnd If\nIf NOT sLocalMsp = "" Then\nIf oFso.FileExists(sLocalMsp) Then \nLog vbTab&"Success: Confirmed local patch package as '"&sLocalMsp&"'"&vbTab&"for patch '"&Patch.PatchCode&"' - '"&Patch.PatchProperty("DisplayName")&"'."\nElse\n'Try to restore from available resources\nsRepair = "Error: Local .msp package missing. Attempt failed to restore '"\nsKey = ""\nsKey = Patch.PatchCode\nIf dicRepair.Exists(sKey) Then\nIf NOT fDetectOnly Then oFso.CopyFile dicRepair.Item(sKey),sLocalMsp\nIf oFso.FileExists(sLocalMsp) Then sRepair = "Restored: Successfully connected to 'RestoreLocation' ("&dicRepair.Item(sKey)&") to restore local .msp package '" Else fTrySource = True\n'Handle 'DetectOnly' exception\nIf fDetectOnly Then\nsRepair = "Note: Restore is possible from 'RestoreLocation' ("&dicRepair.Item(sKey)&") to restore local .msp package "\nfTrySource = False\nIf NOT dicMspError.Exists(Patch.PatchCode) Then dicMspError.Add Patch.PatchCode,sLocalMsp\nEnd If 'fDetectOnly\nElse\nfTrySource = True\nEnd If\n\n'Try to restore from resgistered sources\nIf fTrySource Then\n'Get the sources\nsPackage = Patch.SourceListInfo("PackageName")\nSet MspSources = Patch.Sources(1)\nFor Each Source in MspSources\nIf fRepaired Then Exit For\nsFile = Source&sPackage\nIf oFso.FileExists(sFile) Then\nsSourceKey = ""\nsSourceKey = oMsi.SummaryInformation(sFile,MSIOPENDATABASEMODE_READONLY).Property(PID_REVNUMBER)\nIf sKey = sSourceKey Then\nIf NOT dicRepair.Exists(sSourceKey) Then dicRepair.Add sSourceKey,sFile\nIf NOT fDetectOnly Then oFso.CopyFile sFile,sLocalMsp\nfRepaired = oFso.FileExists(sLocalMsp)\nIf fDetectOnly Then \nsRepair = "Note: Restore is possible from 'registered InstallSource' ("&sFile&") to restore local .msp package "\nIf NOT dicMspError.Exists(Patch.PatchCode) Then dicMspError.Add Patch.PatchCode,sLocalMsp\nEnd If\nEnd If 'sKey = sSourceKey\nEnd If\nNext 'Source\nIf fRepaired Then\nsRepair = "Restored: Successfully connected to 'registered InstallSource' ("&sFile&") to restore local .msp package "\nElse\nIf NOT dicMspError.Exists(Patch.PatchCode) Then dicMspError.Add Patch.PatchCode,sLocalMsp\n'MspReconcile logic is not designed to handle this special case. \n'Unregister is called straight away if MspReconcile is scheduled to run\nIf NOT fDetectOnly AND fReconcileCache Then UnregisterPatch Patch\nEnd If\nEnd If 'fTrySource\n\n'Log the result\nsTmp = vbTab&sRepair&sLocalMsp&"' - '"&Patch.PatchCode&"' - '"&Patch.PatchProperty("DisplayName")\nLog sTmp\nLogSummary "",sTmp\nEnd If 'NOT oFso.FileExists\nEnd If 'Not sLocalMsp = ""\nEnd If 'NOT dicMspError.Exists\nNext 'Patch\nElse\nsTmp = vbTab&"Error: PatchesEx API failed with error " & err.number & " - " & err.Description\nLog sTmp\nLogSummary "",sTmp &" (Module RepairCache)"\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nEnd If 'Err = 0\n\nEnd Sub 'RepairCache\n'=======================================================================================================\n\n'Unregister .msp files that have gone missing from the '%windir%\\installer' folder\nSub MspReconcile\n\nConst MAX_ATTEMPT = 100\n\nDim Prod,Product,Patch,PatchList,ProductsList\n\nDim sLocalMsp,sLocalMsi\n\nDim iCnt\n\nDim fResume,fMspOk\n\nDim dicMspUnregister\n\nOn Error Resume Next\n\nSet dicMspUnregister = CreateObject("Scripting.Dictionary")\n\nsTmp = "Running Module - Msp Reconcile"\nLog vbCrLf&vbCrLf&sTmp&vbCrLf& String(Len(sTmp),"-")\nIf fCscript Then wscript.echo "Scanning for broken patches"\n\niCnt = 0\n\n'Main detection loop\nSet ProductsList = oMsi.ProductsEx("","",MSIINSTALLCONTEXT_MACHINE)\nFor Each Prod in ProductsList\nProduct = Prod.ProductCode\nIf IsOfficeProduct (Product) Then\nLog vbCrLf&"Product: "&Product&" - "&oMsi.ProductInfo(Product,"ProductName")\nIf fCscript Then wscript.echo vbTab&"Scan "&Product&" - "&oMsi.ProductInfo(Product,"ProductName")\n\nIf NOT fRepairCache Then\n'Check local .msi package\nsLocalMsi = ""\nsLocalMsi = oMsi.ProductInfo(Product,"LocalPackage")\nIf oFso.FileExists(sLocalMsi) Then\nLog vbTab&"Success: Local .msi package " &sLocalMsi & " is available."\nElse\nIf sLocalMsi = "" Then \nsTmp = vbTab&"Error: No local .msi package registered."\nLog sTmp\nElse\nsTmp = vbTab&"Error: Local .msi package " &sLocalMsi & " is missing."\nLog sTmp\nEnd If\nLogSummary Product,sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nEnd If\nEnd If 'NOT fRepairCache\n\n'Get the list of patches for the product\nfResume = True\nfMspOk = True\nDo While fResume \nErr.Clear\nfResume = False\nSet PatchList = oMsi.PatchesEx(Product,USERSID_NULL,MSIINSTALLCONTEXT_MACHINE,MSIPATCHSTATE_ALL)\nIf Err = 0 Then\nFor Each Patch in PatchList\nErr.Clear\nsLocalMsp = "" : sLocalMsp = LCase(Patch.PatchProperty("LocalPackage"))\nIf Not Err = 0 Then\nfMspOk = False\nErr.Clear\nIf NOT dicMspUnregister.Exists(Patch.PatchCode) Then\nsTmp = vbTab&"Error: Failed to obtain local patch package data for patch '"&Patch.PatchCode&"'"\nLog sTmp\nLogSummary Product,sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nEnd If\nEnd If 'Err = 0\nIf NOT oFso.FileExists(sLocalMsp) Then \nsTmp = vbTab&"Error: Local patch package '"&sLocalMsp&"' missing for patch '"&Patch.PatchCode&"' - '"&Patch.PatchProperty("DisplayName")&"'. Unregistering patch \u2026"\nIf fDetectOnly Then sTmp = vbTab&"Error: Local patch package '"&sLocalMsp&"' missing for patch '"&Patch.PatchCode&"' - '"&Patch.PatchProperty("DisplayName")&"'. This patch would need to be unregistered!"\nLog sTmp\nLogSummary Product,sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\n'Call patch unregister routine\nIf NOT dicMspUnregister.Exists(Patch.PatchCode) Then dicMspUnregister.Add Patch.PatchCode,Patch.PatchCode\niCnt = iCnt + 1\nIf iCnt < MAX_ATTEMPT Then fResume = True\nIf NOT fDetectOnly Then UnregisterPatch Patch\n'Refresh PatchesEx object and resume\nIf NOT fDetectOnly Then Exit For\n'Reset flag for detect only case\nfResume = False\nfMspOk = False\nElse\nIf NOT fRepairCache Then Log vbTab&"Success: Confirmed local patch package as '"&sLocalMsp&"'"&vbTab&"for patch '"&Patch.PatchCode&"' - '"&Patch.PatchProperty("DisplayName")&"'."\nEnd If\nNext 'Patch\nIf fMspOk Then Log vbTab&"Success: No locally cached .msp packages are missing."\nElse\nsTmp = vbTab&"Error: PatchesEx API failed with error " & err.number & " - " & err.Description\nLog sTmp\nLogSummary Product,sTmp &" (Module MspReconcile)"\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nEnd If 'Err = 0\nLoop\nEnd If 'IsOfficeProduct\nNext 'Product\n\nEnd Sub 'MspReconcile\n'=======================================================================================================\n\n'Run patch detection to apply missing & applicable patches\n'Default is to search for patches in\n'A) provided SUpdateLocation folders\n'B) current directory from which script is called\n'C) %windir%\\installer\\\nSub ApplyPatches\n\nDim Product,Patch,Key\n\nDim sPatches,sReturn\n\nDim iIndex\n\nOn Error Resume Next\n\nIf fApplyPatch Then sTmp = "Running ApplyPatch" Else sTmp = "Running ApplyPatch for SUpdateLocation folder "\nIf fViewPatch Then sTmp = "Running applicable patch detection"\nLog vbCrLf&vbCrLf&sTmp &vbCrLf& String(Len(sTmp),"-")\nIf fCscript Then wscript.echo "Running applicable patch detection"\n\nsPatches = ""\n\n'Init the dictionary objects\nSet dicMspNoSeq = CreateObject("Scripting.Dictionary")\nSet dicMspMinor = CreateObject("Scripting.Dictionary")\nSet dicMspSmall = CreateObject("Scripting.Dictionary")\nSet dicMspObsoleted = CreateObject("Scripting.Dictionary")\nSet dicMspSequence = CreateObject("Scripting.Dictionary")\n\n'Get the patch references from all locations\n'This calls into the patch details routine as well\nCollectSUpdates\nLog "Debug: Found " & UBound(arrSUpdatesAll)+1 & " unique patch(es) in total." & vbCrLf\nIf fCscript Then wscript.echo vbTab&"Found " & UBound(arrSUpdatesAll)+1 & " unique patch(es) in total."\n\n'Loop all products (filter on Office products) and call the pre-sequencer\nFor Each Product in oMsi.Products\nIf IsOfficeProduct(Product) Then\nLog vbCrLf&"Product: "&Product&" - "&oMsi.ProductInfo(Product,"ProductName") & ", Build: " & oMsi.ProductInfo(Product,"VersionString")\nIf fCscript Then wscript.echo vbCrLf & vbTab&"Scan "&Product&" - "&oMsi.ProductInfo(Product,"ProductName") & ", Build: " & oMsi.ProductInfo(Product,"VersionString")\n\n'Ensure empty dics\ndicMspNoSeq.RemoveAll\ndicMspMinor.RemoveAll\ndicMspSmall.RemoveAll\ndicMspObsoleted.RemoveAll\ndicMspSequence.RemoveAll\n\n'Ensure empty value(s)\nsProductVersionReal = ""\n\n'Fill the dictionary objects with a raw list of applicable patches\nGetRawBuckets Product\n\n'Sequence the MinorUpdate bucket first to ensure we get the correct new build number\nSequenceMspMinor Product\n'Sequence the 2.x NoSequence bucket\nSequenceMspNoSeq Product\n'Sequence the SmallUpdate bucket\nSequenceMspSmall Product\nLog vbTab&"Debug: 2.x style patches bucket contains "&dicMspNoSeq.Count&" patch(es) after sequencing."\nLog vbTab&"Debug: Minor Update (service pack) bucket contains "&dicMspMinor.Count&" patch(es) after sequencing."\nLog vbTab&"Debug: Small Patches bucket contains "&dicMspSmall.Count&" patch(es) after sequencing."\n\nIf NOT fViewPatch Then\n'Invoke msiexec to apply the list of identified patches\n\n'Execute baseline bucket (minor update aka service pack)\nsPatches = ""\nFor Each Key in dicMspMinor.Keys\niIndex = dicMspMinor.Item(Key)\nsPatches = sPatches&";"&arrSUpdatesAll(dicMspMinor.Item(Key),COL_FILENAME)\nNext 'Key\nIf Len(sPatches)>0 Then sReturn = ApplyPatch(Product,sPatches)\n\n'Execute the 2.x and small patches bucket\nsPatches = ""\nFor Each Key in dicMspNoSeq.Keys\niIndex = dicMspNoSeq.Item(Key)\nsPatches = sPatches&";"&arrSUpdatesAll(iIndex,COL_FILENAME)\nNext 'Key\nIf Len(sPatches)>0 Then sReturn = ApplyPatch(Product,sPatches)\nFor Each Key in dicMspSmall.Keys\niIndex = dicMspSmall.Item(Key)\nsPatches = sPatches&";"&arrSUpdatesAll(dicMspSmall.Item(Key),COL_FILENAME)\nNext 'Key\nIf Len(sPatches)>0 Then sReturn = ApplyPatch(Product,sPatches)\nElse\n\nEnd If 'fViewPatch\n\nEnd If 'IsOfficeProduct\nNext 'Product\n\nEnd Sub 'ApplyPatches\n'=======================================================================================================\n\n'The arrUpdateLocations array is sorted and validated by now\n'It cannot be empty since it does at least contain the current directory.\n'As local folders are already sorted to the start of the array this will\n'ensure that local .msp files are favored over network patches.\n'Purpose if this routine is to have a reference and all metadata of\n'available .msp files.\n'This will be used as base to pre-sequence the applicable patches.\nSub CollectSUpdates\n\nDim File,Folder,SumInfo\nDim sKey,sPatchTargets,sFilter\nDim i,iCnt\n\nOn Error Resume Next\n\nSet dicSUpdatesAll = CreateObject("Scripting.Dictionary")\n\n'If NOT sApplyPatch = "" Then CheckPatchExtract\nCheckPatchExtract\n\niCnt = 0\n'Collect a reference list of all patches\nFor Each Folder in arrUpdateLocations\nIf fCscript Then wscript.echo vbTab&"Collect files from "&Folder\nFor Each File in oFso.GetFolder(Folder).Files\nIf LCase(Right(File.Name,4)) = ".msp" Then\nIf LCase(File.Path)=LCase(sApplyPatch) OR sApplyPatch = "" OR (LCase(oFso.GetFolder(Folder).Path)&"\\" = LCase(sWICacheDir)) Then\nSet SumInfo = Nothing\nSet SumInfo = oMsi.SummaryInformation(File.Path,MSIOPENDATABASEMODE_READONLY)\nsKey = "" : sPatchTargets = ""\nsKey = SumInfo.Property(PID_REVNUMBER)\nsPatchTargets = SumInfo.Property(PID_TEMPLATE)\nIf Not dicSUpdatesAll.Exists(sKey) Then\n'Found new patch\nIf IsOfficePatch(sPatchTargets) Then\ndicSUpdatesAll.Add sKey,File.Path\nElse\nIf NOT LCase(oFso.GetFolder(Folder).Path)&"\\" = LCase(sWICacheDir) Then\nsTmp = "Not an Office patch. Excluding patch "&File.Path&" from detection sequence."\nLog vbTab&"Debug: "&sTmp\nEnd If\nEnd If\nElse\nIf NOT Left(File.Path,Len(sWICacheDir)) = sWICacheDir Then\nsTmp = "Excluding patch "&File.Path&" from detection sequence as duplicate of " & dicSUpdatesAll.Item(sKey)\nLog vbTab&"Debug: "&sTmp\nLogSummary "Note:",vbTab&sTmp\nEnd If\nEnd If 'dicSUpdatesAll.Exists\nEnd If\nEnd If '.msp\nNext 'File\nLog "Debug: Found " & dicSUpdatesAll.Count - iCnt & " unique patch(es) in folder " & Folder\nIf fCscript Then wscript.echo vbTab&"Found " & dicSUpdatesAll.Count - iCnt & " unique patch(es) in folder " & Folder\niCnt = dicSUpdatesAll.Count\nNext 'Folder\n\nIf dicSUpdatesAll.Count = 0 Then Exit Sub\n\n'Initialize the patch details array\nReDim arrSUpdatesAll(dicSupdatesAll.Count-1,COL_MAX)\n\n'Collect all patch details\ni = 0\nIf fCscript Then wscript.echo vbTab&"Obtaining patch details for identified patches"\nFor Each key in dicSUpdatesAll.Keys\nAddPatchDetails dicSUpdatesAll.Item(key),i\ni=i+1\nNext 'key\n\nfUpdatesCollected = True\n\nEnd Sub 'CollectSUpdate\n'=======================================================================================================\n\nSub AddPatchDetails(sMspPath,iIndex)\n\nDim SumInfo,Msp,Record\n\nDim sSiTmp,sChar,sTitle\n\nDim i,iSiCnt\n\nDim qView\n\nDim arrTitle,arrSi\n\nOn Error Resume Next\n\n'Defaults\n'\u2014\u2014-\nSet Record = Nothing\narrSUpdatesAll(iIndex,COL_APPLIEDCNT) = ""\narrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT) = ""\narrSUpdatesAll(iIndex,COL_APPLICABLECNT) = ""\narrSUpdatesAll(iIndex,COL_NOQALBASELINECNT) = ""\n\n'SummaryInformation\n'\u2014\u2014\u2014\u2014\u2014\u2014\nSet SumInfo = oMsi.SummaryInformation(sMspPath,0)\narrSUpdatesAll(iIndex,COL_FILENAME) = sMspPath 'Msp FileName\narrSUpdatesAll(iIndex,COL_TARGETS) = SumInfo.Property(PID_TEMPLATE) 'PatchTargets\narrSUpdatesAll(iIndex,COL_PATCHCODE) = SumInfo.Property(PID_REVNUMBER) 'PatchCode\nIf Len(arrSUpdatesAll(iIndex,COL_PATCHCODE))>LEN_GUID Then\narrSUpdatesAll(iIndex,COL_SUPERSEDES)=Mid(arrSUpdatesAll(iIndex,COL_PATCHCODE),LEN_GUID+1)\narrSUpdatesAll(iIndex,COL_PATCHCODE)=Left(arrSUpdatesAll(iIndex,COL_PATCHCODE),LEN_GUID)\nEnd If\n\n'PatchXml\n'\u2014\u2014-\narrSUpdatesAll(iIndex,COL_PATCHXML) = oMsi.ExtractPatchXMLData(arrSUpdatesAll(iIndex,COL_FILENAME))\n\n'Other\n'\u2014-\narrSUpdatesAll(iIndex,COL_REFCNT) = 0\n\n'Patch tables\n'\u2014\u2014\u2014\u2014\nSet Msp = oMsi.OpenDatabase(sMspPath,MSIOPENDATABASEMODE_PATCHFILE)\n\nIf Not Err = 0 Then\n'An error at this points indicates a severe issue\nsTmp = "Failed to read data from .msp package "&sMspPath\nLog vbTab&"Debug: "&sTmp\nLogSummary "Error:",vbTab&sTmp\nExit Sub\nEnd If\narrSUpdatesAll(iIndex,COL_PATCHTABLES) = GetDatabaseTables(Msp)\n\nIf InStr(arrSUpdatesAll(iIndex,COL_PATCHTABLES),"MsiPatchMetadata")>0 Then\n'KB\nSet qView = Msp.OpenView("SELECT `Property`,`Value` FROM MsiPatchMetadata WHERE `Property`='KBArticle Number'")\nqView.Execute : Set Record = qView.Fetch()\nIf Not Record Is Nothing Then\narrSUpdatesAll(iIndex,COL_KB) = UCase(Record.StringData(2))\narrSUpdatesAll(iIndex,COL_KB) = Replace(arrSUpdatesAll(iIndex,COL_KB),"KB","")\nElse\narrSUpdatesAll(iIndex,COL_KB) = ""\nEnd If\nqView.Close\n'StdPackageName\nSet qView = Msp.OpenView("SELECT `Property`,`Value` FROM MsiPatchMetadata WHERE `Property`='StdPackageName'")\nqView.Execute : Set Record = qView.Fetch()\nIf Not Record Is Nothing Then\narrSUpdatesAll(iIndex,COL_PACKAGE) = Record.StringData(2)\nElse\narrSUpdatesAll(iIndex,COL_PACKAGE) = ""\nEnd If\nqView.Close\n'Release (required for SP uninstall)\nSet qView = Msp.OpenView("SELECT `Property`,`Value` FROM MsiPatchMetadata WHERE `Property`='Release'")\nqView.Execute : Set Record = qView.Fetch()\nIf Not Record Is Nothing Then\narrSUpdatesAll(iIndex,COL_RELEASE) = Record.StringData(2)\nElse\narrSUpdatesAll(iIndex,COL_RELEASE) = ""\nEnd If\nqView.Close\nElse\narrSUpdatesAll(iIndex,COL_KB) = ""\narrSUpdatesAll(iIndex,COL_PACKAGE) = ""\narrSUpdatesAll(iIndex,COL_RELEASE) = ""\nEnd If\n\nIf arrSUpdatesAll(iIndex,COL_KB) = "" Then\n'Scan the SummaryInformation data for the KB\nFor iSiCnt = 1 To 2\nSelect Case iSiCnt\nCase 1\narrSi = Split(SumInfo.Property(PID_SUBJECT),";")\nCase 2\narrSi = Split(SumInfo.Property(PID_TITLE),";")\nEnd Select\n\nIf IsArray(arrSi) Then\nFor Each sTitle in arrSi\nsSiTmp = ""\nsSiTmp = Replace(UCase(sTitle)," ","")\nIf InStr(sSiTmp,"KB")>0 Then\n'Strip the KB\nsSiTmp = Mid(sSiTmp,InStr(sSiTmp,"KB")+2)\nFor i = 1 To Len(sSiTmp)\nsChar = ""\nsChar = Mid(sSiTmp,i,1)\nIf (Asc(sChar) >= 48 AND Asc(sChar) <= 57) Then arrSUpdatesAll(iIndex,COL_KB)=arrSUpdatesAll(iIndex,COL_KB)&sChar\nNext 'i\n'Ensure a valid length\nIf Len(arrSUpdatesAll(iIndex,COL_KB))<5 Then arrSUpdatesAll(iIndex,COL_KB)="" Else Exit For\nEnd If\nNext\nIf Len(arrSUpdatesAll(iIndex,COL_KB))>4 Then Exit For\nEnd If 'IsArray(arrSi)\nNext 'iSiCnt\nEnd If\n\n'PatchSequence & PatchFamily\nIf InStr(arrSUpdatesAll(iIndex,COL_PATCHTABLES),"MsiPatchSequence")>0 Then\nSet qView = Msp.OpenView("SELECT `PatchFamily`,`Sequence` FROM MsiPatchSequence")\nqView.Execute : Set Record = qView.Fetch()\nIf Not Record Is Nothing Then\nDo Until Record Is Nothing\narrSUpdatesAll(iIndex,COL_FAMILY) = arrSUpdatesAll(iIndex,COL_FAMILY)&";"&Record.StringData(1)\narrSUpdatesAll(iIndex,COL_SEQUENCE) = arrSUpdatesAll(iIndex,COL_SEQUENCE)&";"&Record.StringData(2)\nSet Record = qView.Fetch()\nLoop\narrSUpdatesAll(iIndex,COL_FAMILY) = Mid(arrSUpdatesAll(iIndex,COL_FAMILY),2)\narrSUpdatesAll(iIndex,COL_SEQUENCE) = Mid(arrSUpdatesAll(iIndex,COL_SEQUENCE),2)\nElse\narrSUpdatesAll(iIndex,COL_FAMILY) = ""\narrSUpdatesAll(iIndex,COL_SEQUENCE) = "0"\nEnd If\nqView.Close\nElse\narrSUpdatesAll(iIndex,COL_FAMILY) = ""\narrSUpdatesAll(iIndex,COL_SEQUENCE) = "0"\nEnd If\n\narrTitle = Split(SumInfo.Property(PID_TITLE),";")\nIf UBound(arrTitle)>0 Then\nIf arrSUpdatesAll(iIndex,COL_FAMILY)="" Then arrSUpdatesAll(iIndex,COL_FAMILY) = arrTitle(1)\nIf arrSUpdatesAll(iIndex,COL_PACKAGE)= "" Then arrSUpdatesAll(iIndex,COL_PACKAGE) = arrTitle(1)\nEnd If\n\n'Exception handler for OCT patches\nIf arrSUpdatesAll(iIndex,COL_FAMILY) = "SetupCustomizationFile" Then\narrSUpdatesAll(iIndex,COL_KB) = "n\/a (SetupCustomizationFile)"\narrSUpdatesAll(iIndex,COL_PACKAGE) = "OCT"\nIf IsBaselineRequired("",arrSUpdatesAll(iIndex,COL_PATCHXML)) Then _\nLogSummary "Important Note:",sMspPath&" is a customization patch based on the original release of the OCT. A more recent OCT version is available from http:\/\/www.microsoft.com\/downloads\/details.aspx?displaylang=en&FamilyID=73d955c0-da87-4bc2-bbf6-260e700519a8″"\nEnd If\n\nEnd Sub 'AddPatchDetails\n'=======================================================================================================\n\n'This function parses all available patches and \n'fills the unsequenced buckets for the given Product(Code)\n'Already Installed patches are excluded here\nSub GetRawBuckets(sProductCode)\n\nDim PatchList,Patch\n\nDim sAppliedPatches,sApplicablePatches,sProductVersion,sDetectedVersion\n\nDim iBucket,iIndex\n\nDim fSkipRealDetection, fIsWICached\n\nOn Error Resume Next\n\n'Get installed patches\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\nSet PatchList = oMsi.PatchesEx(sProductCode,USERSID_NULL,MSIINSTALLCONTEXT_MACHINE,MSIPATCHSTATE_ALL)\nsAppliedPatches = ""\nFor Each Patch in PatchList\nsAppliedPatches = sAppliedPatches & ";" & Patch.PatchCode\nNext 'Patch\nfSkipRealDetection = False\nIf Not Err=0 Then fSkipRealDetection = True\n\n'Sort the patches based on their bucket\nFor iIndex = 0 To UBound(arrSUpdatesAll)\n'Honor the fExcludeCache and fIncludeOctCache flag\nfIsWICached = False\nIf Len(arrSUpdatesAll(iIndex,COL_FILENAME)) > Len(sWICacheDir) Then\nfIsWICached = (LCase(Left(arrSUpdatesAll(iIndex,COL_FILENAME),Len(sWICacheDir))) = LCase(sWICacheDir))\nEnd If\nIf ( (NOT fExcludeCache) OR (NOT fIsWICached) ) AND _\nNOT ( (arrSUpdatesAll(iIndex,COL_FAMILY)="SetupCustomizationFile") AND (fIsWICached) AND (NOT fIncludeOctCache) ) Then\n'Exclude patches that do\n' - not target the product\n' - are already applied\nIf (InStr(arrSUpdatesAll(iIndex,COL_TARGETS),sProductCode)>0) Then\n'Update reference counter\narrSUpdatesAll(iIndex,COL_REFCNT) = arrSUpdatesAll(iIndex,COL_REFCNT)+1\nIf (NOT InStr(sAppliedPatches,arrSUpdatesAll(iIndex,COL_PATCHCODE))>0) Then\n'Patch targets the current product and is not applied\nSelect Case GetMspBucket(sProductCode,iIndex)\nCase MSP_NOSEQ\ndicMspNoSeq.Add arrSUpdatesAll(iIndex,COL_PATCHCODE),iIndex\nCase MSP_MINOR\ndicMspMinor.Add arrSUpdatesAll(iIndex,COL_PATCHCODE),iIndex\nCase MSP_SMALL\ndicMspSmall.Add arrSUpdatesAll(iIndex,COL_PATCHCODE),iIndex\nCase Else\nEnd Select\nElse\nIf NOT fIsWICached Then\n'Update reference counter\narrSUpdatesAll(iIndex,COL_APPLIEDCNT) = arrSUpdatesAll(iIndex,COL_APPLIEDCNT)&sProductCode&";"\nsTmp = "Patch KB "&arrSUpdatesAll(iIndex,COL_KB)&" is already installed for this product."& _\n" Patch details: "&arrSUpdatesAll(iIndex,COL_PATCHCODE)&", "&arrSUpdatesAll(iIndex,COL_PACKAGE)&", "&arrSUpdatesAll(iIndex,COL_FILENAME)\nLog vbTab&"Debug: "&sTmp\nLogSummary sProductCode,vbTab&sTmp\nEnd If\nEnd If\nElse\nIf NOT fIsWICached Then\nsTmp = "Patch KB "&arrSUpdatesAll(iIndex,COL_KB)&" ("&arrSUpdatesAll(iIndex,COL_FILENAME)&") does not target this product."\nLog vbTab&"Debug: "&sTmp\nEnd If\nEnd If\nElse\nIf fExcludeCache Then sTmp="ExcludeCache=True" Else sTmp="IncludeOctCache=False"\nIf (InStr(arrSUpdatesAll(iIndex,COL_TARGETS),sProductCode)>0) Then _\nLog vbTab&"Debug: Excluding patch per '"&sTmp&"' filter. "&arrSUpdatesAll(iIndex,COL_PATCHCODE)&", "&arrSUpdatesAll(iIndex,COL_KB)&", "&arrSUpdatesAll(iIndex,COL_PACKAGE)&", "&arrSUpdatesAll(iIndex,COL_FILENAME)\nEnd If 'fExcludeCache\nNext 'iIndex\n\n'Validate integrity of the registered ProductVersion (build) as the sequencing\n'logic relies on the correctness of this value.\nIf NOT fSkipRealDetection Then\nsProductVersion = oMsi.ProductInfo(sProductCode,"VersionString")\nsDetectedVersion = GetRealBuildVersion(sAppliedPatches,sProductCode)\nIf NOT sProductVersion = sDetectedVersion Then\nsTmp = vbTab&"Error: Registered build version does not match detected build version. Registered build: "&sProductVersion&". Detected build: "&sDetectedVersion\nIf fDetectOnly Then\nsTmp = sTmp & ". Registered build would be corrected to "&sDetectedVersion\nElse\nsTmp = sTmp & ". Updated registered build to new value "&sDetectedVersion\nUpdateProductVersion sProductCode,sDetectedVersion\nEnd If\nLog sTmp\nLogSummary sProductCode,sTmp\nEnd If\nEnd If\n\nEnd Sub 'GetRawBuckets\n'=======================================================================================================\n\nFunction GetMspBucket(sProductCode,iIndex)\n\nOn Error Resume Next\n\n'Defaults\nGetMspBucket = MSP_NOSEQ 'Default to 2.x NoSequence bucket\n\n'Check if it's a 3.x type patch which has sequence information\nIf arrSUpdatesAll(iIndex,COL_SEQUENCE) = "0" Then\n'This is a 2.x patch. Only continue if it's a service pack\nIf NOT IsMinorUpdate(sProductCode,arrSUpdatesAll(iIndex,COL_PATCHXML)) Then Exit Function\nEnd If\n\n'Check if it's a "Minor Upgrade" aka "Service Pack" vs. as "Small Update"\nIf IsMinorUpdate(sProductCode,arrSUpdatesAll(iIndex,COL_PATCHXML)) Then GetMspBucket = MSP_MINOR Else GetMspBucket = MSP_SMALL\n\nEnd Function 'GetMspBucket\n'=======================================================================================================\n\n'Sequence the Minor Update (service pack) bucket\n'The logic relies on the Office specific assumption that a service pack:\n'- is cumulative\n'- always uses "Equals" as baseline verification \nSub SequenceMspMinor(sProductCode)\n\nDim Key,Patch,Sequences,Seq\n\nDim sProductVersion,sProductVersionMax,sMspApplicable,sFamily,sSeq,sErr\n\nDim iCntBld,iCntMsp,iIndex\n\nDim fSeqFound,fHihgerBaselineExists\n\nDim arrMspUpdatedVersions,arrMspSuperseded,dicMspUpdatedVersion,arrErr\n\nOn Error Resume Next\n\nfSeqFound = False\nsMspApplicable = ""\nSet dicMspUpdatedVersion = CreateObject("Scripting.Dictionary")\n\n'Get the current product build\nsProductVersion = sProductVersionReal\nsProductVersionNew = sProductVersion\n\n'Get the updated build versions. Sorted descending\n'This call will already filter out superseded patches\narrMspUpdatedVersions = GetMspUpdatedVersion(sProductCode,dicMspUpdatedVersion)\n\n'Check if there's an updated version available\nfHihgerBaselineExists = (UBound(arrMspUpdatedVersions)> -1)\n\n'Iterate the patches if we have a higher baseline than the current\nIf fHihgerBaselineExists Then\nsProductVersionMax =arrMspUpdatedVersions(0)\n'Find applicable patch sequence\nFor iCntBld = 0 To UBound(arrMspUpdatedVersions)\nFor Each Key in dicMspMinor.Keys\niIndex = dicMspMinor.Item(Key)\nIf IsValidVersion(sProductCode,arrSUpdatesAll(iIndex,COL_PATCHXML),sProductVersionNew,sErr) Then\n'Found new baseline. Add patch as applicable\n'Remember new baseline\nsProductVersionNew = dicMspUpdatedVersion.Item(iIndex)\nfHihgerBaselineExists = (sProductVersionMax>sProductVersionNew)\narrErr = Split(sErr,";",2)\n'Update reference counter\narrSUpdatesAll(iIndex,COL_APPLICABLECNT) = arrSUpdatesAll(iIndex,COL_APPLICABLECNT)&sProductCode&";"\nsTmp = "Found applicable service pack patch to update build from "&arrErr(1)&" to build "&sProductVersionNew&" : KB "&arrSUpdatesAll(iIndex,COL_KB)& _\n", "&arrSUpdatesAll(iIndex,COL_PATCHCODE)&", "&arrSUpdatesAll(iIndex,COL_PACKAGE)&", "&arrSUpdatesAll(iIndex,COL_FILENAME)\nsMspApplicable = sMspApplicable&";"&Key\nLog vbTab&"Debug: "&sTmp\nLogSummary sProductCode,vbTab&sTmp\nExit For\nEnd If\nNext 'Key\nIf NOT fHihgerBaselineExists Then Exit For\nNext 'iCntBld\nEnd If 'fHihgerBaselineExists\n\nFor Each Key in dicMspMinor.Keys\nIf NOT InStr(sMspApplicable,Key)>0 Then\n'patch excluded because higher baseline has been found\niIndex = dicMspMinor.Item(Key)\n'Update reference counter\narrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT) = arrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT)&sProductCode&";"\nsTmp = "Excluding patch KB "&arrSUpdatesAll(iIndex,COL_KB)&" because it's superseded by a scheduled service pack installation."& _\n" Patch details: "&arrSUpdatesAll(iIndex,COL_PATCHCODE)&", "&arrSUpdatesAll(iIndex,COL_PACKAGE)&", "&arrSUpdatesAll(iIndex,COL_FILENAME)\nIf dicMspMinor.Exists(Key) Then dicMspMinor.Remove Key\nLog vbTab&"Debug: "&sTmp\nIf (NOT Left(arrSUpdatesAll(iIndex,COL_FILENAME),Len(sWICacheDir)) = sWICacheDir) Then LogSummary sProductCode,vbTab&sTmp\nEnd If\nNext 'Key\n\n'Add patch family sequence data if available\nFor Each Key in dicMspMinor.Keys\niIndex = dicMspMinor.Item(Key)\nAddSequenceData arrSUpdatesAll(iIndex,COL_PATCHXML)\nNext 'Key\n\n'Add obsoletion data\nFor Each Key in dicMspMinor.Keys\nSet arrMspSuperseded = Nothing\niIndex = dicMspMinor.Item(Key)\narrMspSuperseded = Split(arrSUpdatesAll(iIndex,COL_SUPERSEDES),";")\nFor Each Patch in arrMspSuperseded\nIf NOT dicMspObsoleted.Exists(Patch) Then dicMspObsoleted.Add Patch,Patch\nNext 'Patch\nNext 'Key\n\nEnd Sub 'SequenceMspMinor\n'=======================================================================================================\n\n'Sequence the bucket with 2.x NoSequence patches\n'Superseded (obsoleted) patches are filtered out \nSub SequenceMspNoSeq(sProductCode)\n\nDim Key,Patch\n\nDim sErr\n\nDim iIndex\n\nDim arrMspSuperseded,arrErr\n\nOn Error Resume Next\n\n'Build list of obsoleted patches\nFor Each Key in dicMspNoSeq.Keys\nSet arrMspSuperseded = Nothing\niIndex = dicMspNoSeq.Item(Key)\narrMspSuperseded = Split(arrSUpdatesAll(iIndex,COL_SUPERSEDES),";")\nFor Each Patch in arrMspSuperseded\nIf NOT dicMspObsoleted.Exists(Patch) Then dicMspObsoleted.Add Patch,Patch\nNext 'Patch\nNext 'Key\n\nFor Each Key in dicMspNoSeq.Keys\niIndex = dicMspNoSeq.Item(Key)\n'Remove patch if obsolete\nIf dicMspObsoleted.Exists(Key) Then\n'Update reference counter\narrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT) = arrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT)&sProductCode&";"\nIf NOT Left(arrSUpdatesAll(iIndex,COL_FILENAME),Len(sWICacheDir)) = sWICacheDir Then\nsTmp = "Patch KB "&arrSUpdatesAll(iIndex,COL_KB)&" is obsoleted by an already installed patch."& _\n" Patch details: "&arrSUpdatesAll(iIndex,COL_PATCHCODE)&". "&arrSUpdatesAll(iIndex,COL_PACKAGE)&", "&arrSUpdatesAll(iIndex,COL_FILENAME)\nLog vbTab&"Debug: "&sTmp\nLogSummary sProductCode,vbTab&sTmp\nEnd If\nIf dicMspNoSeq.Exists(Key) Then dicMspNoSeq.Remove Key\nEnd If\n'Check if patch is applicable\nIf IsValidVersion(sProductCode,arrSUpdatesAll(iIndex,COL_PATCHXML),sProductVersionNew,sErr) Then\narrErr = Split(sErr,";",2)\n'Update reference counter\narrSUpdatesAll(iIndex,COL_APPLICABLECNT) = arrSUpdatesAll(iIndex,COL_APPLICABLECNT)&sProductCode&";"\nsTmp = "Found applicable 2.x style patch: KB "&arrSUpdatesAll(iIndex,COL_KB)&", "&arrSUpdatesAll(iIndex,COL_PATCHCODE)&", "&arrSUpdatesAll(iIndex,COL_PACKAGE)&", "&arrSUpdatesAll(iIndex,COL_FILENAME)& _\nvbCrLf&vbTab&vbTab&"Applicable baseline: " & arrErr(1)\nElse\narrErr = Split(sErr,";",2)\n'Update reference counter\narrSUpdatesAll(iIndex,COL_NOQALBASELINECNT) = arrSUpdatesAll(iIndex,COL_NOQALBASELINECNT)&sProductCode&";"\n'Cache valid baselines\narrSUpdatesAll(iIndex,COL_PATCHBASELINES) = arrErr(1)\nsTmp = "No valid baseline available for this 2.x style patch KB "&arrSUpdatesAll(iIndex,COL_KB)&"."& _\n" Patch details: "&arrSUpdatesAll(iIndex,COL_PATCHCODE)&", "&arrSUpdatesAll(iIndex,COL_PACKAGE)&", "&arrSUpdatesAll(iIndex,COL_FILENAME)& _\nvbCrLf&vbTab&vbTab&"Patch baseline(s): " & arrErr(1)& ". Installed baseline: " &sProductVersionNew\nIf dicMspNoSeq.Exists(Key) Then dicMspNoSeq.Remove Key\nEnd If 'IsValidVersion\nLog vbTab&"Debug: "&sTmp\nLogSummary sProductCode,vbTab&sTmp\nNext 'Key\n\nEnd Sub 'SequenceMspNoSeq\n'=======================================================================================================\n\nSub SequenceMspSmall(sProductCode)\n\nDim Key,Element,Elements\n\nDim sMspApplicable,sFamily,sSeq,sErr\n\nDim iIndex\n\nDim fApplicable\n\nDim arrErr\n\nOn Error Resume Next\n\nsErr = ""\n'Determine current patch family sequence\nFor Each Key in dicMspSmall.Keys\nfApplicable = False\niIndex = dicMspSmall.Item(Key)\n'Load baselines the patch can be applied to\n'Exclude patches that do not target the current baseline\nIf IsValidVersion(sProductCode,arrSUpdatesAll(iIndex,COL_PATCHXML),sProductVersionNew,sErr) Then\nAddSequenceData(arrSUpdatesAll(iIndex,COL_PATCHXML))\nElse\narrErr = Split(sErr,";",2)\nIf arrErr(0) = "1" Then\n'Patch is superseded by the installed baseline (service pack)\n'Update reference counter\narrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT) = arrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT)&sProductCode&";"\nsTmp = "Patch KB "&arrSUpdatesAll(iIndex,COL_KB)&" is superseded by an already installed service pack."& _\n" Patch details: "&arrSUpdatesAll(iIndex,COL_PATCHCODE)&", "&arrSUpdatesAll(iIndex,COL_PACKAGE)&", "&arrSUpdatesAll(iIndex,COL_FILENAME)& _\nvbCrLf&vbTab&vbTab&"Patch baseline(s): " & arrErr(1)& ". Installed baseline: " &sProductVersionNew\nElse\n'Patch excluded because it does not apply to the available baseline\n'Cache valid baselines\narrSUpdatesAll(iIndex,COL_PATCHBASELINES) = arrErr(1)\n'Update reference counter\narrSUpdatesAll(iIndex,COL_NOQALBASELINECNT) = arrSUpdatesAll(iIndex,COL_NOQALBASELINECNT)&sProductCode&";"\nsTmp = "No valid baseline available for patch KB "&arrSUpdatesAll(iIndex,COL_KB)&"."& _\n" Patch details: "&arrSUpdatesAll(iIndex,COL_PATCHCODE)&", "&arrSUpdatesAll(iIndex,COL_PACKAGE)&", "&arrSUpdatesAll(iIndex,COL_FILENAME)& _\nvbCrLf&vbTab&vbTab&"Patch baseline(s): " & arrErr(1)& ". Installed baseline: " &sProductVersionNew\nEnd If\nLog vbTab&"Debug: "&sTmp\nIf (NOT Left(arrSUpdatesAll(iIndex,COL_FILENAME),Len(sWICacheDir)) = sWICacheDir) Then LogSummary sProductCode,vbTab&sTmp\nIf dicMspSmall.Exists(Key) Then dicMspSmall.Remove Key\nEnd If\nNext 'Key\n\n'Determine applicable patches\nFor Each Key in dicMspSmall.Keys\nfApplicable = False\niIndex = dicMspSmall.Item(Key)\nXmlDoc.LoadXml(arrSUpdatesAll(iIndex,COL_PATCHXML))\nSet Elements = XmlDoc.GetElementsByTagName("SequenceData")\nFor Each Element in Elements\nsFamily="" : sSeq=""\nsFamily = Element.selectSingleNode("PatchFamily").text\nsSeq = Element.selectSingleNode("Sequence").text\nsTmp = "Found applicable patch with sequence version "&sSeq&" : KB "&arrSUpdatesAll(iIndex,COL_KB)&", "&arrSUpdatesAll(iIndex,COL_PATCHCODE)&", "&arrSUpdatesAll(iIndex,COL_PACKAGE)&", "&arrSUpdatesAll(iIndex,COL_FILENAME)\nIf dicMspSequence.Exists(sFamily) Then\nIf sSeq = dicMspSequence.Item(sFamily) Then\nfApplicable = True\nEnd If\nElse\nfApplicable = True\nEnd If\nNext 'Element\n\nIf NOT fApplicable Then\n'patch excluded because higher family patch available\n'Update reference counter\narrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT) = arrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT)&sProductCode&";"\nsTmp = "Patch KB "&arrSUpdatesAll(iIndex,COL_KB)&" is superseded by a later patch of the same family."& _\n" Patch details: "&arrSUpdatesAll(iIndex,COL_PATCHCODE)&", "&arrSUpdatesAll(iIndex,COL_PACKAGE)&", "&arrSUpdatesAll(iIndex,COL_FILENAME)& _\nvbCrLf&vbTab&vbTab&"Patch build: " & sSeq& ". Installed build: " &dicMspSequence.Item(sFamily)\nIf dicMspSmall.Exists(Key) Then dicMspSmall.Remove Key\nLog vbTab&"Debug: "&sTmp\nIf (NOT Left(arrSUpdatesAll(iIndex,COL_FILENAME),Len(sWICacheDir)) = sWICacheDir) Then LogSummary sProductCode,vbTab&sTmp\nElse\n'Update reference counter\narrSUpdatesAll(iIndex,COL_APPLICABLECNT) = arrSUpdatesAll(iIndex,COL_APPLICABLECNT)&sProductCode&";"\nLog vbTab&"Debug: "&sTmp\nLogSummary sProductCode,vbTab&sTmp\nEnd If\nNext 'Key\n\nEnd Sub 'SequenceMspSmall\n'=======================================================================================================\n\n'Return the updated version (build) of a minor update (service pack)\n'sorted from highest to lowest\nFunction GetMspUpdatedVersion(sProductCode,dicMspUpdatedVersion)\n\nDim Key,Element,Elements\n\nDim sVersions,sProductVersion,sProductVersionMsi,sErr\n\nDim iIndex,iArrCnt\n\nDim arrVersions,arrErr,dicTmp\n\nOn Error Resume Next\n\nSet dicTmp = CreateObject("Scripting.Dictionary")\n\n'Get the current product build\nsProductVersion = sProductVersionReal\nsProductVersionMsi = ""\nsProductVersionMsi = GetMsiProductVersion(oMsi.ProductInfo(sProductCode,"LocalPackage"))\nIf sProductVersionMsi = "" Then sProductVersionMsi = sProductVersionReal\n\n'Identify the available updated build (UpdatedVersion)\nsVersions = "" : sErr = ""\nFor Each Key in dicMspMinor.Keys\niIndex = dicMspMinor.Item(Key)\n'Don't assume we have a valid RTM build. Beta products may break the logic!\nXmlDoc.LoadXml(arrSUpdatesAll(iIndex,COL_PATCHXML))\nSet Elements = XmlDoc.GetElementsByTagName("TargetProduct")\nFor Each Element in Elements\nIf Element.selectSingleNode("TargetProductCode").text = sProductCode Then\nIf IsValidVersion(sProductCode,arrSUpdatesAll(iIndex,COL_PATCHXML),sProductVersionMsi,sErr) Then\nIf Element.selectSingleNode("UpdatedVersion").text > sProductVersion Then\nIf NOT dicTmp.Exists(iIndex) Then \ndicTmp.Add iIndex,Element.selectSingleNode("UpdatedVersion").text\nsVersions = sVersions&";"&Element.selectSingleNode("UpdatedVersion").text\nEnd If\nElse\n'patch excluded since not a higher baseline\n'Update reference counter\narrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT) = arrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT)&sProductCode&";"\nsTmp = "Service pack patch KB "&arrSUpdatesAll(iIndex,COL_KB)&" is superseded by an already installed service pack."& _\n" Patch details: "&arrSUpdatesAll(iIndex,COL_PATCHCODE)&", "&arrSUpdatesAll(iIndex,COL_PACKAGE)&", "&arrSUpdatesAll(iIndex,COL_FILENAME)& _\nvbCrLf&vbTab&vbTab&"Patch build: "&Element.selectSingleNode("UpdatedVersion").text&", Installed build: "&sProductVersion\nLog vbTab&"Debug: "&sTmp\nLogSummary sProductCode,vbTab&sTmp\nIf dicMspMinor.Exists(Key) Then dicMspMinor.Remove Key\nEnd If 'UpdatedVersion\nElse\n'Not a RTM product\narrErr = Split(sErr,";",2)\nsTmp = "No valid baseline available for service pack patch KB "&arrSUpdatesAll(iIndex,COL_KB)&". This may indicate a BETA ProductVersion."& _\n" Patch details: "&arrSUpdatesAll(iIndex,COL_PATCHCODE)&", "&arrSUpdatesAll(iIndex,COL_PACKAGE)&", "&arrSUpdatesAll(iIndex,COL_FILENAME)& _\nbCrLf&vbTab&vbTab&"Patch baseline(s): " & arrErr(1)& ". Installed baseline: " &sProductVersion\nLog vbTab&"Debug: "&sTmp\nLogSummary sProductCode,vbTab&sTmp\nEnd If 'IsValidVersion\nEnd If 'TargetProductCode\nNext 'Element\nNext 'Key\n\nIf sVersions = "" Then\nRedim arrVersions(-1)\nGetMspUpdatedVersion = arrVersions\nExit Function\nEnd If\n\n'Sort descending\narrVersions = BubbleSort(Split(Mid(sVersions,2),";"))\n\n'Build the dictionary\nFor iArrCnt = 0 To UBound(arrVersions)\nFor Each Key in dicTmp.Keys\nIf dicTmp.Item(Key)=arrVersions(iArrCnt) AND NOT dicMspUpdatedVersion.Exists(Key) Then dicMspUpdatedVersion.Add Key,dicTmp.Item(Key)\nNext 'Key\nNext 'iArrCnt\n\n'Return the sorted versions\nGetMspUpdatedVersion = arrVersions\n\nEnd Function 'GetMspUpdatedVersion\n'=======================================================================================================\n\n'Determine if a patch is applicable to the provided baseline\nFunction IsValidVersion(sProductCode,sXml,sProductVersion,sErr)\n\nDim Element,Elements,Node\n\nDim sCompType,sCompFlt,sVersion,sDelimiter,sTargets\n\nDim iCnt,iLoop,iRet\n\nDim fSuccess,fValidate\n\nDim arrLeftNum,arrRightNum\n\nOn Error Resume Next\n\nsErr = "" : sTargets = "" \nfValidate = True\nsDelimiter = Delimiter(sProductVersion)\narrLeftNum = Split(sProductVersion,sDelimiter)\n\nXmlDoc.LoadXml(sXml)\nSet Elements = XmlDoc.GetElementsByTagName("TargetProduct")\nFor Each Element in Elements\nfSuccess = False\nIf Element.selectSingleNode("TargetProductCode").text = sProductCode Then\n'Collect the compare details\nsCompType = "" : sCompFlt = "" : sVersion = ""\nSet Node = Element.selectSingleNode("TargetVersion")\nsCompType = Node.getAttribute("ComparisonType")\nsCompFlt = Node.getAttribute("ComparisonFilter")\nsVersion = Node.text\nsTargets = sTargets&";"&sVersion\nfValidate = CBool(Node.getAttribute("Validate"))\nSet arrRightNum = Nothing\narrRightNum = Split(sVersion,sDelimiter)\n\n'Set the filter setting\nSelect Case sCompFlt\nCase "None"\niLoop = -1\nCase "Major"\niLoop = 0\nCase "MajorMinor"\niLoop = 1\nCase "MajorMinorUpdate"\niLoop = 2\nCase Else\nEnd Select\n\n'Compare the version strings based on the filter\niRet = -2\nFor iCnt = 0 To iLoop\niRet = StrComp(arrLeftNum(iCnt),arrRightNum(iCnt))\nIf NOT iRet = 0 Then Exit For\nNext 'iCnt\n\n'Evaluate the compare result\nSelect Case sCompType\nCase "LessThan"\nfSuccess = (iRet = -1)\nCase "LessThanOrEqual"\nfSuccess = ((iRet = -1) OR (iRet = 0))\nCase "Equal"\nfSuccess = (iRet = 0)\nCase "GreaterThanOrEqual"\nfSuccess = ((iRet = 1) OR (iRet = 0))\nCase "GreaterThan"\nfSuccess = (iRet = 1)\nCase "None"\nfSuccess = True\nCase Else\nEnd Select\n\nIf NOT fValidate Then fSuccess = True\nIf fSuccess Then Exit For\nEnd If\nNext\n\nIf fSuccess Then sErr = iRet&";"&sVersion Else sErr = iRet&";"&Join(RemoveDuplicates(Split(Mid(sTargets,2),";")),";")\nIsValidVersion = fSuccess\n\nEnd Function 'IsValidVersion\n'=======================================================================================================\n\n'Return the tables of a given .msp file\nFunction GetDatabaseTables(MsiDb)\n\nDim ViewTables,Table\n\nDim sTables\n\nOn Error Resume Next\nsTables = ""\nSet Table = Nothing\nSet ViewTables = MsiDb.OpenView("SELECT `Name` FROM `_Tables` ORDER BY `Name`")\nViewTables.Execute\nDo\nSet Table = ViewTables.Fetch\nIf Table Is Nothing then Exit Do\nsTables = sTables&","&Table.StringData(1)\nLoop\nViewTables.Close\nIf Len(sTables)>2 Then GetDatabaseTables=Mid(sTables,2)\n\nEnd Function 'GetDatabaseTables\n'=======================================================================================================\n\n'Returns the possible build versions the patch will be compared against\nFunction MspBldTargets(sProductCode,sXml)\n\nDim Element,Elements,Node\n\nDim sBaselines\n\nOn Error Resume Next\n\nsBaselines = ""\n'Check baselines from XML\nXmlDoc.LoadXml(sXml)\nSet Elements = XmlDoc.GetElementsByTagName("TargetProduct")\nFor Each Element in Elements\nIf Element.selectSingleNode("TargetProductCode").text = sProductCode Then\nSet Node = Element.selectSingleNode("TargetVersion")\nsBaselines = sBaselines & ";"&Node.text\nEnd If\nNext\n\nIf Len(sBaselines)>1 Then sBaselines = Mid(sBaselines,2)\nMspBldTargets = sBaselines\n\nEnd Function\n'=======================================================================================================\n\n'Returns all possible build versions the patch will be compared against\nFunction GetMspBldTargets(sXml)\n\nDim Element,Elements,Node\n\nDim sBaselines\n\nOn Error Resume Next\n\nsBaselines = ""\n'Check baselines from XML\nXmlDoc.LoadXml(sXml)\nSet Elements = XmlDoc.GetElementsByTagName("TargetProduct")\nFor Each Element in Elements\nSet Node = Element.selectSingleNode("TargetVersion")\nIf NOT InStr(sBaselines,Node.text) > 0 then \nsBaselines = sBaselines & ";"&Node.text&GetSpLevel(Node.text)\nEnd If\nNext\n\nIf Len(sBaselines)>1 Then sBaselines = Mid(sBaselines,2)\nIf NOT IsBaselineRequired("",sXml) Then sBaselines = "Baselineless Patch"\nGetMspBldTargets = Replace(sBaselines,";",vbCrLf)\n\nEnd Function\n'=======================================================================================================\n\n'Returns the comparison term for the build version validation\nFunction GetComparisonType(sProductCode,sXml)\n\nDim Element,Elements,Node\n\nOn Error Resume Next\n\nXmlDoc.LoadXml(sXml)\nSet Elements = XmlDoc.GetElementsByTagName("TargetProduct")\nFor Each Element in Elements\nIf Element.selectSingleNode("TargetProductCode").text = sProductCode Then\nSet Node = Element.selectSingleNode("TargetVersion")\nGetComparisonType = Node.getAttribute("ComparisonType")\nExit For\nEnd If\nNext\n\nEnd Function 'GetComparisonType\n'=======================================================================================================\n\n'Determines from patch xml if patch requires baseline validation\nFunction IsBaselineRequired(sProductCode,sXml)\n\nDim Element,Elements,Node\n\nOn Error Resume Next\n\nXmlDoc.LoadXml(sXml)\nSet Elements = XmlDoc.GetElementsByTagName("TargetProduct")\nFor Each Element in Elements\nIf sProductCode = "" Then sProductCode = Element.selectSingleNode("TargetProductCode").text\nIf Element.selectSingleNode("TargetProductCode").text = sProductCode Then\nSet Node = Element.selectSingleNode("TargetVersion")\nIsBaselineRequired = CBool(Node.getAttribute("Validate"))\nExit For\nEnd If\nNext\n\nEnd Function 'IsBaselineRequired\n'=======================================================================================================\n\n'Determine if the patch is a minor update (service pack)\nFunction IsMinorUpdate(sProductCode,sXml)\n\nDim Element,Elements,Node,ChildNodes\n\nOn Error Resume Next\n\nXmlDoc.LoadXml(sXml)\nSet Elements = XmlDoc.GetElementsByTagName("TargetProduct")\nFor Each Element in Elements\nIf sProductCode = "" Then sProductCode = Element.selectSingleNode("TargetProductCode").text\nIf Element.selectSingleNode("TargetProductCode").text = sProductCode Then\nFor Each Node in Element.ChildNodes\nIf Node.NodeName = "UpdatedVersion" Then\nIsMinorUpdate = True\nExit Function\nEnd If\nNext 'Node\nEnd If\nNext 'Element\n\nEnd Function 'IsMinorUpdate\n'=======================================================================================================\n\n'Add patch family sequence information to the dictionary\nSub AddSequenceData(sXml)\n\nDim Element,Elements\n\nDim sFamily,sSeq\n\nOn Error Resume Next\n\nXmlDoc.LoadXml(sXml)\nSet Elements = XmlDoc.GetElementsByTagName("SequenceData")\nFor Each Element in Elements\nsFamily="" : sSeq=""\nsFamily = Element.selectSingleNode("PatchFamily").text\nsSeq = Element.selectSingleNode("Sequence").text\n'Only add to the family sequence number if it's marked to supersede earlier\nIf Element.selectSingleNode("Attributes").text = "1" Then\nIf dicMspSequence.Exists(sFamily) Then\nIf sSeq > dicMspSequence.Item(Key) Then dicMspSequence.Item(sFamily)=sSeq\nElse\ndicMspSequence.Add sFamily,sSeq\nEnd If\nEnd If 'Attributes = 1\nNext 'Element\n\nEnd Sub 'AddSequenceData\n'=======================================================================================================\n\n'Detect and remove unreferenced .msp files from\n'%windir%\\installer folder\nSub WICleanOrphans\n\nDim File,Patch,AllPatches,Product,AllProducts,oRefFilesDic\n\nDim sLocalFile,sTargetFolder,sFileErr\n\nDim iFoo\n\nDim fFoundOrphan,fMspOK,fMsiOK\n\nOn Error Resume Next\n\nsTmp = "Running CleanCache to remove unreferenced .msi, .msp files from " & sWICacheDir\nLog vbCrLf&vbCrLf&sTmp &vbCrLf& String(Len(sTmp),"-")\nIf fCscript Then wscript.echo "Checking for unreferenced files in folder "& sWICacheDir\n\nfFoundOrphan = False\nfMspOK = True\nfMsiOK = True\nsTargetFolder = sTemp & "MovedCacheFiles\\"\n\nErr.Clear\nSet oRefFilesDic = CreateObject("Scripting.Dictionary")\nIf Not Err = 0 Then Exit Sub\n\n'Collect referenced .msp files\nIf fCscript Then wscript.echo vbTab&"Scanning .msp files"\nFor iFoo = 1 To 1\nSet AllPatches = oMsi.PatchesEx("",USERSID_EVERYONE,MSIINSTALLCONTEXT_ALL,MSIPATCHSTATE_ALL)\nIf Not Err = 0 Then\nsTmp = "Error: Failed to get a complete list of all .msp files. Aborting unreferenced .msp detection."\nLog vbTab&sTmp\nLogSummary "CleanCache",vbTab&sTmp\nLog vbTab&" Source: " & Err.Source & "; Err# (Hex): " & Hex( Err ) & _\n"; Err# (Dec): " & Err & "; Description : " & Err.Description\nIf fCscript Then wscript.echo vbTab&sTmp\nErr.Clear\nfMspOK = False\nExit For\nEnd If\nFor Each Patch in AllPatches\nsLocalFile = ""\nsLocalFile = LCase(Patch.Patchproperty("LocalPackage"))\nIf NOT oRefFilesDic.Exists(sLocalFile) Then oRefFilesDic.Add sLocalFile,sLocalFile\nNext 'Patch\nIf Not Err = 0 Then\nsTmp = "Error: Unhandled error. Aborting unreferenced .msp detection."\nLog vbTab&sTmp\nLogSummary "CleanCache",vbTab&sTmp\nLog vbTab&" Source: " & Err.Source & "; Err# (Hex): " & Hex( Err ) & _\n"; Err# (Dec): " & Err & "; Description : " & Err.Description\nIf fCscript Then wscript.echo vbTab&sTmp\nErr.Clear\nfMspOK = False\nExit For\nEnd If\nNext 'iFoo\n\n'Collect referenced .msi files\nIf fCscript Then wscript.echo vbTab&"Scanning .msi files"\nFor iFoo = 1 To 1\nSet AllProducts = oMsi.ProductsEx("",USERSID_EVERYONE,MSIINSTALLCONTEXT_ALL)\nIf Not Err = 0 Then\nsTmp = "Error: Failed to get a complete list of all .msi files. Aborting unreferenced .msi detection."\nLog vbTab&sTmp\nLogSummary "CleanCache",vbTab&sTmp\nLog vbTab&" Source: " & Err.Source & "; Err# (Hex): " & Hex( Err ) & _\n"; Err# (Dec): " & Err & "; Description : " & Err.Description\nIf fCscript Then wscript.echo vbTab&sTmp\nErr.Clear\nfMsiOK = False\nExit For\nEnd If\nFor Each Product in AllProducts\nsLocalFile = ""\nsLocalFile = LCase(Product.InstallProperty("LocalPackage"))\nIf NOT oRefFilesDic.Exists(sLocalFile) Then oRefFilesDic.Add sLocalFile,sLocalFile\nNext 'Patch\nIf Not Err = 0 Then\nsTmp = "Error: Unhandled error. Aborting unreferenced .msi detection."\nLog vbTab&sTmp\nLogSummary "CleanCache",vbTab&sTmp\nLog vbTab&" Source: " & Err.Source & "; Err# (Hex): " & Hex( Err ) & _\n"; Err# (Dec): " & Err & "; Description : " & Err.Description\nIf fCscript Then wscript.echo vbTab&sTmp\nErr.Clear\nfMsiOK = False\nExit For\nEnd If\nNext 'iFoo\n\n'Move unreferenced files\nFor Each File in oFso.GetFolder(sWICacheDir).Files\nIf Not Err = 0 Then\nLog vbTab&" Source: " & Err.Source & "; Err# (Hex): " & Hex( Err ) & _\n"; Err# (Dec): " & Err & "; Description : " & Err.Description\nSelect Case Err\nCase 70\n'Permission denied. Skip this file\nsTmp = "Note: File move operation failed. Skipping file "&sFileErr\nLog vbTab&sTmp\nLogSummary "CleanCache",vbTab&sTmp\nErr.Clear\nCase Else\nsTmp = "Error: Unhandled error. Aborting unreferenced file detection."\nLog vbTab&sTmp\nLogSummary "CleanCache",vbTab&sTmp\nErr.Clear\nExit Sub\nEnd Select 'Err\nEnd If\nsFileErr = File.Name\nSelect Case LCase(Right(File.Name,4))\nCase ".msp"\nIf fMspOK Then\nIf NOT oRefFilesDic.Exists(LCase(File.Path)) Then\nfFoundOrphan = True\nIf Not oFso.FolderExists(sTargetFolder) Then oFso.CreateFolder sTargetFolder\nsTmp = "Moving unreferenced file " & File.Path &vbTab& " -> " &sTargetFolder\nIf fDetectOnly Then sTmp = "Identified unreferenced file '" & File.Path &"'. This would be moved to folder " &sTargetFolder\nLog vbTab&"Note: "&sTmp\nLogSummary "CleanCache",vbTab&sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nIf NOT fDetectOnly Then\nIf oFso.FileExists(sTargetFolder&File.Name) _ \nThen oFso.MoveFile File.Path,sTargetFolder&sTimeStamp&"_"&File.Name _\nElse oFso.MoveFile File.Path,sTargetFolder&File.Name\nEnd If 'fDetectOnly \nEnd If 'NOT oRefFilesDic.Exists\nEnd If 'fMspOK\nCase ".msi"\nIf fMsiOK Then\nIf NOT oRefFilesDic.Exists(LCase(File.Path)) Then\nfFoundOrphan = True\nIf Not oFso.FolderExists(sTargetFolder) Then oFso.CreateFolder sTargetFolder\nsTmp = "Moving unreferenced file " & File.Path &vbTab& " -> " &sTargetFolder\nIf fDetectOnly Then sTmp = "Identified unreferenced file '" & File.Path &"'. This would be moved to folder " &sTargetFolder \nLog vbTab&"Note: "&sTmp\nLogSummary "CleanCache",vbTab&sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nIf NOT fDetectOnly Then\nIf oFso.FileExists(sTargetFolder&File.Name) _ \nThen oFso.MoveFile File.Path,sTargetFolder&sTimeStamp&"_"&File.Name _\nElse oFso.MoveFile File.Path,sTargetFolder&File.Name\nEnd If 'fDetectOnly \nEnd If 'NOT oRefFilesDic.Exists\nEnd If 'fMsiOK\nCase Else\nEnd Select\nNext 'File\n\nIf NOT fFoundOrphan Then Log vbTab&"Success: No unreferenced .msp files found."\n\n'Delete the moved files in aggresive mode\nsTargetFolder = sTemp & "MovedCacheFiles"\nIf fCleanAggressive Then\nsTmp = "Deleting moved files folder "&sTargetFolder\nIf fDetectOnly Then sTmp = "Moved files folder would be deleted: "&sTargetFolder\nLog vbTab&"Note: "&sTmp\nLogSummary "CleanCache",vbTab&sTmp\nIf NOT fDetectOnly Then oFso.DeleteFolder sTargetFolder,True\nEnd If 'fCleanAggressive\n\nEnd Sub 'WICleanOrphans\n'=======================================================================================================\n\n'=======================================================================================================\n\n'Uninstall a removable patch\nSub MspRemove(sPatchCodes,sProductCodes)\n\nDim Product,Patch,oPatches,Update\nDim sPatches,sCmd,sReturn,sStateFilter,sLogFilter\nDim iFoo,iActivityCnt\nDim arrLogFilter\nDim fPatchLoop,fSupersededMode,fMatchFound\n\nDim sPatchCodeCompressed,sProductCodeCompressed,sUserSid,sGlobalConfigKey,sMspFile\nDim fForceReconcile\nDim MspDb,Record\nDim qView\n\nOn Error Resume Next\n\niActivityCnt = 0\nIf UCase(sPatchCodes) = "SUPERSEDED" Then\nsStateFilter = MSIPATCHSTATE_SUPERSEDED\nfSupersededMode = True\nsLogFilter = "superseded patches"\nElse\nsStateFilter = MSIPATCHSTATE_ALL\nfSupersededMode = False\narrLogFilter = Split(sPatchCodes,";")\nsLogFilter = ""\nFor Each Patch in arrLogFilter\nIf InStr(Patch,"{")>0 Then sLogFilter = sLogFilter&";"&Patch\nNext 'Patch\nSet Patch = Nothing\nIf NOT sLogFilter = "" Then sLogFilter="patch(es) "&Mid(sLogFilter,2)\nEnd If\n\n'Loop all products\nFor Each Product In oMsi.Products\nIf IsOfficeProduct (Product) Then\nIf InStr(sProductCodes,Product)>0 OR sProductCodes = "" Then\nFor iFoo = 1 To 1\nDo \nfPatchLoop = False\nfMatchFound = False\nLog "Scanning "&Product&" - "&oMsi.ProductInfo(Product,"ProductName")&" - for "&sLogFilter\nSet oPatches = oMsi.PatchesEx(Product,USERSID_NULL,MSIINSTALLCONTEXT_MACHINE,sStateFilter)\nIf Not Err = 0 Then\nErr.Clear\nLog vbCrLf&" Failed to retrieve list of patches"\nIf fCscript Then wscript.echo vbTab&" Failed to retrieve list of patches"\nExit For 'iFoo\nEnd If\nFor Each Patch in oPatches\nIf InStr(sPatchCodes,Patch.PatchCode)>0 OR fSupersededMode Then\nfForceReconcile = False\nsMspFile = Patch.PatchProperty("LocalPackage")\niActivityCnt = iActivityCnt + 1\nsCmd = "msiexec.exe \/i " & Product & _\n" MSIPATCHREMOVE="&Patch.PatchCode& _\n" REBOOT=ReallySuppress" & _\n" \/qb-" & _\n" \/l*v+ %temp%\\"&Product&"_"&Patch.PatchCode&"_MspRemove.log"\nIf Patch.PatchProperty("Uninstallable") = "1" Then\nfMatchFound = True\nsTmp = "Uninstalling patch " & Patch.PatchCode&" - "&Patch.PatchProperty("DisplayName")\nIf fDetectOnly Then\nsTmp = "Uninstall attempt possible to remove patch " & Patch.PatchCode&" - "&Patch.PatchProperty("DisplayName")\nEnd If 'fDetectOnly\nLog vbTab&"Note: "&sTmp\nLogSummary Product,vbTab&sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nIf NOT fDetectOnly Then \nLog vbTab&"Debug: calling msiexec with '"&sCmd&"'"\n'Execute the patch uninstall\nsReturn = CStr(oWShell.Run(sCmd, 0, True))\nfRebootRequired = fRebootRequired OR (sReturn = "3010")\nsTmp = "Msiexec patch removal returned: " & sReturn &" "& MsiexecRetval(sReturn)\nLog vbTab&"Debug: "& sTmp\nLogSummary Product,vbTab&sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nIf NOT (sReturn="0" OR sReturn="3010") AND oFso.FileExists(sMspFile) AND fForceRemovePatch Then fForceReconcile = True\nEnd If 'NOT fDetectOnly\nsPatches = sPatches & Patch.PatchCode & ";"\nElse\nIf fForceRemovePatch AND NOT fDetectOnly Then\nfMatchFound = True\nsTmp = "Attmpting forced uninstall of patch " & Patch.PatchCode&" - "&Patch.PatchProperty("DisplayName")\nLog vbTab&"Note: "&sTmp\nLogSummary Product,vbTab&sTmp\n'A) Tweak registry flag\n'Fill variables\nsPatchCodeCompressed = GetCompressedGuid(Patch.PatchCode)\nsProductCodeCompressed = GetCompressedGuid(Patch.ProductCode)\nsUserSid = Patch.UserSid : If sUserSid = "" Then sUserSid = "S-1-5-18\\" Else sUserSid = sUserSid & "\\"\nsGlobalConfigKey = REG_GLOBALCONFIG & sUserSid & "Products\\" & sProductCodeCompressed & "\\Patches\\" \noFso.GetFile(sMspFile).Attributes = 0\nIf RegValExists(HKLM,sGlobalConfigKey&sPatchCodeCompressed,"Uninstallable") Then\noReg.SetDWordValue HKLM,sGlobalConfigKey&sPatchCodeCompressed,"Uninstallable",1\n'B) Tweak cached .msp\nTweakDatabase(sMspFile)\n'Call msiexec to uninstall patch\nLog vbTab&"Debug: calling msiexec with '"&sCmd&"'"\n'Execute the patch uninstall\nsReturn = CStr(oWShell.Run(sCmd, 0, True))\nfRebootRequired = fRebootRequired OR (sReturn = "3010")\nsTmp = "Msiexec patch removal returned: " & sReturn &" "& MsiexecRetval(sReturn)\nLog vbTab&"Debug: "& sTmp\nLogSummary Product,vbTab&sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nIf NOT (sReturn="0" OR sReturn="3010") Then fForceReconcile = True\nElse\nfForceReconcile = True\nEnd If\nElse\nsTmp = "Patch " & Patch.PatchCode&" - "&Patch.PatchProperty("DisplayName")&" - is not uninstallable"\nLog vbTab&"Note: "&sTmp\nLogSummary Product,vbTab&sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nEnd If 'fForceRemovePatch\nEnd If 'Patch Uninstallable\n\nIf fForceReconcile Then \nsTmp = "Msiexec based uninstall not possible. Unregistering patch "\nsTmp = sTmp & Patch.PatchCode&" - "&Patch.PatchProperty("DisplayName")\nLog vbTab&"Note: "&sTmp\nLogSummary Product,vbTab&sTmp\nIf oFso.FileExists(sMspFile) Then oFso.MoveFile sMspFile,sTemp&oFso.GetFileName(sMspFile)\nUnregisterPatch Patch\nEnd If\nEnd If 'InStr\nNext 'Patch\nIf NOT fMatchFound Then Log vbTab&"No match found for specified patch filter"\nLoop While fPatchLoop\nNext 'iFoo\nEnd If 'InStr sProductCodes\nEnd If 'IsOfficeProduct\nNext 'Product\n\nIf iActivityCnt = 0 Then LogSummary "RemovePatch",vbTab&"Nothing to remove for specified patch filter"&vbCrLf\n\nEnd Sub 'MspRemove\n'=======================================================================================================\n\n'Create and call an external script task to tweak the cached .msp\n'This is required to work around the missing option in VBScript to release the database handle\nSub TweakDatabase(sMspFile)\n\nDim TweakDb\nDim sTweakCmd\n\nSet TweakDb = oFso.CreateTextFile(sTemp&"TweakDb.vbs",True,True)\nTweakDb.WriteLine "On Error Resume Next"\nTweakDb.WriteLine "Set Msi = CreateObject("&chr(34)&"WindowsInstaller.Installer"&chr(34)&")"\nTweakDb.WriteLine "Set MspDb = Msi.OpenDatabase("&chr(34)&sMspFile&chr(34)&","&MSIOPENDATABASEMODE_TRANSACT + MSIOPENDATABASEMODE_PATCHFILE&")"\nTweakDb.WriteLine "Set ModifyView = MspDb.OpenView("&chr(34)&"UPDATE `MsiPatchMetadata` SET `MsiPatchMetadata`.`Value`='1\u2032 WHERE `MsiPatchMetadata`.`Property`='AllowRemoval'"&chr(34)&")"\nTweakDb.WriteLine "ModifyView.Execute"\nTweakDb.WriteLine "ModifyView.Close"\nTweakDb.WriteLine "MspDb.Commit"\nTweakDb.Close\nsTweakCmd = "cscript "&chr(34)&sTemp&"TweakDb.vbs"&chr(34)\noWShell.Run sTweakCmd, 0, True\noFso.DeleteFile sTemp&"TweakDb.vbs",True\nEnd Sub 'TweakDatabase\n'=======================================================================================================\n\n'Extracts the patch embedded .cab file to the %temp% folder\n'and returns a string list of extracted cab files\nFunction CabExtract (sMspFile)\n\nDim MspDb,Record,File,CabFile,DataSize\nDim qView\nDim sCabList,sCabFile\n\nsCabList = ""\nIf NOT oFso.FileExists(sMspFile) Then\nwscript.echo "File '"&sMspFile&"' does not exist."\nExit Function\nEnd If\nIf NOT LCase(Right(sMspFile,4))=".msp" Then\nwscript.echo "'"&sMspFile&"' is not a valid .msp file."\nExit Function\nEnd If\n\nSet File = oFso.GetFile(sMspFile)\nSet MspDb = oMsi.OpenDatabase(sMspFile,MSIOPENDATABASEMODE_PATCHFILE)\nSet qView = MspDb.OpenView("SELECT * FROM _Streams") : qView.Execute\nDo\nSet Record = qView.Fetch\nIf Record Is Nothing Then Exit Do\nIf InStr(UCase(Record.StringData(1)),"_CAB")>0 Then\nsCabFile = "" : sCabFile = Replace(File.Name,".msp","")&"_"&Record.StringData(1)&".cab"\nSet CabFile = oFso.CreateTextFile(sTemp&sCabFile)\nCabFile.Write Record.ReadStream(2,Record.DataSize(2),MSIREADSTREAM_ANSI)\nCabFile.Close\nsCabList = ";"&sTemp&sCabFile\noWShell.Run chr(34) &sTemp&sCabFile& chr(34)\nEnd If\nLoop\nqView.Close\nIf Len(sCabList)>0 Then sCabList = Mid(sCabList,2)\nCabExtract = sCabList\n\nEnd Function 'CabExtract\n'=======================================================================================================\n\n'Module CollectUpdates\n\n'=======================================================================================================\n\nSub CollectUpdates (sFilter)\n\nDim sUpdatesFolder, sMspPackageName\nDim Msp, PatchEx, PatchesEx\n\nConst PRODUCTCODE_EMPTY = ""\n\nsUpdatesFolder = oWShell.ExpandEnvironmentStrings("%TEMP%")&"\\Updates"\nIf Not oFso.FolderExists(sTargetFolder) Then oFso.CreateFolder sUpdatesFolder\n\n'Get all applied patches\nSet PatchesEx = oMsi.PatchesEx(PRODUCTCODE_EMPTY,USERSID_NULL,MSIINSTALLCONTEXT_MACHINE,MSIPATCHSTATE_APPLIED)\n\nOn Error Resume Next\n'Enum the patches\nFor Each PatchEx in PatchesEx\nIf Not Err = 0 Then Err.Clear\n'Connect to the patch file\nSet Msp = oMsi.OpenDatabase(PatchEx.PatchProperty("LocalPackage"),MSIOPENDATABASEMODE_PATCHFILE)\nSet SumInfo = msp.SummaryInformation\nIf Err = 0 Then\nsMspPackageName = PatchEx.PatchProperty("LocalPackage")\nIf InStr(SumInfo.Property(PID_TEMPLATES),OFFICEID)>0 Then\n'Get the original patch name\nSet qView = msp.OpenView("SELECT `Property`,`Value` FROM MsiPatchMetadata WHERE `Property`='StdPackageName'")\nqView.Execute : Set record = qView.Fetch()\n'Copy and rename the patch to the original filename\noFso.CopyFile patch.PatchProperty("LocalPackage"),sTargetFolder&"\\"&record.StringData(2),TRUE\nEnd If\nEnd If 'Err = 0\nNext 'patch\noWShell.Run "explorer \/e,"&chr(34)&sTargetFolder&chr(34)\n\nEnd Sub 'CollectUpdates\n\n'=======================================================================================================\n\n'Module ViewPatch\n\n'=======================================================================================================\n\n'Show contents of .MSP files in an Excel workbook\n'This requires XL to be installed\nSub ViewPatch (sMspFile)\n\nDim XlApp,XlWkbk,XlSheet,MspDb,File\nDim Element,Elements,Node,Record,qView,CompItem\n\nDim i,iSheetCnt,iRow,iRowCnt,iCol,iColCnt,iVersionMajor,iCnt\n\nDim MspTarget,sXml,sProductCode,sOFamilyVersion,sCompType,sCompFlt,sTargetVersion\nDim sTmpVersion,sRange,prod,sInstProds\n\nDim arrMspTargets,arrFileVersion,arrComputer,arrCompItem\n\nDim fOfficePatch,fOctPatch,fValidate\n\nOn Error Resume Next\n\nIf NOT XLInstalled Then \nwscript.echo "This feature requires Excel to be installed. Cannot continue"\nExit Sub\nEnd If\nIf NOT oFso.FileExists(sMspFile) Then\nwscript.echo "File '"&sMspFile&"' does not exist."\nExit Sub\nEnd If\nIf NOT LCase(Right(sMspFile,4))=".msp" Then\nwscript.echo "'"&sMspFile&"' is not a valid .msp file."\nExit Sub\nEnd If\n\nSet File = oFso.GetFile(sMspFile)\n\nDim fNeedObsoleted,fNeedMstSubStorage,fSupersedesPrevious\n\nfOfficePatch = False\nfNeedObsoleted = False\nfNeedMstSubStorage = False\nfSupersedesPrevious = False\n\n'Get the database handle\nSet MspDb = oMsi.OpenDatabase(sMspFile,MSIOPENDATABASEMODE_PATCHFILE)\nIf Not Err = 0 Then\nwscript.echo "Could not open patch "&sMspFile\nErr.Clear\nExit Sub\nEnd If\n\n'Determine if this is an Office Patch\narrMspTargets = Split(MspDb.SummaryInformation.Property(PID_TEMPLATE),";")\nFor Each MspTarget in arrMspTargets\nIf IsOfficeProduct(MspTarget) Then\nfOfficePatch = True\nExit For\nEnd If\nNext\n\nDim sPatchTables\nsPatchTables = GetDatabaseTables(MspDb)\n\n'Get the PatchXml\nsXml = oMsi.ExtractPatchXMLData(sMspFile)\nXmlDoc.LoadXml(sXml)\n\n'Create the XL instance\nSet XlApp = CreateObject("Excel.Application")\n\n'Suppress XL alerts\nXlApp.DisplayAlerts = False\n\n'Avoid blank worksheets\niSheetCnt = XlApp.SheetsInNewWorkbook\nXlApp.SheetsInNewWorkbook = 1\nSet XlWkbk = XlApp.Workbooks.Add\nXlApp.SheetsInNewWorkbook = iSheetCnt\n\n'TmpStatus\n'\u2014\u2014\u2014\nSet XlSheet = XlWkbk.Worksheets(1)\nXlSheet.Name = "Status"\nXlSheet.Cells(1, S_PROP).Value = "Please wait"\nXlSheet.Cells(1, S_VAL).Value = "Collecting Patch Details \u2026"\nXlSheet.Columns.Autofit\n\n'Start the user UI experience\nXlApp.Interactive = False\nXlApp.Visible = True\nXlApp.WindowState = xlMaximized\nXlApp.ScreenUpdating = False\n\n'Summary\n'\u2014\u2014-\n'Create a new workbook\nSet XlSheet = XlWkbk.Worksheets.Add\nXlSheet.Name = "Summary"\n\nDim OctXml,sOctXmlFile,sRegXlOptions,fRegDelXmlSchemaAlert\n\niRow = 1 : iCol = 1\nXlSheet.Cells(1, S_PROP).Value = "Property"\nXlSheet.Cells(1, S_VAL).Value = "Value"\n\n'FileName\nXlSheet.Cells(S_ROW_NAME, S_PROP).Value = "FileName"\nXlSheet.Cells(S_ROW_NAME, S_VAL).Value = File.Name\n'KB\nDim sKB\nIf InStr(sPatchTables,"MsiPatchMetadata")>0 Then\nSet qView = MspDb.OpenView("SELECT `Property`,`Value` FROM MsiPatchMetadata WHERE `Property`='KBArticle Number'")\nqView.Execute : Set Record = qView.Fetch()\nIf Not Record Is Nothing Then\nsKB = UCase(Record.StringData(2))\nsKB = Replace(sKB,"KB","")\nElse\nsKB = ""\nEnd If\nqView.Close\nEnd If\nIf sKB = "" Then\nDim iSiCnt,arrSi,sTitle,sSiTmp,sChar\n'Scan the SummaryInformation data for the KB\nFor iSiCnt = 1 To 2\nSelect Case iSiCnt\nCase 1\narrSi = Split(MspDb.SummaryInformation.Property(PID_SUBJECT),";")\nCase 2\narrSi = Split(MspDb.SummaryInformation.Property(PID_TITLE),";")\nEnd Select\n\nIf IsArray(arrSi) Then\nFor Each sTitle in arrSi\nsSiTmp = ""\nsSiTmp = Replace(UCase(sTitle)," ","")\nIf InStr(sSiTmp,"KB")>0 Then\n'Strip the KB\nsSiTmp = Mid(sSiTmp,InStr(sSiTmp,"KB")+2)\nFor i = 1 To Len(sSiTmp)\nsChar = ""\nsChar = Mid(sSiTmp,i,1)\nIf (Asc(sChar) >= 48 AND Asc(sChar) <= 57) Then sKB=sKB&sChar\nNext 'i\n'Ensure a valid length\nIf Len(sKB)<5 Then sKB="" Else Exit For\nEnd If\nNext\nIf Len(sKB)>4 Then Exit For\nEnd If 'IsArray(arrSi)\nNext 'iSiCnt\nEnd If\nXlSheet.Cells(S_ROW_KB, S_PROP).Value = "KB"\nIf Len(sKB)>0 Then\nXlSheet.Cells(S_ROW_KB, S_VAL).Value = "KB"&sKB\nXlSheet.Hyperlinks.Add XlSheet.Cells(S_ROW_KB, S_VAL),"http:\/\/support.microsoft.com\/kb\/"&sKB\nEnd If\n\n'Packlet\nXlSheet.Cells(S_ROW_PACKLET, S_PROP).Value = "Patch Packlet Family"\nIf fOfficePatch Then\nDim arrPacklet,sPacklet\nsPacklet = ""\narrPacklet = Split(MspDb.SummaryInformation.Property(PID_TITLE),";")\nIf IsArray(arrPacklet) Then\nIf UBound(arrPacklet)>0 Then\nsPacklet = arrPacklet(1)\nIf InStr(sPacklet,".")>0 Then sPacklet = Left(sPacklet,InStr(sPacklet,".")-1)\nEnd If\nEnd If\nXlSheet.Cells(S_ROW_PACKLET, S_VAL).Value = sPacklet\nEnd If\n\n'Sequence\nDim sSequence\nsSequence = ""\nXlSheet.Cells(S_ROW_SEQUENCE, S_PROP).Value = "Sequence Number"\nXlSheet.Cells(S_ROW_SEQUENCE, S_VAL).Value = "" 'Defer to MsiPatchSequence handling\n\n'Baseline\nXlSheet.Cells(S_ROW_BASELINE, S_PROP).Value = "Patch can be applied to build(s)"\nXlSheet.Cells(S_ROW_BASELINE, S_VAL).Value = GetMspBldTargets(sXml)\n\n'Prepare Supersedence field\nXlSheet.Cells(S_ROW_SUPERSEDENCE, S_PROP).Value = "Supersedes previous patches"\nXlSheet.Cells(S_ROW_SUPERSEDENCE, S_VAL).Value = "No supersedence data available"\n\n'Prepare Uninstallable field\nXlSheet.Cells(S_ROW_UNINSTALLABLE, S_PROP).Value = "Uninstallable"\n\n'SummaryInformation\nFor i = 1 To 19\nSelect Case i\nCase PID_TITLE\nXlSheet.Cells(S_ROW_TITLE, S_PROP).Value = "Title"\nXlSheet.Cells(S_ROW_TITLE, S_VAL).Value = MspDb.SummaryInformation.Property(PID_TITLE)\nCase PID_AUTHOR\nXlSheet.Cells(S_ROW_AUTHOR, S_PROP).Value = "Author"\nXlSheet.Cells(S_ROW_AUTHOR, S_VAL).Value = MspDb.SummaryInformation.Property(PID_AUTHOR)\nCase PID_SUBJECT\nXlSheet.Cells(S_ROW_SUBJECT, S_PROP).Value = "Subject"\nXlSheet.Cells(S_ROW_SUBJECT, S_VAL).Value = MspDb.SummaryInformation.Property(PID_SUBJECT)\nCase PID_COMMENTS\nXlSheet.Cells(S_ROW_COMMENTS, S_PROP).Value = "Comments"\nXlSheet.Cells(S_ROW_COMMENTS, S_VAL).Value = MspDb.SummaryInformation.Property(PID_COMMENTS)&vbCrLf\nCase PID_REVNUMBER 'PatchCode & Obsoletion\nDim sPatchCode\nXlSheet.Cells(S_ROW_PATCHCODE, S_PROP).Value = "PatchCode"\nXlSheet.Cells(S_ROW_OBSOLETES, S_PROP).Value = "Obsoletes"\nsPatchCode = MspDb.SummaryInformation.Property(PID_REVNUMBER) 'PatchCode\nIf Len(sPatchCode)>LEN_GUID Then\nXlSheet.Cells(S_ROW_OBSOLETES, S_VAL).Value = "See ObsoletedPatches Sheet"\nXlSheet.Hyperlinks.Add XlSheet.Cells(S_ROW_OBSOLETES, S_VAL),"","ObsoletedPatches!$A$1"\nfNeedObsoleted = True\nsPatchCode=Left(sPatchCode,LEN_GUID)\nEnd If\nXlSheet.Cells(S_ROW_PATCHCODE, S_VAL).Value = sPatchCode\nCase PID_TEMPLATE 'Targets\nXlSheet.Cells(S_ROW_TARGETS, S_PROP).Value = "Targets"\nXlSheet.Cells(S_ROW_TARGETS, S_VAL).Value = "See PatchTargets Sheet"\nXlSheet.Hyperlinks.Add XlSheet.Cells(S_ROW_TARGETS, S_VAL),"","PatchTargets!$A$1"\nCase PID_LASTAUTHOR 'List of mst substorages\nXlSheet.Cells(S_ROW_TRANSFORMSUB, S_PROP).Value = "Transform Substorages"\nXlSheet.Cells(S_ROW_TRANSFORMSUB, S_VAL).Value = "See TransformSubStorages Sheet"\nXlSheet.Hyperlinks.Add XlSheet.Cells(S_ROW_TRANSFORMSUB, S_VAL),"","TransformSubStorages!$A$1"\nfNeedMstSubStorage = True\nCase PID_WORDCOUNT 'Required WI version\nXlSheet.Cells(S_ROW_PATCHTYPE, S_PROP).Value = "WI Version Required"\nSelect Case MspDb.SummaryInformation.Property(PID_WORDCOUNT)\nCase 1\nXlSheet.Cells(S_ROW_PATCHTYPE, S_VAL).Value = "1.0 (Type 1) "\nCase 2\nXlSheet.Cells(S_ROW_PATCHTYPE, S_VAL).Value = "1.2 (Type 2)"\nCase 3\nXlSheet.Cells(S_ROW_PATCHTYPE, S_VAL).Value = "2.0 (Type 3)"\nCase 4\nXlSheet.Cells(S_ROW_PATCHTYPE, S_VAL).Value = "3.0 (Type 4)"\nCase 5\nXlSheet.Cells(S_ROW_PATCHTYPE, S_VAL).Value = "3.1 (Type 5)"\nCase Else\nXlSheet.Cells(S_ROW_PATCHTYPE, S_VAL).Value = MspDb.SummaryInformation.Property(PID_WORDCOUNT)\nEnd Select\nCase PID_SECURITY 'Read Only Flag\nXlSheet.Cells(S_ROW_SECURITY, S_PROP).Value = "Read-Only Security"\nSelect Case MspDb.SummaryInformation.Property(PID_SECURITY)\nCase 0\nXlSheet.Cells(S_ROW_SECURITY, S_VAL).Value = "No Restriction"\nCase 2\nXlSheet.Cells(S_ROW_SECURITY, S_VAL).Value = "Read-only recommended"\nCase 4\nXlSheet.Cells(S_ROW_SECURITY, S_VAL).Value = "Read-only enforced"\nCase Else\nXlSheet.Cells(S_ROW_SECURITY, S_VAL).Value = MspDb.SummaryInformation.Property(PID_SECURITY)\nEnd Select\nCase Else\n'Do Not List\nEnd Select\nNext 'i\n\n'PatchXml\nDim PatchXml\nSet PatchXml = oFso.CreateTextFile(sTemp&File.Name&"_Patch.xml",True,True)\nPatchXml.Write sXml\nPatchXml.Close\nXlSheet.Cells(S_ROW_PATCHXML, S_PROP).Value = "PatchXML"\nXlSheet.Cells(S_ROW_PATCHXML, S_VAL).Value = sTemp&File.Name&"_Patch.xml"\nXlSheet.Hyperlinks.Add XlSheet.Cells(S_ROW_PATCHXML, S_VAL),sTemp&File.Name&"_Patch.xml"\n\n'OCT PatchXml\nSet qView = MspDb.OpenView("SELECT * FROM _Streams") : qView.Execute\ni = 0\nDo\nSet Record = qView.Fetch\nIf Record Is Nothing Then Exit Do\nIf InStr(UCase(Record.StringData(1)),"METADATA")>0 Then\ni = i + 1\nsOctXmlFile = "" : sOctXmlFile = sTemp&File.Name&"_OCT_"&Record.StringData(1)&".xml"\nSet OctXml = oFso.CreateTextFile(sOctXmlFile)\nOctXml.Write Record.ReadStream(2,Record.DataSize(2),MSIREADSTREAM_ANSI)\nOctXml.Close\niRow = XlSheet.Columns(1).CurrentRegion.Rows.Count +1\nXlSheet.Cells(iRow, S_PROP).Value = "OCT Metadata"\nXlSheet.Cells(iRow, S_VAL).Value = sOctXmlFile\nXlSheet.Hyperlinks.Add XlSheet.Cells(iRow, S_VAL),sOctXmlFile\nIf IsBaselineRequired("",sXml) Then \niRow = XlSheet.Columns(1).CurrentRegion.Rows.Count +1\nXlSheet.Cells(iRow, S_PROP).Value = "IMPORTANT NOTE"\nXlSheet.Cells(iRow, S_VAL).Value = "This is a customization patch based on the original release of the OCT."&vbCrLf&"A more recent OCT version is available from http:\/\/www.microsoft.com\/downloads\/details.aspx?displaylang=en&FamilyID=73d955c0-da87-4bc2-bbf6-260e700519a8”"\nEnd If\nEnd If\nLoop\nqView.Close\n'Transform SubStorages\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\nIf fNeedMstSubStorage Then\nDim arrMstSubStore,dicTransformRow\n\nSet dicTransformRow = CreateObject("Scripting.Dictionary")\n\n'Create the TransformSubStorages sheet\nSet XlSheet = XlWkbk.Worksheets.Add\nXlSheet.Name = "TransformSubStorages"\nXlSheet.Move ,XlWkbk.Sheets("Summary")\n\n'Fill the sheet\niRow = 1 : iCol = 1\nXlSheet.Cells(HROW, COL_NONPOUND).Value = "Non Pound Transform"\nXlSheet.Cells(HROW, COL_POUND).Value = "(Patch Specific Tables)"\narrMstSubStore = Split(MspDb.SummaryInformation.Property(PID_LASTAUTHOR),";")\nFor i = 0 To UBound(arrMstSubStore)\nIf InStr(arrMstSubStore(i),"#")>0 Then iCol = COL_POUND Else iCol = COL_NONPOUND\niRow = Int((i+4)\/2)\nXlSheet.Cells(iRow, iCol).Value = arrMstSubStore(i)\nIf NOT dicTransformRow.Exists(arrMstSubStore(i)) Then dicTransformRow.Add arrMstSubStore(i),iRow\nNext 'i\nIf fOfficePatch Then ExtendTransformTable XlSheet,dicTransformRow,MspDb\nEnd If\n\n'Obsoleted Patches\n'\u2014\u2014\u2014\u2014\u2014-\nIf fNeedObsoleted Then\nDim arrObsoleted\n'Create the Obsoleted sheet\nSet XlSheet = XlWkbk.Worksheets.Add\nXlSheet.Name = "ObsoletedPatches"\nXlSheet.Move ,XlWkbk.Sheets("Summary")\n\n'Fill the sheet\niRow = 1 : iCol = 1\nXlSheet.Cells(HROW, iCol).Value = "Obsoleted Patches"\narrObsoleted = Split(Mid(MspDb.SummaryInformation.Property(PID_REVNUMBER),LEN_GUID+1),"}")\nFor i = 0 To UBound(arrObsoleted)-1\nXlSheet.Cells(i+2, iCol).Value = arrObsoleted(i)&"}"\nNext 'i\nEnd If\n\n'MsiPatchSequence\n'\u2014\u2014\u2014\u2014\u2014-\nIf InStr(UCase(sPatchTables),"MSIPATCHSEQUENCE")>0 Then\n\nfSupersedesPrevious = False\n\n'Create the MsiPatchSequence sheet\nSet XlSheet = XlWkbk.Worksheets.Add\nXlSheet.Name = "MsiPatchSequence"\nXlSheet.Move ,XlWkbk.Sheets("Summary")\n\n'Fill the sheet\niRow = 1 : iCol = 1\nXlSheet.Cells(HROW, SEQ_PATCHFAMILY).Value = "PatchFamily"\nXlSheet.Cells(HROW, SEQ_PRODUCTCODE).Value = "ProductCode"\nXlSheet.Cells(HROW, SEQ_SEQUENCE).Value = "Sequence"\nXlSheet.Cells(HROW, SEQ_ATTRIBUTE).Value = "(Supersedence Flag)"\n\nSet qView = MspDb.OpenView("SELECT * FROM MsiPatchSequence") : qView.Execute\nSet Record = qView.Fetch()\nDo Until Record Is Nothing\niRow = iRow + 1\nXlSheet.Cells(iRow, SEQ_PATCHFAMILY).Value = Record.StringData(SEQ_PATCHFAMILY)\nXlSheet.Cells(iRow, SEQ_PRODUCTCODE).Value = Record.StringData(SEQ_PRODUCTCODE)\nXlSheet.Cells(iRow, SEQ_SEQUENCE).Value = Record.StringData(SEQ_SEQUENCE)\nIf NOT InStr(sSequence,Record.StringData(SEQ_SEQUENCE))>0 Then sSequence = ";"&Record.StringData(SEQ_SEQUENCE)\nXlSheet.Cells(iRow, SEQ_ATTRIBUTE).Value = Record.StringData(SEQ_ATTRIBUTE)\nfSupersedesPrevious = fSupersedesPrevious OR Record.StringData(SEQ_ATTRIBUTE)="1"\nSet Record = qView.Fetch()\nLoop\nqView.Close\nIf Len(sSequence)>1 Then sSequence = Mid(sSequence,2)\n\n'Update Supersedence field on Summary Sheet\nSet XlSheet = XlWkbk.Sheets("Summary")\nIf fSupersedesPrevious Then XlSheet.Cells(S_ROW_SUPERSEDENCE, S_VAL).Value = "Yes" Else XlSheet.Cells(S_ROW_SUPERSEDENCE, S_VAL).Value = "No"\nEnd If 'MsiPatchSequence\n\n'Add Sequence data to summary sheet\nSet XlSheet = XlWkbk.Sheets("Summary")\nIf InStr(sSequence,";")>0 Then \nXlSheet.Cells(S_ROW_SEQUENCE, S_VAL).Value = "Mulitple sequence data available"\nXlSheet.Hyperlinks.Add XlSheet.Cells(S_ROW_SEQUENCE, S_VAL),"","MsiPatchSequence!$A$1"\nElse\nIf sSequence = "" Then\nIf fOfficePatch Then sSequence = GetLegacyMspSeq(MspDb)\nEnd If\nIf sSequence = "" Then sSequence = "No sequence data available"\nXlSheet.Cells(S_ROW_SEQUENCE, S_VAL).Value = sSequence\nEnd If\n\n'MsiPatchMetaData\n'\u2014\u2014\u2014\u2014\u2014-\nIf InStr(UCase(sPatchTables),"MSIPATCHMETADATA")>0 Then\n\n'Create the MsiPatchMetaData sheet\nSet XlSheet = XlWkbk.Worksheets.Add\nXlSheet.Name = "MsiPatchMetaData"\nXlSheet.Move ,XlWkbk.Sheets("Summary")\n\n'Fill the sheet\niRow = 1 : iCol = 1\nXlSheet.Cells(HROW, MET_COMPANY).Value = "Company"\nXlSheet.Cells(HROW, MET_PROPERTY).Value = "Property"\nXlSheet.Cells(HROW, MET_VALUE).Value = "Value"\n\nSet qView = MspDb.OpenView("SELECT * FROM MsiPatchMetadata") : qView.Execute\nSet Record = qView.Fetch()\nDo Until Record Is Nothing\niRow = iRow + 1\nXlSheet.Cells(iRow, MET_COMPANY).Value = Record.StringData(MET_COMPANY)\nXlSheet.Cells(iRow, MET_PROPERTY).Value = Record.StringData(MET_PROPERTY)\nXlSheet.Cells(iRow, MET_VALUE).Value = Record.StringData(MET_VALUE)\nIf UCase(Record.StringData(MET_PROPERTY)) = "STDPACKAGENAME" AND fOfficePatch Then\nSet XlSheet = XlWkbk.Sheets("Summary")\nsTmp = ""\nsTmp = Record.StringData(MET_VALUE)\nIf InStr(sTmp,".")>0 Then sTmp = Left(sTmp,InStr(sTmp,".")-1)\nIf NOT sTmp = "" Then XlSheet.Cells(S_ROW_PACKLET, S_VAL).Value = sTmp\nSet XlSheet = XlWkbk.Sheets("MsiPatchMetaData")\nEnd If\nIf UCase(Record.StringData(MET_PROPERTY)) = "ALLOWREMOVAL" Then\nSet XlSheet = XlWkbk.Sheets("Summary")\nIf Record.StringData(MET_VALUE) = 1 Then sTmp = "Yes" Else sTmp = "No"\nXlSheet.Cells(S_ROW_UNINSTALLABLE, S_VAL).Value = sTmp\nSet XlSheet = XlWkbk.Sheets("MsiPatchMetaData")\nEnd If\nSet Record = qView.Fetch()\nLoop\nqView.Close\nEnd If 'MsiPatchMetaData\n\n'PatchTargets\n'\u2014\u2014\u2014\u2014\n\nDim iTargetGuid,iTargetVer,iUpdatedVer,iLcid,iCulture,iVTargetProd,iVTargetVer,iVTargetLang,iVTargetUpg\n\n'Create the PatchTarget sheet\n'- - - - - - - - - - - - - - \nSet XlSheet = XlWkbk.Worksheets.Add\nXlSheet.Name = "PatchTargets"\nXlSheet.Move ,XlWkbk.Sheets("Summary")\niRow = 1 : iCol = 1\n\nIf fOfficePatch Then\niTargetGuid = OTARGETGUID\niTargetVer = OMSPTARGETVER\niUpdatedVer = OMSPUPDATEDVER\niLcid = OLCID\niCulture = OCULTURE\niVTargetProd = OVAL_TARGETPRODUCTCODE\niVTargetVer = OVAL_TARGETVERSION\niVTargetLang = OVAL_TARGETLANGUAGE\niVTargetUpg = OVAL_TARGETUPGRADECODE\nXlSheet.Cells(HROW, OTARGETNAME).Value = "ProductName"\nXlSheet.Cells(HROW, OFAMILYVER).Value = "Office Family"\nXlSheet.Cells(HROW, OLICENSE).Value = "License"\nXlSheet.Cells(HROW, OARCHITECTURE).Value = "Platform"\nElse\niTargetGuid = TARGETGUID\niTargetVer = MSPTARGETVER\niUpdatedVer = MSPUPDATEDVER\niLcid = LCID\niCulture = CULTURE\niVTargetProd = VAL_TARGETPRODUCTCODE\niVTargetVer = VAL_TARGETVERSION\niVTargetLang = VAL_TARGETLANGUAGE\niVTargetUpg = VAL_TARGETUPGRADECODE\nEnd If\nXlSheet.Cells(HROW, iTargetGuid).Value = "ProductCode"\nXlSheet.Cells(HROW, iTargetVer).Value = "Target Baseline"\nXlSheet.Cells(HROW, iUpdatedVer).Value = "Updated Baseline"\nXlSheet.Cells(HROW, iLcid).Value = "LCID"\nXlSheet.Cells(HROW, iCulture).Value = "Culture"\nXlSheet.Cells(HROW, iVTargetProd).Value = "Validate ProductCode"\nXlSheet.Cells(HROW, iVTargetVer).Value = "Validate ProductVersion"\nXlSheet.Cells(HROW, iVTargetLang).Value = "Validate Language"\nXlSheet.Cells(HROW, iVTargetUpg).Value = "Validate UpgradeCode"\nIf fOfficePatch Then\nXlSheet.Cells(HROW, iTargetVer).Value = "Required Office Build"\nXlSheet.Cells(HROW, iUpdatedVer).Value = "Office Build Version After Patch"\nEnd If\n'Fill data into the PatchTargets sheet\nSet Elements = XmlDoc.GetElementsByTagName("TargetProduct")\nFor Each Element in Elements\niRow = iRow + 1\nsProductCode = Element.selectSingleNode("TargetProductCode").text\nXlSheet.Cells(iRow, iTargetGuid).Value = sProductCode\nIf NOT dicProdMst.Exists(sProductCode) Then dicProdMst.Add sProductCode,XlWkbk.Sheets("TransformSubStorages").Cells(iRow,COL_NONPOUND)\nIf fOfficePatch Then\niVersionMajor = GetVersionMajor(sProductCode)\n'ProductName\nSelect Case iVersionMajor\nCase 9 \nsOFamilyVersion = 2000\nXlSheet.Cells(iRow, OTARGETNAME).Value = GetProductID(Mid(sProductCode,4,2),sOFamilyVersion)\nCase 10\nsOFamilyVersion = 2002\nXlSheet.Cells(iRow, OTARGETNAME).Value = GetProductID(Mid(sProductCode,4,2),sOFamilyVersion)\nCase 11 \nsOFamilyVersion = 2003\nXlSheet.Cells(iRow, OTARGETNAME).Value = GetProductID(Mid(sProductCode,4,2),sOFamilyVersion)\nCase 12\nsOFamilyVersion = 2007\nXlSheet.Cells(iRow, OTARGETNAME).Value = GetProductID(Mid(sProductCode,11,4),sOFamilyVersion)\nCase 14\nsOFamilyVersion = 2010\nXlSheet.Cells(iRow, OTARGETNAME).Value = GetProductID(Mid(sProductCode,11,4),sOFamilyVersion)\nCase Else\nsOFamilyVersion = ""\nEnd Select\nXlSheet.Cells(iRow, OFAMILYVER).Value = sOFamilyVersion\nXlSheet.Cells(iRow, OLICENSE).Value = GetReleaseType(CInt(Mid(sProductCode,3,1)))\nIf Mid(sProductCode,21,1) = "1" Then XlSheet.Cells(iRow, OARCHITECTURE).Value = "x64" Else XlSheet.Cells(iRow, OARCHITECTURE).Value = "x86"\nEnd If\n\nFor Each Node in Element.ChildNodes\nSelect Case Node.NodeName\nCase "TargetProductCode"\nXlSheet.Cells(iRow, iVTargetProd).Value = CBool(Node.getAttribute("Validate"))\nCase "TargetVersion" \nfValidate = CBool(Node.getAttribute("Validate"))\nsTargetVersion = Element.selectSingleNode("TargetVersion").text\nIf fValidate Then\nsCompFlt = Node.getAttribute("ComparisonFilter")\nsCompType = Node.getAttribute("ComparisonType")\narrFileVersion = Split(sTargetVersion,".")\n'Set the filter setting\nSelect Case sCompFlt\nCase "None"\niCnt = -1\nCase "Major"\niCnt = 0\nCase "MajorMinor"\niCnt = 1\nCase "MajorMinorUpdate"\niCnt = 2\nCase Else\nEnd Select\nsTmpVersion = ""\nIf iCnt > -1 Then\nFor i = 0 To iCnt\nsTmpVersion = sTmpVersion&"."&arrFileVersion(i)\nNext 'i\nsTmpVersion = Mid(sTmpVersion,2)\nElse\nsTmpVersion = "None"\nEnd If\n'XlSheet.Cells(iRow, iTargetVer).Value = sTmpVersion&" ("&sTargetVersion&")"\nXlSheet.Cells(iRow, iTargetVer).Value = sTargetVersion\nXlSheet.Cells(iRow, iVTargetVer).Value = "TRUE: "&sCompType&" "&sTmpVersion\nElse\nXlSheet.Cells(iRow, iTargetVer).Value = "Baselineless ("&sTargetVersion&")"\nXlSheet.Cells(iRow, iVTargetVer).Value = "FALSE"\nEnd If\n'If this is an Office patch, add the SP Level\nIf fOfficePatch Then XlSheet.Cells(iRow, iTargetVer).Value = XlSheet.Cells(iRow, iTargetVer).Value & GetSpLevel(sTargetVersion)\nCase "TargetLanguage" \nXlSheet.Cells(iRow, iLcid).Value = Element.selectSingleNode("TargetLanguage").text\nXlSheet.Cells(iRow, iCulture).Value = GetCultureInfo(XlSheet.Cells(iRow, iLcid).Value)\nXlSheet.Cells(iRow, iVTargetLang).Value = CBool(Node.getAttribute("Validate"))\nCase "UpdatedVersion" \nXlSheet.Cells(iRow, iUpdatedVer).Value = Element.selectSingleNode("UpdatedVersion").text & GetSpLevel(Element.selectSingleNode("UpdatedVersion").text)\nCase "UpgradeCode"\nfValidate = CBool(Node.getAttribute("Validate"))\nIf fValidate Then\nXlSheet.Cells(iRow, iVTargetUpg).Value = "TRUE: "&Element.selectSingleNode("UpgradeCode").text\nElse\nXlSheet.Cells(iRow, iVTargetUpg).Value = "FALSE"\nEnd If\nCase Else\nEnd Select\nNext 'Node\nIf NOT Len(XlSheet.Cells(iRow, iUpdatedVer).Value)>0 Then XlSheet.Cells(iRow, iUpdatedVer).Value = "Not Updated ("&sTargetVersion&")"& GetSpLevel(sTargetVersion)\n\nNext 'Element\n\n'CustomAction Table\n'\u2014\u2014\u2014\u2014\u2014\u2014\nSet XlSheet = XlWkbk.Sheets("Summary")\n\n'File and other tables\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\nSet XlSheet = XlWkbk.Worksheets.Add\nXlSheet.Name = "File_Table"\nXlSheet.Move ,XlWkbk.Sheets(XlWkbk.Sheets.Count)\niRow = 1 : iCol = 1\n\nDim dicMspFiles\nSet dicMspFiles = CreateObject("Scripting.Dictionary")\nFillTables XlWkbk,XlSheet,MspDb,sMspFile,dicMspFiles,fOfficePatch,XmlDoc\nAddMspHashes XlWkbk\nIf fMsiProvidedAsFile Then AddFileNames XlWkbk\n\n'Per Product Detection (DeepScan)\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014-\n\nFor Each prod in oMsi.Products\nsInstProds = sinstProds & ";" & prod\nNext\n\nfDeepScan = False\nFor Each MspTarget in arrMspTargets\nIf InStr(sInstProds,MspTarget)>0 Then\nIf IsOfficeProduct(MspTarget) Then\nfDeepScan = True\nExit For\nEnd If\nEnd If\nNext\n\n'PredictedAction, ComponentState, ComponentClients, FilePath, CurrentVersion\nIf fDeepScan Then\n\n'Run the full patch detection\nApplyPatches\n\n'Refresh the status screen\nSet XlSheet = XlWkbk.Sheets("Status")\nXlSheet.Activate\nXlSheet.Cells(1, S_VAL).Value = "DeepScan in progress \u2026"\nXlApp.Interactive = False\nXlApp.ScreenUpdating = True\nXlApp.ScreenUpdating = False\n\nComputerProperties\nSet XlSheet = XlWkbk.Sheets("File_Table")\nMspDeepScan MspDb,dicMspFiles,XlSheet\n\nSet XlSheet = XlWkbk.Worksheets.Add\nXlSheet.Name = "Computer"\nXlSheet.Move XlWkbk.Sheets("Summary")\nXlSheet.Cells(HROW,S_PROP).Value = "Property"\nXlSheet.Cells(HROW,S_VAL).Value = "Value"\n\niRow = XlSheet.Columns(1).CurrentRegion.Rows.Count +1\nXlSheet.Cells(iRow,S_PROP).Value = "ComputerName"\nXlSheet.Cells(iRow,S_VAL).Value = sComputerName\n\narrComputer = Split(sOSinfo,",")\nFor Each CompItem in arrComputer\narrCompItem = Split(CompItem,": ")\niRow = XlSheet.Columns(1).CurrentRegion.Rows.Count +1\nXlSheet.Cells(iRow,S_PROP).Value = arrCompItem(0)\nXlSheet.Cells(iRow,S_VAL).Value = arrCompItem(1)\nNext\n\niRow = XlSheet.Columns(1).CurrentRegion.Rows.Count +1\nXlSheet.Cells(iRow,S_PROP).Value = "Windows Installer Version"\nXlSheet.Cells(iRow,S_VAL).Value = vWI\n\nSet XlSheet = XlWkbk.Sheets("Summary")\nFor iIndex = 0 To UBound(arrSUpdatesAll)\nIf UCase(arrSUpdatesAll(iIndex,COL_FILENAME)) = UCase(sMspFile) Then\n'Patch is applicable to\nIf InStr(arrSUpdatesAll(iIndex,COL_APPLICABLECNT),";")>0 Then\niRow = XlSheet.Columns(1).CurrentRegion.Rows.Count +1\nXlSheet.Cells(iRow,S_PROP).Value = "Patch is applicable to"\nReDim arrTmpLog(-1)\narrSUpdatesAll(iIndex,COL_APPLICABLECNT) = Left(arrSUpdatesAll(iIndex,COL_APPLICABLECNT),Len(arrSUpdatesAll(iIndex,COL_APPLICABLECNT))-1)\narrTmpLog = Split(arrSUpdatesAll(iIndex,COL_APPLICABLECNT),";")\nsTmp = ""\nFor Each LogProd in arrTmpLog\nsTmp = sTmp&oMsi.ProductInfo(LogProd,"ProductName")&" - "&oMsi.ProductInfo(LogProd,"VersionString")&vbCrLf\nNext '\nXlSheet.Cells(iRow,S_VAL).Value = sTmp\nEnd If\n\n'Patch already applied to\nIf InStr(arrSUpdatesAll(iIndex,COL_APPLIEDCNT),";")>0 Then\niRow = XlSheet.Columns(1).CurrentRegion.Rows.Count +1\nXlSheet.Cells(iRow,S_PROP).Value = "Patch is already applied to"\nReDim arrTmpLog(-1)\narrSUpdatesAll(iIndex,COL_APPLIEDCNT) = Left(arrSUpdatesAll(iIndex,COL_APPLIEDCNT),Len(arrSUpdatesAll(iIndex,COL_APPLIEDCNT))-1)\narrTmpLog = Split(arrSUpdatesAll(iIndex,COL_APPLIEDCNT),";")\nsTmp = ""\nFor Each LogProd in arrTmpLog\nsTmp = sTmp&oMsi.ProductInfo(LogProd,"ProductName")&" - "&oMsi.ProductInfo(LogProd,"VersionString")&vbCrLf\nNext '\nXlSheet.Cells(iRow,S_VAL).Value = sTmp\nEnd If\n\n'Patch is superseded for\nIf InStr(arrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT),";")>0 Then\niRow = XlSheet.Columns(1).CurrentRegion.Rows.Count +1\nXlSheet.Cells(iRow,S_PROP).Value = "Patch is superseded for"\nReDim arrTmpLog(-1)\narrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT) = Left(arrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT),Len(arrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT))-1)\narrTmpLog = Split(arrSUpdatesAll(iIndex,COL_SUPERSEDEDCNT),";")\nsTmp = ""\nFor Each LogProd in arrTmpLog\nsTmp = sTmp&oMsi.ProductInfo(LogProd,"ProductName")&" - "&oMsi.ProductInfo(LogProd,"VersionString")&vbCrLf\nNext '\nXlSheet.Cells(iRow,S_VAL).Value = sTmp\nEnd If\n\n'Patch not applicable to\nIf InStr(arrSUpdatesAll(iIndex,COL_NOQALBASELINECNT),";")>0 Then\niRow = XlSheet.Columns(1).CurrentRegion.Rows.Count +1\nXlSheet.Cells(iRow,S_PROP).Value = "Patch is not applicable to"\nReDim arrTmpLog(-1)\narrSUpdatesAll(iIndex,COL_NOQALBASELINECNT) = Left(arrSUpdatesAll(iIndex,COL_NOQALBASELINECNT),Len(arrSUpdatesAll(iIndex,COL_NOQALBASELINECNT))-1)\narrTmpLog = Split(arrSUpdatesAll(iIndex,COL_NOQALBASELINECNT),";")\nsTmp = ""\nFor Each LogProd in arrTmpLog\nsTmp = sTmp&oMsi.ProductInfo(LogProd,"ProductName")&" - "&oMsi.ProductInfo(LogProd,"VersionString")&vbCrLf\nNext '\nXlSheet.Cells(iRow,S_VAL).Value = sTmp\nEnd If\nEnd If\nNext 'iIndex\n\nEnd If\n\n'Final cleanups\nXlWkbk.BuiltinDocumentProperties(1) = SOLUTIONNAME&" v"&SCRIPTBUILD\n\nXlWkbk.Sheets("Status").Delete\nMakeWkbkLookPretty(XlWkbk)\nSet XlSheet = XlWkbk.Sheets("Summary") \nIf NOT fOfficePatch Then XlSheet.Rows(S_ROW_PACKLET).Delete xlUp\n\n'Hand over XL control to the user\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014-\nXlWkbk.Worksheets("Summary").Activate\nXlApp.UserControl = True\nXlApp.ScreenUpdating = True\nXlApp.Interactive = True\nXlWkbk.Saved = True\nXlApp.DisplayAlerts = True\noWShell.AppActivate XlApp.Name&" - "&XlWkBk.Name\nSet XlApp = Nothing\n\nEnd Sub 'ViewPatch\n'=======================================================================================================\nSub MakeWkbkLookPretty(XlWkbk)\n\nDim XlSheet\nDim sRange,sSheetName,sGuid,sTName\nDim iRowCnt,iColCnt\n\nOn Error Resume Next\n\nFor Each XlSheet in XlWkbk.Sheets\nXlSheet.Columns.Autofit\nXlSheet.Rows.Autofit\nsSheetName = XlSheet.Name\nIf InStr(sSheetName,"}")>0 Then\nsGuid = Left(sSheetName,InStr(sSheetName,"}"))\nsSheetName = Mid(sSheetName,InStr(sSheetName,"}")+2)\nElse\nsGuid = ""\nEnd If\nSelect Case sSheetName\nCase "Computer"\nsTName = "TableComputer" & sGuid\nXlSheet.Columns(1).VerticalAlignment = xlTop\nXlSheet.Columns(2).NumberFormat = "@"\nXlSheet.ListObjects.Add(xlSrcRange, XlSheet.UsedRange, , xlYes).Name = sTName\nXlSheet.ListObjects(sTName).ShowTableStyleFirstColumn = True\nXlSheet.ListObjects(sTName).TableStyle = "TableStyleMedium10"\nCase "Summary"\nsTName = "TableSummary" & sGuid\nXlSheet.Columns(1).VerticalAlignment = xlTop\nXlSheet.Columns(2).NumberFormat = "@"\nXlSheet.Cells(S_ROW_BASELINE, S_PROP).NumberFormat = "0.00"\nXlSheet.ListObjects.Add(xlSrcRange, XlSheet.UsedRange, , xlYes).Name = sTName\nXlSheet.ListObjects(sTName).ShowTableStyleFirstColumn = True\nXlSheet.ListObjects(sTName).TableStyle = "TableStyleMedium10"\nCase "TransformSubStorages"\nsTName = "TableSubStore" & sGuid\nXlSheet.Columns(1).VerticalAlignment = xlTop\nXlSheet.ListObjects.Add(xlSrcRange, XlSheet.UsedRange, , xlYes).Name = sTName\nXlSheet.ListObjects(sTName).TableStyle = "TableStyleMedium4"\nXlSheet.Cells(HROW, COL_NONPOUND).Value = "Non Pound Transform"&vbCrLf&"(Database Diff)"\nXlSheet.Cells(HROW, COL_POUND).Value = "Pound Transform"&vbCrLf&"(Patch Specific Tables)"\nCase "ObsoletedPatches"\nsTName = "TableObsoleted" & sGuid\nXlSheet.Columns(1).VerticalAlignment = xlTop\nXlSheet.ListObjects.Add(xlSrcRange, XlSheet.UsedRange, , xlYes).Name = sTName\nXlSheet.ListObjects(sTName).TableStyle = "TableStyleMedium4"\nCase "MsiPatchSequence"\nsTName = "TableMsiPatchSequence" & sGuid\nXlSheet.ListObjects.Add(xlSrcRange, XlSheet.UsedRange, , xlYes).Name = sTName\nXlSheet.ListObjects(sTName).TableStyle = "TableStyleMedium4"\nXlSheet.Columns.Autofit\nXlSheet.Cells(HROW, SEQ_ATTRIBUTE).Value = "Attribute"&vbCrLf&"(Supersedence Flag)"\nXlSheet.Rows.Autofit\nCase "MsiPatchMetaData"\nsTName = "TableMsiPatchMetaData" & sGuid\nXlSheet.ListObjects.Add(xlSrcRange, XlSheet.UsedRange, , xlYes).Name = sTName\nXlSheet.ListObjects(sTName).TableStyle = "TableStyleMedium4"\nCase "PatchTargets"\nsTName = "TablePatchTargets" & sGuid\nXlSheet.ListObjects.Add(xlSrcRange, XlSheet.UsedRange, , xlYes).Name = sTName\nXlSheet.ListObjects(sTName).TableStyle = "TableStyleMedium4"\nCase "File_Table"\nsTName = "TableFiles" & sGuid\niRowCnt = XlSheet.Cells(1, 1).CurrentRegion.Rows.Count\nsRange = "$A$1:"&XlSheet.Cells(iRowCnt,F_SEQUENCE).Address\nXlSheet.ListObjects.Add(xlSrcRange, XlSheet.Range(sRange), , xlYes).Name = sTName\nXlSheet.ListObjects(sTName).TableStyle = "TableStyleMedium2"\nIf fDeepScan Then\nsRange = XLSheet.Cells(1,F_PREDICTED).Address&":"&XLSheet.Cells(iRowCnt,F_FILEPATH).Address\nXlSheet.ListObjects.Add(xlSrcRange, XlSheet.Range(sRange), , xlYes).Name = "ThisComputerFiles"\nXlSheet.ListObjects("ThisComputerFiles").TableStyle = "TableStyleMedium4"\nEnd If 'fDeepScan\nCase Else\nXlSheet.ListObjects.Add(xlSrcRange, XlSheet.UsedRange, , xlYes).Name = XlSheet.Name\nXlSheet.ListObjects(XlSheet.Name).TableStyle = "TableStyleMedium2"\nEnd Select\nNext 'XlSheet\n\nEnd Sub 'MakeWkbkLookPretty\n'=======================================================================================================\n\nSub MspDeepScan (MspDb,dicMspFile,XlSheet)\n\nDim Prod,Session,SessionDb,Record,Component,File\nDim sPatchTargets,sTargetPath,sFileName,sComponent,sComponentId,sComponentClients\nDim sDirectory,CompClient,Ftk,sFullFileName,sKeyPath,sVersionKeyPath,sCurVer,sLfn\nDim fFound,fAllFound,fCompLocal,fKeyPathLow,fPatchFileVersionLow,fCopyPatchFile\nDim fUserModified,fFileNotFound\nDim dicDirectory,dicFtkFile,dicAssembly,dicTables,dicFtkComp,dicCompDir,dicCompComp\nDim dicComponents,dicKeypathConflict\nDim qView\nDim iRow,iCmp\n\nfAllFound = False\nfFound = False\noMsi.UILevel = 2 'None\n\nSet dicDirectory = CreateObject("Scripting.Dictionary")\nSet dicTables = CreateObject("Scripting.Dictionary")\nSet dicAssembly = CreateObject("Scripting.Dictionary")\nSet dicFtkComp = CreateObject("Scripting.Dictionary")\nSet dicFtkFile = CreateObject("Scripting.Dictionary")\nSet dicCompDir = CreateObject("Scripting.Dictionary")\nSet dicCompComp = CreateObject("Scripting.Dictionary")\nSet dicKeypathConflict = CreateObject("Scripting.Dictionary")\nSet dicComponents = CreateObject("Scripting.Dictionary")\n\n'Get the PatchTargets\nsPatchTargets = MspDb.SummaryInformation.Property(PID_TEMPLATE)\n\n'Enum installed clients to build the reference dictionaries\nFor Each Prod in oMsi.Products\nIf InStr(sPatchTargets,Prod)>0 Then\n'Found a targeted product\nfFound = True\n\n'Create the session object\nSet Session = oMsi.OpenProduct(Prod)\nSession.DoAction("CostInitialize")\nSession.DoAction("FileCost")\nSession.DoAction("CostFinalize")\nSet SessionDb = Session.Database\n\n'Get a list of available tables\ndicTables.RemoveAll\nSet qView = Nothing\nSet qView = SessionDb.OpenView("SELECT `Name` FROM `_Tables` ORDER BY `Name`")\nqView.Execute\nDo\nSet Record = qView.Fetch\nIf Record Is Nothing then Exit Do\nIf Not dicTables.Exists(Record.StringData(1)) Then dicTables.Add Record.StringData(1),""\nLoop\nqView.Close\nIf dicTables.Exists("File") Then\nSet qView = Nothing\nSet qView = SessionDb.OpenView("SELECT `File`,`Component_`,`FileName` FROM File")\nqView.Execute\nSet Record = qView.Fetch\nDo Until Record Is Nothing\nIf Not dicFtkComp.Exists(Record.StringData(1)) Then dicFtkComp.Add Record.StringData(1),Record.StringData(2)\nIf Not dicFtkFile.Exists(Record.StringData(1)) Then dicFtkFile.Add Record.StringData(1),Record.StringData(3)\nSet Record = qView.Fetch\nLoop\nqView.Close\nEnd If 'File\n\nIf dicTables.Exists("Component") Then\nSet qView = Nothing\nSet qView = SessionDb.OpenView("SELECT `Component`,`ComponentId`,`Directory_` FROM Component")\nqView.Execute\nSet Record = qView.Fetch\nDo Until Record Is Nothing\nIf Not dicCompComp.Exists(Record.StringData(1)) Then dicCompComp.Add Record.StringData(1),Record.StringData(2)\nIf Not dicCompDir.Exists(Record.StringData(1)) Then dicCompDir.Add Record.StringData(1),Record.StringData(3)\nSet Record = qView.Fetch\nLoop\nqView.Close\nEnd If 'Component\n\nIf dicTables.Exists("Directory") Then\nSet qView = Nothing\nSet qView = SessionDb.OpenView("SELECT DISTINCT `Directory` FROM Directory")\nqView.Execute\nSet Record = qView.Fetch\nDo Until Record Is Nothing\nIf Not dicDirectory.Exists(Record.Stringdata(1)) Then\nsTargetPath = "" : sTargetPath = Session.TargetPath(Record.Stringdata(1))\nIf NOT sTargetPath="" Then dicDirectory.Add Record.Stringdata(1)&"_"&Prod,sTargetPath\nEnd If\nSet Record = qView.Fetch\nLoop\nqView.Close\nEnd If 'Directory\n\nIf dicTables.Exists("MsiAssembly") Then\nSet qView = Nothing\nSet qView = SessionDb.OpenView("SELECT `Component_` FROM `MsiAssembly`")\nqView.Execute\nSet Record = qView.Fetch\nDo Until Record Is Nothing\nIf Not dicAssembly.Exists(Record.StringData(1)) Then dicAssembly.Add Record.StringData(1),""\nSet Record = qView.Fetch\nLoop\nqView.Close\nEnd If 'MsiAssembly\n\nIf dicTables.Exists("SxsMsmGenComponents") Then\nSet qView = Nothing\nSet qView = SessionDb.OpenView("SELECT `Component_` FROM SxsMsmGenComponents")\nqView.Execute\nSet Record = qView.Fetch\nDo Until Record Is Nothing\nIf Not dicAssembly.Exists(Record.StringData(1)) Then dicAssembly.Add Record.StringData(1),""\nSet Record = qView.Fetch\nLoop\nqView.Close\nEnd If 'SxsMsmGenComponents\n\nSet SessionDb = Nothing\nSet Session = Nothing\nEnd If 'Prod found\nNext 'Prod\n\nIf NOT fFound Then\nfDeepScan = False\nExit Sub\nEnd If\n\nXlSheet.Cells(HROW,F_PREDICTED).Value = "Predicted Action"\nXlSheet.Cells(HROW,F_COMPSTATE).Value = "ComponentState"\nXlSheet.Cells(HROW,F_CURSIZE).Value = "FileSize On Disk"\nXlSheet.Cells(HROW,F_CURVERSION).Value = "Version On Disk"\nXlSheet.Cells(HROW,F_CURHASH).Value = "Hash On Disk"\nXlSheet.Cells(HROW,F_FILEPATH).Value = "FilePath"\n\nFor Each Component in oMsi.Components\ndicComponents.Add Component,""\nNext 'Component\n\n'For Each Ftk in dicMspFile.Keys\nFor iRow = 2 To XlSheet.Columns(F_FILE).CurrentRegion.Rows.Count\nFtk = XlSheet.Cells(iRow,F_FILE).Value\nfCompLocal = False\nfKeyPathLow = False\nfPatchFileVersionLow = False\nfCopyPatchFile = False\n\nXlSheet.Cells(iRow,F_COMPSTATE).Value = "Unknown Component"\n\n'Get ComponentID\nIf dicFtkComp.Exists(Ftk) Then\n'This is a known file\n\nsComponent = ""\nsComponent = dicFtkComp.Item(Ftk)\nIf XlSheet.Cells(iRow,F_COMPONENT) = "" Then XlSheet.Cells(iRow,F_COMPONENT) = sComponent\n\n'Since it's known it has the filenmae entry listed as well\nsFileName = ""\nsFileName = dicFtkFile.Item(Ftk)\nIf XlSheet.Cells(iRow,F_FILENAME) = "" Then XlSheet.Cells(iRow,F_FILENAME) = sFileName\n\nsComponentId = ""\nsComponentId = dicCompComp.Item(sComponent)\nIf dicComponents.Exists(sComponentId) Then\n\nsKeyPath = ""\nsComponentClients = ""\nFor Each CompClient in oMsi.ComponentClients(sComponentId)\nIf InStr(sPatchTargets,CompClient)>0 Then\nsComponentClients = sComponentClients &","& CompClient\nIf oMsi.Product(CompClient,"",4).ComponentState(sComponentId) = INSTALLSTATE_LOCAL Then\nfCompLocal = True\nsKeyPath = oMsi.ComponentPath(CompClient,sComponentId)\nProd = CompClient\nEnd If\nEnd If\nNext 'CompClient\nOn Error Goto 0\nIf fCompLocal Then XlSheet.Cells(iRow,F_COMPSTATE).Value = "Local" Else XlSheet.Cells(iRow,F_COMPSTATE).Value = "Not Used"\n\nsDirectory = ""\nsDirectory = dicDirectory.Item(dicCompDir.Item(sComponent)&"_"&Prod)\n\nsFullFileName = ""\nsLfn = ""\nIf InStr(sFileName,"|")>0 Then sLfn = Mid(sFileName,InStr(sFileName,"|")+1) Else sLfn = sFileName\nIf dicAssembly.Exists(sComponent) Then\nsFullFileName=GetAssemblyPath(sLfn,sKeyPath,sDirectory)\nEnd If\nIf sFullFileName="" Then sFullFileName = sDirectory & sLfn\nXlSheet.Cells(iRow,F_FILEPATH).Value = sFullFileName\n\nsCurVer = ""\niCmp = 2\nIf fCompLocal Then\nfFileNotFound = NOT oFso.FileExists(sFullFileName)\nIf NOT fFileNotFound Then\nSet File = oFso.GetFile(sFullFileName)\nsCurVer = oFso.GetFileVersion(sFullFileName)\nIf NOT sCurVer = "" Then XlSheet.Cells(iRow,F_CURVERSION).Value = sCurVer Else XlSheet.Cells(iRow,F_CURHASH).Value = GetMsiFileHash(sFullFileName)\nXlSheet.Cells(iRow,F_CURSIZE).Value = File.Size\niCmp = CompareVersion(XlSheet.Cells(iRow,F_VERSION).Value,sCurVer,True)\nSelect Case iCmp\nCase -1\nXlSheet.Cells(iRow,F_PREDICTED).Value = "Don't Update - Existing file has a newer version"\nCase 0\nIf sCurVer = "" Then\n'This is an unversioned file.\nfUserModified = False\nfUserModified = NOT(File.DateCreated = File.DateLastModified)\nIf fUserModified Then\nXlSheet.Cells(iRow,F_PREDICTED).Value = "Don't Update - Existing file is unversioned but modified"\nElse\nIf XlSheet.Cells(iRow,F_HASH).Value = XlSheet.Cells(iRow,F_CURHASH).Value Then\nIf XlSheet.Cells(iRow,F_CURHASH).Value = "" Then\nXlSheet.Cells(iRow,F_PREDICTED).Value = "Update - Existing file is unversioned and unmodified - no source file hash provided to compare"\nElse\nXlSheet.Cells(iRow,F_PREDICTED).Value = "Don't Update - Hash matches existing file"\nEnd If\nElse\nXlSheet.Cells(iRow,F_PREDICTED).Value = "Update - Hash does not match existing file"\nEnd If 'Hash\nEnd If 'UserModified\n\nElse\nXlSheet.Cells(iRow,F_PREDICTED).Value = "Don't Update - Existing file is of an equal version"\nEnd If\nCase 1\nXlSheet.Cells(iRow,F_PREDICTED).Value = "Update - Existing file is of a lower version"\nCase 2\nEnd Select\n'Check on keypath version conflict\n'If a versioned keypath does not have a higher version\n'no files of the component will be considered for patching\nIf Not dicKeypathConflict.Exists(sComponent) Then \nIf LCase(sKeyPath) = LCase(sFullFileName) Then\nsVersionKeyPath = ""\nsVersionKeyPath = oFso.GetFileVersion(sKeyPath)\nIf NOT (CompareVersion(XlSheet.Cells(iRow,F_VERSION).Value,sVersionKeyPath,True)=1) Then\ndicKeypathConflict.Add sComponent,sVersionKeyPath\nEnd If\nEnd If\nEnd If\nElse\n'The component is set to local but the file could not be found\n'No prediction possible. Leave this field blank\nEnd If 'fFileNotFound\nElse\nXlSheet.Cells(iRow,F_PREDICTED).Value = "Not Installed"\nEnd If 'fCompLocal\n\nEnd If 'dicComponents.Exist\nElse\n'Not a known file (added by patch or not part of installed SKU's)\nEnd If\nNext 'iRow\n\nIf dicKeypathConflict.Count > 0 Then\nFor iRow = 2 To XlSheet.Columns(F_FILE).CurrentRegion.Rows.Count\nIf dicKeyPathConflict.Exists(XlSheet.Cells(iRow,F_COMPONENT).Value) Then\nIf XlSheet.Cells(iRow,F_PREDICTED).Value = "Update - Existing file is of a lower version" Then _\nXlSheet.Cells(iRow,F_PREDICTED).Value = "Don't Update - Existing KeyPath file has a newer version"\nEnd If\nNext 'iRow\nEnd If 'dicKeypathConflict\n\nEnd Sub 'MspDeepScan\n'=======================================================================================================\n\n'Apply the _Transform view\n'Create the File table view\n'Add the data to the XlSheet\n\nSub FillTables(XlWkbk,XlSheet,MspDb,sMspFile,dicFiles,fOfficePatch,XmlDoc)\n\nDim Record,dicTransforms,dicKeys,tbl,Prod,MsiDb,Element,Elements,key\nDim dicLoadedTables\nDim qView\nDim sMst,sKey,sSqlCreateTable,sPatchTargets,sProduct,sProductTarget\nDim i,iRow,iMstCnt\nDim arrTables,arrColHeaders,arrPatchMst\n\niRow = 1\n'File table columns\nXlSheet.Cells(iRow,F_FILE) = "File"\nXlSheet.Cells(iRow,F_COMPONENT) = "Component_"\nXlSheet.Cells(iRow,F_FILENAME) = "FileName"\nXlSheet.Cells(iRow,F_FILESIZE) = "FileSize"\nXlSheet.Cells(iRow,F_VERSION) = "Version"\nXlSheet.Cells(iRow,F_HASH) = "Hash"\nXlSheet.Cells(iRow,F_LANGUAGE) = "Language"\nXlSheet.Cells(iRow,F_ATTRIBUTE) = "Attributes"\nXlSheet.Cells(iRow,F_SEQUENCE) = "Sequence"\n\n'Get the PatchTargets\nsPatchTargets = MspDb.SummaryInformation.Property(PID_TEMPLATE)\n\nSet dicLoadedTables = CreateObject("Scripting.Dictionary")\n'The CustomAction table view has already been created for Office patches\n'If fOfficePatch Then dicLoadedTables.Add "CustomAction","CustomAction"\n\n'Try to dynamically obtain the schema from installed products\nFor Each Prod in oMsi.Products\nIf InStr(sPatchTargets,Prod)>0 Then\nSet MsiDb = oMsi.OpenDatabase(oMsi.ProductInfo(Prod,"LocalPackage"),MSIOPENDATABASEMODE_READONLY)\narrTables = Split(GetDatabaseTables(MsiDb),",")\nFor Each tbl in arrTables\nIf NOT dicLoadedTables.Exists(tbl) Then\ndicLoadedTables.Add tbl,Prod\nsSqlCreateTable = "CREATE TABLE `" & tbl &"` (" & GetTableColumnDef(MsiDb,tbl) & " PRIMARY KEY " & GetPrimaryTableKeys(MsiDb,tbl) &")"\nIf NOT dicSqlCreateTbl.Exists(tbl) Then dicSqlCreateTbl.Add tbl,sSqlCreateTable\nMspDb.OpenView(sSqlCreateTable).Execute\nIf tbl = "File" Then\nfNeedGenericSql = False\nEnd If\nEnd If\nNext 'tbl\nEnd If\nNext 'Prod\n\nIf fNeedGenericSql Then\nIf NOT MsiProvidedAsFile(MsiDb,MspDb,sMspFile,arrTables,dicLoadedTables) Then\nsProduct = ""\nsProduct = Right(Left(sPatchTargets,38),17)\nSelect Case sProduct\nCase "CFE-0150048383C9}","CFE-0050048383C9}","60F-006097C998E7}" 'O11,O10,O09\nsSqlCreateTable = "CREATE TABLE `File` (`File` CHAR(72) NOT NULL, `Component_` CHAR(72) NOT NULL, `FileName` CHAR(255) NOT NULL LOCALIZABLE, `FileSize` LONG NOT NULL, `Version` CHAR(72), `Language` CHAR(20), `Attributes` SHORT, `Sequence` SHORT NOT NULL PRIMARY KEY `File`)"\nCase Else\n'Create the generic file table view\nsSqlCreateTable = SQL_CREATEFILETABLE\nEnd Select\nMspDb.OpenView(sSqlCreateTable).Execute\nElse\nfNeedGenericSql = False\nEnd If 'NOT MsiProvidedAsFile\nEnd If\n\n'Get the patch embedded transforms\nSet dicTransforms = CreateObject("Scripting.Dictionary")\nSet qView = MspDb.OpenView("SELECT `Name` FROM `_Storages` ORDER BY `Name`") : qView.Execute\nSet Record = qView.Fetch\nDo Until Record Is Nothing\ndicTransforms.Add Record.StringData(1),Record.StringData(1)\nSet Record = qView.Fetch\nLoop\nqView.Close\n'Apply the patch transforms to the patch itself\ndicKeys = dicTransforms.Keys\nOn Error Resume Next\nFor Each sMst in dicTransforms.Keys\nMspDb.ApplyTransform ":" & sMst,MSITRANSFORMERROR_ALL\n\nNext 'iMst\nOn Error Goto 0\n\n'The file table is key thus handled in a dedicated loop\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\nSet qView = MspDb.OpenView("SELECT * FROM `_TransformView` WHERE `Table` = 'File' ORDER BY `Row`")\nqView.Execute()\nSet Record = qView.Fetch\niRow = 2 : sKey = ""\n'Get the first FTK\nIf NOT Record Is Nothing Then\nsKey = Record.StringData(3)\ndicFiles.Add sKey,""\nEnd If\nXlSheet.Cells(iRow,F_FILE) = sKey\nDo Until Record Is Nothing\n'Next FTK?\nIf NOT sKey = Record.StringData(3) Then \niRow = iRow + 1\nsKey = Record.StringData(3)\ndicFiles.Add sKey,""\nXlSheet.Cells(iRow,F_FILE) = sKey\nEnd If\n'Add data from _TransformView\nSelect Case Record.StringData(2)\nCase "File"\n'XlSheet.Cells(iRow,F_FILE) = Record.StringData(4)\nCase "FileSize"\nXlSheet.Cells(iRow,F_FILESIZE) = Record.StringData(4)\nCase "Component_"\nXlSheet.Cells(iRow,F_COMPONENT) = Record.StringData(4)\nCase "CREATE"\nCase "DELETE"\nCase "DROP"\nCase "FileName"\nXlSheet.Cells(iRow,F_FILENAME) = Record.StringData(4)\ndicFiles.Item(sKey) = Record.StringData(4)\nCase "Version"\nXlSheet.Cells(iRow,F_VERSION) = Record.StringData(4)\nCase "Language"\nXlSheet.Cells(iRow,F_LANGUAGE) = Record.StringData(4)\nCase "Attributes"\nXlSheet.Cells(iRow,F_ATTRIBUTE) = Record.StringData(4)\nCase "Sequence"\nXlSheet.Cells(iRow,F_SEQUENCE) = Record.StringData(4)\nCase "INSERT"\nCase Else\nEnd Select\nSet Record = qView.Fetch\nLoop\n\n'Only possible if the schema could be obtained\nIf fNeedGenericSql Then Exit Sub\n\n'Handle all other tables per product\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014-\n\n'drop all tables\n'create all tables\n'only apply the patch embedded transform pair that targets the product\n\n'Handle .msi files provided in the patch folder\nIf fMsiProvidedAsFile Then\nDim f,File,Folder\n\nSet File = oFso.GetFile(sMspFile)\nSet Folder = oFso.GetFolder(File.ParentFolder)\n\n'Check if we have a valid .msi file in the .msp folder location\nFor Each f in Folder.Files\nIf Right(LCase(f),4)=".msi" Then\nProd = GetMsiProductCode(f.Path)\nSet Elements = XmlDoc.GetElementsByTagName("TargetProduct")\ni = 0\nFor Each Element in Elements\ni = i + 1\nIf Prod = Element.selectSingleNode("TargetProductCode").text Then\n'Drop all tables\nOn Error Resume Next\nSet MsiDb = oMsi.OpenDatabase(f.Path,MSIOPENDATABASEMODE_READONLY)\narrTables = Split(GetDatabaseTables(MsiDb),",")\nFor Each tbl in arrTables\nMspDb.OpenView("DROP TABLE `"&tbl&"`").Execute\nNext 'tbl\n'Recreate all tables\nFor Each tbl in arrTables\nMspDb.OpenView(dicSqlCreateTbl.Item(tbl)).Execute\nNext 'tbl\nOn Error Goto 0\niMstCnt = 0\nFor Each sMst in dicTransforms.Keys\niMstCnt = iMstCnt + 1\nIf (iMstCnt = i) Then\nMspDb.ApplyTransform ":" & sMst,MSITRANSFORMERROR_ALL\nElseIf (iMstCnt = i + 1) Then \nMspDb.ApplyTransform ":" & sMst,MSITRANSFORMERROR_ALL\nExit For\nEnd If\nNext 'iMst\nFillTablesEx Prod,MsiDb,MspDb,XlWkbk,XlSheet,arrTables,arrColHeaders\nExit For\nEnd If 'Prod\nNext 'Element\nEnd If\nNext 'f\nEnd If 'fMsiProvidedAsFile\n\n'Handle installed products\nFor Each Prod in oMsi.Products\nIf InStr(sPatchTargets,Prod)>0 Then\n'Drop all tables\nOn Error Resume Next\nSet MsiDb = oMsi.OpenDatabase(oMsi.ProductInfo(Prod,"LocalPackage"),MSIOPENDATABASEMODE_READONLY)\narrTables = Split(GetDatabaseTables(MsiDb),",")\nFor Each tbl in arrTables\nMspDb.OpenView("DROP TABLE `"&tbl&"`").Execute\nNext 'tbl\n'Recreate all tables\nFor Each tbl in arrTables\nMspDb.OpenView(dicSqlCreateTbl.Item(tbl)).Execute\nNext 'tbl\nOn Error Goto 0\nsMst = Mid(dicProdMst.Item(Prod),2)\nMspDb.ApplyTransform ":" & sMst,MSITRANSFORMERROR_ALL\nMspDb.ApplyTransform ":#" & sMst,MSITRANSFORMERROR_ALL\nFillTablesEx Prod,MsiDb,MspDb,XlWkbk,XlSheet,arrTables,arrColHeaders\nEnd If 'InStr\nNext 'Prod\n\nEnd Sub 'FillTables\n'=======================================================================================================\n\nSub FillTablesEx (Prod,MsiDb,MspDb,XlWkbk,XlSheet,arrTables,arrColHeaders)\n\nDim tbl,Col,Record,sheet\nDim sKey,sPreFix\nDim iRow,iCol,i\nDim qView\nDim fExists\n\nSelect Case GetVersionMajor(Prod)\nCase 9, 10, 11\nsPreFix = Mid(Prod,4,2)\nCase 12, 14\nsPreFix = Mid(Prod,11,4)\nEnd Select\n\nFor Each tbl in arrTables\nIf NOT tbl = "File" Then\nSet arrColHeaders = Nothing\narrColHeaders = Split(GetTableColumnHeaders(MsiDb,tbl),",")\nIf IsArray(arrColHeaders) Then\nIf UBound(arrColHeaders)>0 Then\n'Create a new sheet\nFor Each sheet in XlWkbk.Worksheets\nIf Left(sPreFix&"_"&tbl,31) = sheet.name Then fExists = True\nNext 'sheet\n\nIf NOT fExists Then\nSet XlSheet = XlWkbk.Worksheets.Add\nXlSheet.Name = Left(sPreFix&"_"&tbl,31)\nXlSheet.Move ,XlWkbk.Sheets(XlWkbk.Sheets.Count)\niRow = 1 : iCol = 1 : i = 0\n\n'Fill the header row\nFor Each Col in arrColHeaders\nXlSheet.Cells(iRow,i+1) = arrColHeaders(i)\ni=i+1\nNext 'Col\n\n'Initiate the view\nSet qView = MspDb.OpenView("SELECT * FROM `_TransformView` WHERE `Table` = '"&tbl&"' ORDER BY `Row`")\nqView.Execute()\nSet Record = qView.Fetch\ni = 0 : iRow = 2 : sKey = ""\n'Get the first Row\nIf NOT Record Is Nothing Then\nsKey = Record.StringData(3)\nXlSheet.Cells(iRow,1) = Record.StringData(3)\nElse\nXlSheet.Delete\nEnd If\n'XlSheet.Cells(iRow,F_FILE) = sKey\nDo Until Record Is Nothing\n'Next Row?\nIf NOT sKey = Record.StringData(3) Then \niRow = iRow + 1\nsKey = Record.StringData(3)\nXlSheet.Cells(iRow,1) = Record.StringData(3)\nEnd If\n'Add data from _TransformView\niCol = 0\nFor Each Col in arrColHeaders\niCol=iCol+1\nIf Record.StringData(2) = Col Then\nXlSheet.Cells(iRow,iCol) = Record.StringData(4)\nExit For\nEnd If\nNext 'Col\nSet Record = qView.Fetch\nLoop\nEnd If 'fExists\nEnd If 'UBound\nEnd If 'IsArray\nEnd If\nNext 'tbl\n\nEnd Sub 'FillTablesEx\n'=======================================================================================================\n\nFunction MsiProvidedAsFile(MsiDb,MspDb,sMspFile,arrTables,dicLoadedTables)\n\nDim f,File,Folder,Prod,tbl\nDim sSqlCreateTable,sPatchTargets\n\nMsiProvidedAsFile = False\n\nSet File = oFso.GetFile(sMspFile)\nSet Folder = oFso.GetFolder(File.ParentFolder)\n\n'Check if we have a valid .msi file in the .msp folder location\nFor Each f in Folder.Files\nIf Right(LCase(f),4)=".msi" Then\nProd = GetMsiProductCode(f.Path)\nsPatchTargets = MspDb.SummaryInformation.Property(PID_TEMPLATE)\nIf InStr(sPatchTargets,Prod)>0 Then\nMsiProvidedAsFile = True\nfMsiProvidedAsFile = True\nsExternalMsi = f.Path\nSet MsiDb = oMsi.OpenDatabase(f.Path,MSIOPENDATABASEMODE_READONLY)\narrTables = Split(GetDatabaseTables(MsiDb),",")\nFor Each tbl in arrTables\nIf NOT dicLoadedTables.Exists(tbl) Then\ndicLoadedTables.Add tbl,Prod\nsSqlCreateTable = "CREATE TABLE `" & tbl &"` (" & GetTableColumnDef(MsiDb,tbl) & " PRIMARY KEY " & GetPrimaryTableKeys(MsiDb,tbl) &")"\nIf NOT dicSqlCreateTbl.Exists(tbl) Then dicSqlCreateTbl.Add tbl,sSqlCreateTable\nMspDb.OpenView(sSqlCreateTable).Execute\nEnd If\nNext 'tbl\nEnd If 'Prod\nEnd If '.msi\nNext 'f\n\nEnd Function 'MsiProvidedAsFile\n'=======================================================================================================\n\nSub AddTransformProductName (dicTransformRow,MspDb)\n\nEnd Sub 'AddTransformProductName\n'=======================================================================================================\n\nSub ExtendTransformTable (XlSheet,dicTransformRow,MspDb)\n\nDim Record,dicTransforms,dicKeys\nDim qView\nDim sMst,sKey,sSource,sTarget,sSqlCreateTable\nDim iRow,iCol\nDim fAdd\n\nXlSheet.Cells(1,3).Value = "REINSTALLMODE"\nXlSheet.Cells(1,4).Value = "REINSTALL"\nXlSheet.Cells(1,5).Value = "PATCHNEWSUMMARYSUBJECT"\nXlSheet.Cells(1,6).Value = "PATCHNEWSUMMARYCOMMENTS"\n\n'Get the patch embedded transforms\nSet dicTransforms = CreateObject("Scripting.Dictionary")\nSet qView = MspDb.OpenView("SELECT `Name` FROM `_Storages` ORDER BY `Name`") : qView.Execute\nSet Record = qView.Fetch\nDo Until Record Is Nothing\ndicTransforms.Add Record.StringData(1),Record.StringData(1)\nSet Record = qView.Fetch\nLoop\nqView.Close\n'Apply the patch transforms to the patch itself\ndicKeys = dicTransforms.Keys\n'Prepare CustomAction table query\nsSqlCreateTable = SQL_CREATECATABLE\nIf dicSqlCreateTbl.Exists("CustomAction") Then sSqlCreateTable = dicSqlCreateTbl.Item("CustomAction")\n\nFor Each sMst in dicTransforms.Keys\n'Only care about non pound transforms\nIf NOT InStr(sMst,"#")>0 Then\n\n'Create the CustomAction table view\nMspDb.OpenView(sSqlCreateTable).Execute\n\nMspDb.ApplyTransform ":" & sMst,MSITRANSFORMERROR_ALL\nMspDb.ApplyTransform ":#" & sMst,MSITRANSFORMERROR_ALL\n\niRow = dicTransformRow.Item(":"&sMst)\nsKey = "" : sSource = "" : sTarget = ""\nfAdd = False\nSet qView = MspDb.OpenView("SELECT * FROM `_TransformView` WHERE `Table` = 'CustomAction' ORDER BY `Row`")\nqView.Execute()\nSet Record = qView.Fetch\n'Get the first key\nIf NOT Record Is Nothing Then\nsKey = Record.StringData(3)\nEnd If\nDo Until Record Is Nothing\n'Next key\nIf NOT sKey = Record.StringData(3) Then \nIf fAdd Then\nIf XlSheet.Cells(iRow,iCol).Value = "" Then XlSheet.Cells(iRow,iCol).Value = sTarget\nEnd If\nsKey = Record.StringData(3)\nsSource = "" : sTarget = ""\nfAdd = False\nEnd If\n'Add data from _TransformView\nSelect Case Record.StringData(2)\nCase "Action"\nCase "Type"\nCase "Source"\nsSource = Record.StringData(4)\nIf sSource = "REINSTALLMODE" Then fAdd = True\nIf sSource = "REINSTALL" Then fAdd = True\nIf fAdd AND sSource = "REINSTALL" Then iCol=4 Else iCol=3\nCase "Target"\nsTarget = Record.StringData(4)\nCase Else\nEnd Select\nSet Record = qView.Fetch\nLoop\nIf fAdd Then\nIf XlSheet.Cells(iRow,iCol).Value = "" Then XlSheet.Cells(iRow,iCol).Value = sTarget\nEnd If\nMspDb.OpenView("DROP TABLE `CustomAction`").Execute\nEnd If 'non pound\nNext 'sMst\n\nFor Each sMst in dicTransforms.Keys\n'Only care about pound transforms\nIf InStr(sMst,"#")>0 Then\n\n'Create the Propery table view\nsSqlCreateTable = SQL_CREATEPROPTABLE\nIf dicSqlCreateTbl.Exists("Property") Then sSqlCreateTable = dicSqlCreateTbl.Item("Property")\nMspDb.OpenView(sSqlCreateTable).Execute\n\nMspDb.ApplyTransform ":" & sMst,MSITRANSFORMERROR_ALL\n\niRow = dicTransformRow.Item(":"&sMst)\nsKey = "" : sSource = "" : sTarget = ""\nfAdd = False\nSet qView = MspDb.OpenView("SELECT * FROM `_TransformView` WHERE `Table` = 'Property' ORDER BY `Row`")\nqView.Execute()\nSet Record = qView.Fetch\n'Get the first key\nIf NOT Record Is Nothing Then\nsKey = Record.StringData(3)\nEnd If\nDo Until Record Is Nothing\n'Next key\nIf NOT sKey = Record.StringData(3) Then \nIf fAdd Then\nIf XlSheet.Cells(iRow,iCol).Value = "" Then XlSheet.Cells(iRow,iCol).Value = sTarget\nEnd If\nsKey = Record.StringData(3)\nsSource = "" : sTarget = ""\nfAdd = False\nEnd If\n'Add data from _TransformView\nSelect Case Record.StringData(2)\nCase "Value"\nIf sKey = "PATCHNEWSUMMARYSUBJECT" Then fAdd = True\nIf sKey = "PATCHNEWSUMMARYCOMMENTS" Then fAdd = True\nIf fAdd AND sKey = "PATCHNEWSUMMARYCOMMENTS" Then iCol=6 Else iCol=5\nIf fAdd Then sTarget = Record.StringData(4)\nCase Else\nEnd Select\nIf fAdd Then\nIf XlSheet.Cells(iRow,iCol).Value = "" Then XlSheet.Cells(iRow,iCol).Value = sTarget\nfAdd = False\nEnd If\nSet Record = qView.Fetch\nLoop\nMspDb.OpenView("DROP TABLE `Property`").Execute\nEnd If\nNext 'sMst\n\nEnd Sub 'ExtendTransformTable\n'=======================================================================================================\n\nSub AddMspHashes (XlWkbk)\nDim Sheet,XlSheet\nDim dicFileRow\nDim sFile\nDim iF_Row,iRow\n\nFor Each Sheet in XlWkbk.Sheets\nIf Sheet.Name = "MsiFileHash_Table" Then\n'Buid a file dic\nSet dicFileRow = CreateObject("Scripting.Dictionary")\nSet XlSheet = XlWkbk.Sheets("File_Table")\nFor iF_Row = 2 To XlSheet.Columns(F_FILE).CurrentRegion.Rows.Count\ndicFileRow.Add XlSheet.Cells(iF_Row,F_FILE).Value,iF_Row\nNext 'iF_Row\n\n'Add the file hashes\nFor iRow = 2 To Sheet.Columns(F_FILE).CurrentRegion.Rows.Count\nsFile = ""\nsFile = Sheet.Cells(iRow,F_FILE).Value\nIf dicFileRow.Exists(sFile) Then\niF_Row = dicFileRow.Item(sFile)\nXlSheet.Cells(iF_Row,F_HASH).Value = Sheet.Cells(iRow,3).Value&","&Sheet.Cells(iRow,4).Value&","&Sheet.Cells(iRow,5).Value&","&Sheet.Cells(iRow,6).Value\nEnd If\nNext 'iRow\nEnd If\nNext 'XlSheet\nEnd Sub 'AddMspHashes\n'=======================================================================================================\n\nSub AddFileNames (XlWkbk)\nDim XlSheet,MsiDb,Record\nDim dicFtkSize,dicTables,dicFtkFile\nDim qView\nDim sFileName,sFtk\nDim iRow\n\nSet dicTables = CreateObject("Scripting.Dictionary")\nSet dicFtkFile = CreateObject("Scripting.Dictionary")\nSet dicFtkSize = CreateObject("Scripting.Dictionary")\nSet MsiDb = oMsi.OpenDatabase(sExternalMsi,MSIOPENDATABASEMODE_READONLY)\n\n'Get a list of available tables\nSet qView = Nothing\nSet qView = MsiDb.OpenView("SELECT `Name` FROM `_Tables` ORDER BY `Name`")\nqView.Execute\nDo\nSet Record = qView.Fetch\nIf Record Is Nothing then Exit Do\nIf Not dicTables.Exists(Record.StringData(1)) Then dicTables.Add Record.StringData(1),""\nLoop\nqView.Close\nIf dicTables.Exists("File") Then\nSet qView = Nothing\nSet qView = MsiDb.OpenView("SELECT `File`,`FileSize`,`FileName` FROM File")\nqView.Execute\nSet Record = qView.Fetch\nDo Until Record Is Nothing\nIf Not dicFtkSize.Exists(Record.StringData(1)) Then dicFtkSize.Add Record.StringData(1),Record.StringData(2)\nIf Not dicFtkFile.Exists(Record.StringData(1)) Then dicFtkFile.Add Record.StringData(1),Record.StringData(3)\nSet Record = qView.Fetch\nLoop\nqView.Close\nEnd If 'File\n\nFor Each XlSheet in XlWkbk.Sheets\nIf XlSheet.Name = "File_Table" Then\nFor iRow = 2 To XlSheet.Columns(F_FILE).CurrentRegion.Rows.Count\nsFtk = XlSheet.Cells(iRow,F_FILE).Value\nIf dicFtkFile.Exists(sFtk) Then\nsFileName = ""\nsFileName = dicFtkFile.Item(sFtk)\nIf XlSheet.Cells(iRow,F_FILENAME) = "" Then XlSheet.Cells(iRow,F_FILENAME) = sFileName\nEnd If\nIf dicFtkSize.Exists(sFtk) Then\nsFileName = ""\nsFileName = dicFtkSize.Item(sFtk)\nIf XlSheet.Cells(iRow,F_FILESIZE) = "" Then XlSheet.Cells(iRow,F_FILESIZE) = sFileName\nEnd If\nNext\nEnd If\nNext 'XlSheet\nEnd Sub 'AddFileNames\n'=======================================================================================================\n\n'Windows Installer Helper Routines\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\n\n'=======================================================================================================\n\n'Scans for a dynamic (optimized) SUPdateLocation folder structure\n'Builds a global dictionary with identified folders\nSub DiscoverDynSUpdateFolders\nDim Product\nDim sRelPath, sCulture\n\nSet dicDynCultFolders = CreateObject("Scripting.Dictionary")\nFor Each Product in oMsi.Products\nIf Len(Product) = 38 Then\nIf IsOfficeProduct(Product) Then\nsRelPath = ""\nsRelPath = GetVersionMajor(Product) & ".0"\nSelect Case sRelPath\nCase "9.0","10.0","11.0"\nsCulture = LCase(GetCultureInfo(CInt("&h" & Mid(Product,6,4))))\nCase "12.0","14.0"\nsCulture = LCase(GetCultureInfo(CInt("&h" & Mid(Product,16,4))))\nIf Mid(Product,11,1) = "1" Then sRelPath = sRelPath & "\\Server" Else sRelPath = sRelPath & "\\Client"\nIf Mid(Product,21,1) = "1" Then sRelPath = sRelPath & "\\x64" Else sRelPath = sRelPath & "\\x86"\nCase Else\nEnd Select\nIf sCulture = "neutral" Then sCulture = "x-none"\nsRelPath = sRelPath & "\\" & sCulture\nIf NOT sCulture = "" Then\nIf NOT dicDynCultFolders.Exists(sCulture) Then dicDynCultFolders.Add sCulture,sCulture\nEnd If\nEnd If 'IsOfficeProduct\nEnd If '38\nNext 'Product\n\nfDynSUpdateDiscovered = True\nEnd Sub 'DiscoverSUpdateFolders\n'=======================================================================================================\n\n'Returns a boolean to determine if Excel is installed on the computer\nFunction XLInstalled()\nDim Product\n\nXLInstalled = False\nFor Each Product In oMsi.Products\nIf oMsi.FeatureState(Product,"EXCELFiles") = MSIINSTALLSTATE_LOCAL Then\nXLInstalled = True : Exit For\nEnd If\nNext 'Product\nEnd Function\n'=======================================================================================================\n\n'Returns the Msi file hash values as comma separated string list\nFunction GetMsiFileHash(sFullFileName)\nDim Record\n\nOn Error Resume Next\n\nGetMsiFileHash = ""\nSet Record = oMsi.FileHash(sFullFileName,0)\nGetMsiFileHash = Record.StringData(1)&","&Record.StringData(2)&","&Record.StringData(3)&","&Record.StringData(4)\n\nEnd Function\n'=======================================================================================================\n\n'Obtain the ProductCode (GUID) from a .msi package\n'The function will open the .msi database and query the 'Property' table to retrieve the ProductCode\nFunction GetMsiProductCode(sMsiFile)\n\nDim MsiDb,Record\nDim qView\n\nOn Error Resume Next\n\nGetMsiProductCode = ""\nSet Record = Nothing\n\nSet MsiDb = oMsi.OpenDatabase(sMsiFile,MSIOPENDATABASEMODE_READONLY)\nSet qView = MsiDb.OpenView("SELECT `Value` FROM Property WHERE `Property` = 'ProductCode'")\nqView.Execute\nSet Record = qView.Fetch\nGetMsiProductCode = Record.StringData(1)\nqView.Close\nEnd Function 'GetMsiProductCode\n'=======================================================================================================\n\n'Obtain the ProductVersion from a .msi package\n'The function will open the .msi database and query the 'Property' table to retrieve the ProductCode\nFunction GetMsiProductVersion(sMsiFile)\n\nDim MsiDb,Record\nDim qView\n\nOn Error Resume Next\n\nGetMsiProductVersion = ""\nSet Record = Nothing\n\nSet MsiDb = oMsi.OpenDatabase(sMsiFile,MSIOPENDATABASEMODE_READONLY)\nSet qView = MsiDb.OpenView("SELECT `Value` FROM Property WHERE `Property` = 'ProductVersion'")\nqView.Execute\nSet Record = qView.Fetch\nIf NOT Record Is Nothing Then GetMsiProductVersion = Record.StringData(1)\nqView.Close\nEnd Function 'GetMsiProductVersion\n'=======================================================================================================\n\n'Obtain the PackageCode (GUID) from a .msi package\n'The function will the .msi'S SummaryInformation stream\nFunction GetMsiPackageCode(sMsiFile)\n\nOn Error Resume Next\n\nGetMsiPackageCode = ""\nGetMsiPackageCode = oMsi.SummaryInformation(sMsiFile,MSIOPENDATABASEMODE_READONLY).Property(PID_REVNUMBER)\n\nEnd Function 'GetMsiPackageCode\n'=======================================================================================================\n\n'Returns a string with the patch sequence data\nFunction GetLegacyMspSeq(Msp)\n\nDim i\nDim sSeq\nDim arrTitle\n\nsSeq = ""\narrTitle = Split(Msp.SummaryInformation.Property(PID_TITLE),";")\nIf IsArray(arrTitle) Then\nIf UBound(arrTitle)>1 Then\nsSeq = arrTitle(2)\nFor i = 1 To Len(sSeq)\nIf NOT (Asc(Mid(sSeq,i,1)) >= 48 AND Asc(Mid(sSeq,i,1)) <= 57) Then \nsSeq = ""\nExit For\nEnd If\nNext 'i\nEnd If\nEnd If\n\nGetLegacyMspSeq = sSeq\n\nEnd Function 'GetMspSequence\n'=======================================================================================================\n\n'Detect the real product build number based on .msi and .msp build information\n'to allow verification of the registered build number\nFunction GetRealBuildVersion(sAppliedPatches,sProductCode)\n\nDim Element,Elements\n\nDim sProductVersionReg,sProductVersionMsi\n\nDim iIndex\n\nOn Error Resume Next\n\nsProductVersionReg = oMsi.ProductInfo(sProductCode,"VersionString")\nsProductVersionMsi = GetMsiProductVersion(oMsi.ProductInfo(sProductCode,"LocalPackage"))\nsProductVersionReal = sProductVersionMsi\n\nFor iIndex = 0 To UBound(arrSUpdatesAll)\nIf (InStr(arrSUpdatesAll(iIndex,COL_TARGETS),sProductCode)>0) Then\nIf InStr(sAppliedPatches,arrSUpdatesAll(iIndex,COL_PATCHCODE))>0 Then\nIf IsMinorUpdate(sProductCode,arrSUpdatesAll(iIndex,COL_PATCHXML)) Then\nXmlDoc.LoadXml(arrSUpdatesAll(iIndex,COL_PATCHXML))\nSet Elements = XmlDoc.GetElementsByTagName("TargetProduct")\nFor Each Element in Elements\nIf Element.selectSingleNode("TargetProductCode").text = sProductCode Then\nIf Element.selectSingleNode("UpdatedVersion").text > sProductVersionReal Then _\nsProductVersionReal = Element.selectSingleNode("UpdatedVersion").text\nEnd If\nNext 'Element\nEnd If\nEnd If\nEnd If 'InStr(arrSUpdatesAll\u2026\nNext 'iIndex\n\nIf NOT Err=0 Then GetRealBuildVersion=sProductVersionReg Else GetRealBuildVersion=sProductVersionReal\n\nEnd Function 'GetRealBuildVersion\n'=======================================================================================================\n\n'Checks if a ProductCode belongs to an Office family\nFunction IsOfficeProduct(sProductCode)\nOn Error Resume Next\n\nIsOfficeProduct = False\nIf InStr(OFFICE_ALL, UCase(Right(sProductCode,28))) > 0 OR _\nInStr(OFFICEID, UCase(Right(sProductCode,17))) > 0 Then\nIf Not Err = 0 Then Exit Function\nIsOfficeProduct = True\nEnd If\n\nEnd Function 'IsOfficeProduct\n'=======================================================================================================\n\n'Checks if a PatchCode belongs to an Office family\nFunction IsOfficePatch(sPatchTargets)\n\nDim arrPatchTargets\n\nDim Target\n\nOn Error Resume Next\n\nIsOfficePatch = False\nIf NOT Len(sPatchTargets)>1 Then Exit Function\n\narrPatchTargets = Split(sPatchTargets,";")\nFor Each Target in arrPatchTargets\nIf InStr(OFFICE_ALL, UCase(Right(Target,28))) > 0 OR _\nInStr(OFFICEID, UCase(Right(Target,17))) > 0 Then\nIf Not Err = 0 Then Exit Function\nIsOfficePatch = True\nExit Function\nEnd If\nNext 'Target\n\nEnd Function 'IsOfficePatch\n'==============================================================================================\n\n'Verify Windows Installer metadata are in a healthy state and initiate fixup if needed\nSub EnsurePatchMetadata (Patch,sProductUserSid)\nOn Error Resume Next\n\nDim RegItem,Folder,File,RegItems,MspDb,Record\nDim dicTransforms\ndim qView\nDim fGlobalConfigPatchExists,fGlobalConfigProductExists,fConfigPatchExists\nDim fConfigProductExists,fLocalPatchPackageDataExist,fNoError\nDim sPatchCodeCompressed,sRegUserSID,sHive,sRegHive,sRegKey,sRegName,sTmp,sProductCode\nDim sProductCodeCompressed,sItem,sLocalMSP,sSqlCreateTable,sMst,sDiskPrompt,sVolumeLabel\nDim sDiskId,sKey,sMspClasses,sPackageName\nDim iContext\n\nfLocalPatchPackageDataExist = False\nfGlobalConfigPatchExists = False\nfGlobalConfigProductExists = False\nfConfigPatchExists = False\nfConfigProductExists = False\nfNoError = True\n\nsPatchCodeCompressed = GetCompressedGuid(Patch.PatchCode)\nsProductCode = Patch.ProductCode\nsProductCodeCompressed = GetCompressedGuid(sProductCode)\n\nErr.Clear\nsLocalMSP = ""\nsLocalMSP = Patch.Patchproperty("LocalPackage")\nSelect Case (Err.number)\nCase 0\nfLocalPatchPackageDataExist = True\n\nCase -2147023249\n'MSI API Error -> Failed to get value for local package\nfNoError = False\nErr.Clear\nCase Else\n'Unexpected Error\nfNoError = False\nErr.Clear\nEnd Select\n\n'Prepare UserSID variable needed for registry operations\nsRegUserSID = "S-1-5-18\\"\nIf NOT sProductUserSid = "" Then sRegUserSID = sProductUserSid & "\\"\n\n'Check Global Config location\n'============================\nsHive = HKLM\nsRegHive = "HKEY_LOCAL_MACHINE\\"\n\n'Check local package registration\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014-\n'REG_GLOBALCONFIG = "Software\\Microsoft\\Windows\\CurrentVersion\\Installer\\UserData\\"\nsRegKey = REG_GLOBALCONFIG & sRegUserSID & "Patches\\" & sPatchCodeCompressed & "\\"\nsRegName = "LocalPackage"\nfGlobalConfigPatchExists = RegValExists(sHive,sRegKey,sRegName)\nIf Not fGlobalConfigPatchExists Then \nsTmp = vbTab & "Missing patch metadata. Failed to read value from: " & sRegHive & sRegKey & sRegName\nLog sTmp\nLogSummary sProductCode,sTmp\nfNoError = False\nEnd If\n\n'Check if patchkey exists for the product\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014-\n'REG_GLOBALCONFIG = "Software\\Microsoft\\Windows\\CurrentVersion\\Installer\\UserData\\"\nsRegKey = REG_GLOBALCONFIG & sRegUserSID & "Products\\" & sProductCodeCompressed & "\\Patches\\"\nfGlobalConfigProductExists = RegKeyExists (sHive, sRegKey & sPatchCodeCompressed)\nIf Not fGlobalConfigProductExists Then \nsTmp = vbTab & "Missing patch metadata. Failed to locate key: " & sRegHive & sRegKey & sPatchCodeCompressed & "\\"\nLog sTmp\nLogSummary sProductCode,sTmp\n'This could be related to a Windows Installer Upgrade scenario\nEnd If\n\n'Check per-user\/per-machine\/managed location\n'===========================================\nSelect Case (Patch.Context)\nCase 1\n'Context = "USERMANAGED"\nsHive = HKLM\nsRegHive = "HKEY_LOCAL_MACHINE\\"\n'REG_PRODUCTPERUSERMANAGED = "Software\\Microsoft\\Windows\\CurrentVersion\\Installer\\Managed\\"\nsRegKey = REG_PRODUCTPERUSERMANAGED &sRegUserSID & "\\Installer\\Patches\\" & sPatchCodeCompressed & "\\"\nCase 2\n'Context = "USER UNMANAGED"\nsHive = HKU\nsRegHive = "HKEY_USERS\\"\n'REG_PRODUCT = "Software\\Classes\\Installer\\"\nsRegKey = sRegUserSID & REG_PRODUCT & "Patches\\" & sPatchCodeCompressed & "\\"\nCase Else ' = Case 4\n'Context = "MANAGED"\nsHive = HKLM\nsRegHive = "HKEY_LOCAL_MACHINE\\"\n'REG_PRODUCT = "Software\\Classes\\Installer\\"\nsRegKey = REG_PRODUCT & "Patches\\" & sPatchCodeCompressed & "\\"\nEnd Select\nsMspClasses = sRegKey\n\n'Check registration in 'Patches' section\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\nfConfigPatchExists = RegKeyExists(sHive, sRegKey & "SourceList")\nIf Not fConfigPatchExists Then \nsTmp = vbTab & "Missing patch metadata. Failed to locate key: " & sRegHive & sRegKey & "SourceList\\"\nLog sTmp\nLogSummary sProductCode,sTmp\nfNoError = False\nEnd If\n\n'Check if patchkey exists for the product\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014-\nSelect Case (Patch.Context)\nCase 1\n'Context = "USERMANAGED"\n'REG_PRODUCTPERUSERMANAGED = "Software\\Microsoft\\Windows\\CurrentVersion\\Installer\\Managed\\"\nsRegKey = REG_PRODUCTPERUSERMANAGED & sRegUserSID & "\\Installer\\Products\\"& sProductCodeCompressed & "\\Patches\\"\nCase 2\n'Context = "USER UNMANAGED"\n'REG_PRODUCTPERUSER = "Software\\Microsoft\\Installer\\"\nsRegKey = sRegUserSID & REG_PRODUCTPERUSER & "Products\\"& sProductCodeCompressed & "\\Patches\\"\nCase Else ' = Case 4\n'Context = "MANAGED"\n'REG_PRODUCT = "Software\\Classes\\Installer\\"\nsRegKey = REG_PRODUCT & "Products\\" & sProductCodeCompressed & "\\Patches\\"\nEnd Select\nsRegName = sPatchCodeCompressed\nfConfigProductExists = RegValExists(sHive,sRegKey,sRegName)\nIf Not fConfigProductExists Then \nsTmp = vbTab & "Missing patch metadata. Failed to read value from: " & sRegHive & sRegKey & sRegName\nLog sTmp\nEnd If\n\nsRegName = "Patches"\nsTmp = ""\nRegItems = oWShell.RegRead(sRegHive & sRegKey & sRegName)\nFor Each sItem In RegItems\nsTmp = sTmp & sItem\nNext\n\nfConfigProductExists = (InStr(sTmp,sPatchCodeCompressed) > 0)\n\nIf NOT fNoError AND NOT fDetectOnly Then 'FixMspReg Patch\nsTmp = vbTab&"Repair: '"&Patch.PatchCode&"'. Fixing patch registration."\nIf fDetectOnly Then sTmp = vbTab&"Error: Registration broken for '"&Patch.PatchCode&"'. Patch registration would be fixed."\nLog sTmp\nLogSummary Patch.PatchCode,sTmp\n\nIf NOT fLocalPatchPackageDataExist Then FixMspGlobalReg Patch.PatchCode\nIf NOT fConfigPatchExists Then\nSet MspDb = oMsi.OpenDatabase(sLocalMSP,MSIOPENDATABASEMODE_PATCHFILE)\nsSqlCreateTable = "CREATE TABLE `Media` (`DiskId` SHORT NOT NULL, `LastSequence` LONG NOT NULL, `DiskPrompt` CHAR(64) LOCALIZABLE, `Cabinet` CHAR(255), `VolumeLabel` CHAR(32), `Source` CHAR(72) PRIMARY KEY `DiskId`)"\nMspDb.OpenView(sSqlCreateTable).Execute\n\n'Get the patch embedded transforms\nSet dicTransforms = CreateObject("Scripting.Dictionary")\nSet qView = MspDb.OpenView("SELECT `Name` FROM `_Storages` ORDER BY `Name`") : qView.Execute\nSet Record = qView.Fetch\nDo Until Record Is Nothing\ndicTransforms.Add Record.StringData(1),Record.StringData(1)\nSet Record = qView.Fetch\nLoop\nqView.Close\n'Apply the patch transforms to the patch itself\nFor Each sMst in dicTransforms.Keys\nMspDb.ApplyTransform ":" & sMst,MSITRANSFORMERROR_ALL\nSet TestSumInfo = MspDb.SummaryInformation\nNext 'sMst\n\n'Obtain the DiskPrompt and VolumeLabel\nSet qView = MspDb.OpenView("SELECT * FROM `_TransformView` WHERE `Table` = 'Media' ORDER BY `Row`")\nqView.Execute()\nSet Record = qView.Fetch\nIf NOT Record Is Nothing Then\nsKey = Record.StringData(3)\nEnd If\nDo Until Record Is Nothing\n'Next FTK?\nIf NOT sKey = Record.StringData(3) Then Exit Do\n'Add data from _TransformView\nSelect Case Record.StringData(2)\nCase "DiskId"\nsDiskId = Record.StringData(4)\nCase "DiskPrompt"\nsDiskPrompt = Record.StringData(4)\nCase "VolumeLabel"\nsVolumeLabel = Record.StringData(4)\nCase "CREATE"\nCase "DELETE"\nCase "DROP"\nCase "INSERT"\nCase Else\nEnd Select\nSet Record = qView.Fetch\nLoop\nqView.Close\n'StdPackageName\nSet qView = MspDb.OpenView("SELECT `Property`,`Value` FROM MsiPatchMetadata WHERE `Property`='StdPackageName'")\nqView.Execute : Set Record = qView.Fetch()\nIf Not Record Is Nothing Then\nsPackageName = Record.StringData(2)\nElse\nsPackageName = ""\nEnd If\nqView.Close\nPatch.SourceListAddSource MSISOURCETYPE_NETWORK,sWICacheDir,0\nPatch.SourceListInfo("DiskPrompt") = oMsi.ProductInfo(Patch.ProductCode, "ProductName")\noWShell.RegWrite sRegHive & sMspClasses & "SourceList\\PackageName", sPackageName,"REG_SZ"\noWShell.RegWrite sRegHive & sMspClasses & "SourceList\\Media\\100", sVolumeLabel&";"&sDiskPrompt,"REG_SZ"\n'Patch.SourceListAddMediaDisk sKey,sVolumeLabel,sDiskPrompt\nEnd If\n\nEnd If 'FixMspReg\n\nEnd Sub 'EnsurePatchMetadata\n'==============================================================================================\n\nSub FixMspGlobalReg(sPatchCode)\n\nDim sPatchCodeCompressed,sGlobalPatchKey,sValue\n\nOn Error Resume Next\n\nsPatchCodeCompressed = GetCompressedGuid(sPatchCode)\nsGlobalPatchKey = REG_GLOBALCONFIG & "S-1-5-18\\Patches\\" & sPatchCodeCompressed & "\\"\n'Create the registry key\nIf NOT RegKeyExists(HKEY_LOCAL_MACHINE,REG_GLOBALCONFIG & "S-1-5-18\\Patches\\") Then oReg.CreateKey HKEY_LOCAL_MACHINE,REG_GLOBALCONFIG & "S-1-5-18\\Patches\\"\nIf NOT RegKeyExists(HKEY_LOCAL_MACHINE,sGlobalPatchKey) Then oReg.CreateKey HKEY_LOCAL_MACHINE,sGlobalPatchKey\n\n'Obtain a filename.\n'If the file already exists in the installer cache - use that one. If not use a random filename\nIf dicRepair.Exists(sPatchCode) Then \nIf InStr(LCase(dicRepair.Item(sPatchCode)),LCase(sWICacheDir))> 0 then sValue = dicRepair.Item(sPatchCode) Else sValue = GetRandomMspName\nElse \nsValue = GetRandomMspName\nEnd If\n\n'Create the registry value\noReg.SetStringValue HKEY_LOCAL_MACHINE,sGlobalPatchKey,"LocalPackage",sValue\n\nEnd Sub 'FixMspGlobalReg\n'=======================================================================================================\n\n'Only supports per-machine installations!\nSub UpdateProductVersion(sProductCode,sProductVersion)\n\nDim sProductCodeCompressed,sHive,sGlobalConfigKey\n\nOn Error Resume Next\n\nsProductCodeCompressed = GetCompressedGuid(sProductCode)\nsHive = HKEY_LOCAL_MACHINE\nsGlobalConfigKey = REG_GLOBALCONFIG & "S-1-5-18\\Products\\" & sProductCodeCompressed & "\\InstallProperties\\"\nIf RegKeyExists(sHive,sGlobalConfigKey) Then oReg.SetStringValue sHive,sGlobalConfigKey,"DisplayVersion",sProductVersion\n\nEnd Sub 'UpdateProductVersion\n'=======================================================================================================\n\nSub UnregisterPatch(Patch)\n\nDim PatchRef,PatchR\n\nDim fReturn\n\nDim sHive,sKey,sPatchCodeCompressed,sProductCodeCompressed,sUserSid,sPatchKey,sProductKey,sPatchList\nDim sGlobalConfigKey,sGlobalPatchKey\n\nDim value\n\nDim i\n\nDim arrMultiSzValues,arrMultiSzNewValues,arrTest\n\nOn Error Resume Next\n\n'Ensure empty variables\nsHive = "" : sKey = "" : sPatchCodeCompressed = "" : sProductCodeCompressed = "" : sUserSid = ""\nsPatchKey = "" : sProductKey = "" : sPatchList = "" \nReDim arrMultiSzNewValues(-1)\ni = -1\n\n'Fill variables\nsPatchCodeCompressed = GetCompressedGuid(Patch.PatchCode)\nsProductCodeCompressed = GetCompressedGuid(Patch.ProductCode)\nsUserSid = Patch.UserSid : If sUserSid = "" Then sUserSid = "S-1-5-18\\" Else sUserSid = sUserSid & "\\"\nsGlobalConfigKey = REG_GLOBALCONFIG & sUserSid & "Products\\" & sProductCodeCompressed & "\\Patches\\" \nsGlobalPatchKey = REG_GLOBALCONFIG & sUserSid & "Patches\\" & sPatchCodeCompressed & "\\"\n\nIf Err <> 0 Then Exit Sub\n\nSelect Case (Patch.Context)\nCase MSIINSTALLCONTEXT_USERMANAGED '1\nsHive = HKEY_LOCAL_MACHINE\nsPatchKey = REG_PRODUCTPERUSERMANAGED & sUserSid & "Installer\\Patches\\" & sPatchCodeCompressed & "\\"\nsProductKey = REG_PRODUCTPERUSERMANAGED & "Products\\" & sProductCodeCompressed & "\\Patches\\"\n\nCase MSIINSTALLCONTEXT_USERUNMANAGED '2\nsHive = HKEY_CURRENT_USER\nsPatchKey = REG_PRODUCTPERUSER & "Patches\\" & sPatchCodeCompressed & "\\"\nsProductKey = REG_PRODUCTPERUSER & "Products\\" & sProductCodeCompressed & "\\Patches\\"\n\nCase Else 'Case MSIINSTALLCONTEXT_MACHINE '4 (Managed)\nsHive = HKEY_LOCAL_MACHINE\nsPatchKey = REG_PRODUCT & "Patches\\" & sPatchCodeCompressed & "\\"\nsProductKey = REG_PRODUCT & "Products\\" & sProductCodeCompressed & "\\Patches\\" \nEnd Select\n\n'Unregister the patch from ProductKey\nIf RegReadMultiStringValue(sHive,sProductKey,"Patches",arrMultiSzValues) Then\nFor Each value in arrMultiSzValues\nIf Not value = sPatchCodeCompressed Then \ni = i + 1 \nReDim Preserve arrMultiSzNewValues(i)\narrMultiSzNewValues(i) = value\nEnd If\nNext 'Value\nEnd If\nfReturn = oReg.GetMultiStringValue(sHive,sProductKey,"Patches",arrTest)\nIf fReturn = 0 Then\nLog vbTab&vbTab&"Updating value "&HiveString(sHive)&"\\"&sProductKey&"Patches"\nIf NOT fDetectOnly Then oReg.SetMultiStringValue sHive,sProductKey,"Patches",arrMultiSzNewValues\nElse\nIf fx64 Then\nfReturn = oReg.GetMultiStringValue(sHive,Wow64Key(sHive, sProductKey),"Patches",arrMultiSzNewValues)\nIf fReturn = 0 Then\nLog vbTab&vbTab&"Updating value "&HiveString(sHive)&"\\"&Wow64Key(sHive, sProductKey)&"Patches"\nIf NOT fDetectOnly Then oReg.SetMultiStringValue sHive,Wow64Key(sHive, sProductKey),"Patches",arrMultiSzNewValues\nEnd If\nEnd If 'fx64\nEnd If\nRegDeleteValue sHive,sProductKey,sPatchCodeCompressed\n\n'Unregister PatchKey\nRegDeleteKey sHive,sPatchKey\n\n'Unregister GlobalConfigKey\nReDim arrMultiSzNewValues(-1)\ni = -1\nIf RegReadMultiStringValue(sHive,sGlobalConfigKey,"AllPatches",arrMultiSzValues) Then\nFor Each Value in arrMultiSzValues\nIf Not Value = sPatchCodeCompressed Then \ni = i + 1 \nReDim Preserve arrMultiSzNewValues(i)\narrMultiSzNewValues(i) = Value\nEnd If\nNext 'Value\nEnd If\nfReturn = oReg.GetMultiStringValue(sHive,sGlobalConfigKey,"AllPatches",arrTest)\nIf fReturn = 0 Then\nLog vbTab&vbTab&"Updating value "&HiveString(sHive)&"\\"&sGlobalConfigKey&"AllPatches"\nIf NOT fDetectOnly Then oReg.SetMultiStringValue sHive,sGlobalConfigKey,"AllPatches",arrMultiSzNewValues\nElse\nIf fx64 Then\nfReturn = oReg.GetMultiStringValue(sHive,Wow64Key(sHive, sGlobalConfigKey),"AllPatches",arrMultiSzNewValues)\nIf fReturn = 0 Then\nLog vbTab&vbTab&"Updating value "&HiveString(sHive)&"\\"&Wow64Key(sHive, sGlobalConfigKey)&"AllPatches"\nIf NOT fDetectOnly Then oReg.SetMultiStringValue sHive,Wow64Key(sHive, sGlobalConfigKey),"AllPatches",arrMultiSzNewValues\nEnd If\nEnd If 'fx64\nEnd If\n\nRegDeleteKey HKEY_LOCAL_MACHINE,sGlobalConfigKey&sPatchCodeCompressed & "\\"\n\n'Unregister sGlobalPatchKey\nRegDeleteKey HKEY_LOCAL_MACHINE,sGlobalPatchKey\nEnd Sub\n'=======================================================================================================\n\nFunction ApplyPatch(sProductCode,sPatches)\n\nDim sReturn,sCmd\n\nOn Error Resume Next\n\n'Build the patch apply command\nsCmd = "msiexec.exe \/i " & sProductCode & _\n" PATCH="&chr(34)&Mid(sPatches,2)&chr(34)& _\n" REBOOT=ReallySuppress" & _\n" \/qb-" & _\n" \/l*v+ %temp%\\" & sProductCode & "_MspApply.log"\nsTmp = "Calling msiexec to apply patch(es): " & sCmd\nIf fDetectOnly Then\nsPatches = Replace(sPatches,";",vbCrLf&vbTab&vbTab)\nsTmp = "Applicable patch(es): "&sPatches\nEnd If 'fDetectOnly\nLog vbTab&"Debug: "&sTmp\nLogSummary sProductCode,vbTab&sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\n'Execute the patch apply command\nIf NOT fDetectOnly Then \nsReturn = CStr(oWShell.Run(sCmd, 0, True))\nApplyPatch = MsiexecRetVal(sReturn)\nsTmp = "Msiexec returned with code: " & sReturn &" "& MsiexecRetval(sReturn)\nLog vbTab&"Debug: "& sTmp\nLogSummary sProductCode,vbTab&sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nfRebootRequired = fRebootRequired OR (sReturn = "3010")\nIf NOT (sReturn = "0" OR sReturn = "3010") Then\n'Patch attempt failed.\nDim arrPatch,Patch\narrPatch = Split(Mid(sPatches,2),";")\nIf UBound(arrPatch) > 0 Then\n'Fall back to apply one patch at a time\nFor Each Patch in arrPatch\nsCmd = "msiexec.exe \/i " & sProductCode & _\n" PATCH="&chr(34)&Patch&chr(34)& _\n" REBOOT=ReallySuppress" & _\n" \/qb-" & _\n" \/l*v+ %temp%\\" & sProductCode & "_MspApply.log"\nsTmp = " Fallback. Calling msiexec to apply patch: " & sCmd\nLog vbTab&"Debug: "&sTmp\nLogSummary sProductCode,vbTab&sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nsReturn = CStr(oWShell.Run(sCmd, 0, True))\nsTmp = " Msiexec returned with code: " & sReturn &" "& MsiexecRetval(sReturn)\nLog vbTab&"Debug: "& sTmp\nLogSummary sProductCode,vbTab&sTmp\nIf fCscript Then wscript.echo vbTab&vbTab&sTmp\nfRebootRequired = fRebootRequired OR (sReturn = "3010")\nNext 'Patch\nEnd If 'arrPatch.Count > 1\nEnd If 'sReturn \nEnd If 'NOT fDetectOnly\n\nEnd Function 'ApplyPatch\n'=======================================================================================================\n\n'Return the primary keys of a table by using the PrimaryKeys property of the database object\n'in SQL ready syntax \nFunction GetPrimaryTableKeys(MsiDb,sTable)\nDim iKeyCnt\nDim sPrimaryTmp\nDim PrimaryKeys\nOn Error Resume Next\n\nsPrimaryTmp = ""\nSet PrimaryKeys = MsiDb.PrimaryKeys(sTable)\nFor iKeyCnt = 1 To PrimaryKeys.FieldCount\nsPrimaryTmp = sPrimaryTmp & "`"&PrimaryKeys.StringData(iKeyCnt)&"`, "\nNext 'iKeyCnt\nGetPrimaryTableKeys = Left(sPrimaryTmp,Len(sPrimaryTmp)-2)\nEnd Function 'GetPrimaryTableKeys\n'=======================================================================================================\n\n'Return the Column schema definition of a table in SQL ready syntax\nFunction GetTableColumnDef(MsiDb,sTable)\nOn Error Resume Next\nDim sQuery,sColDefTmp\nDim View,ColumnNames,ColumnTypes\nDim iColCnt\n\n'Get the ColumnInfo details\nsColDefTmp = ""\nsQuery = "SELECT * FROM " & sTable\nSet View = MsiDb.OpenView(sQuery)\nView.Execute\nSet ColumnNames = View.ColumnInfo(MSICOLUMNINFONAMES)\nSet ColumnTypes = View.ColumnInfo(MSICOLUMNINFOTYPES)\nFor iColCnt = 1 To ColumnNames.FieldCount\nsColDefTmp = sColDefTmp & ColDefToSql(ColumnNames.StringData(iColCnt),ColumnTypes.StringData(iColCnt)) & ", "\nNext 'iColCnt\nView.Close\nGetTableColumnDef = Left(sColDefTmp,Len(sColDefTmp)-2)\n\nEnd Function 'GetTableColumnDef\n'=======================================================================================================\n\n'Return the Column header names\nFunction GetTableColumnHeaders(MsiDb,sTable)\nOn Error Resume Next\nDim sQuery,sColDefTmp\nDim View,ColumnNames,ColumnTypes\nDim iColCnt\n\n'Get the ColumnInfo details\nsColDefTmp = ""\nsQuery = "SELECT * FROM " & sTable\nSet View = MsiDb.OpenView(sQuery)\nView.Execute\nSet ColumnNames = View.ColumnInfo(MSICOLUMNINFONAMES)\nFor iColCnt = 1 To ColumnNames.FieldCount\nsColDefTmp = sColDefTmp & "," & ColumnNames.StringData(iColCnt)\nNext 'iColCnt\nView.Close\nIf NOT sColDefTmp="" Then GetTableColumnHeaders = Mid(sColDefTmp,2) Else GetTableColumnHeaders=""\n\nEnd Function 'GetTableColumnHeaders\n'=======================================================================================================\n\n'Translate the column definition fields into SQL syntax\nFunction ColDefToSql(sColName,sColType)\nOn Error Resume Next\n\nDim iLen\nDim sRight,sLeft, sSqlTmp\n\niLen = Len(sColType)\nsRight = Right(sColType,iLen-1)\nsLeft = Left(sColType,1)\nsSqlTmp = "`"&sColName&"`"\nSelect Case sLeft\nCase "s","S"\n's? String, variable length (?=1-255) -> CHAR(#) or CHARACTER(#)\n's0 String, variable length -> LONGCHAR\nIf sRight="0" Then sSqlTmp = sSqlTmp & " LONGCHAR" Else sSqlTmp = sSqlTmp & " CHAR("&sRight&")"\nIf sLeft = "s" Then sSqlTmp = sSqlTmp & " NOT NULL"\nCase "l","L"\n'CHAR(#) LOCALIZABLE or CHARACTER(#) LOCALIZABLE\nIf sRight="0" Then sSqlTmp = sSqlTmp & " LONGCHAR" Else sSqlTmp = sSqlTmp & " CHAR("&sRight&")"\nIf sLeft = "l" Then sSqlTmp = sSqlTmp & " NOT NULL"\nIf sRight="0" Then sSqlTmp = sSqlTmp & " LOCALIZABLE" Else sSqlTmp = sSqlTmp & " LOCALIZABLE"\nCase "i","I"\n'i2 Short integer \n'i4 Long integer \nIf sRight="2" Then sSqlTmp = sSqlTmp & " SHORT" Else sSqlTmp = sSqlTmp & " LONG"\nIf sLeft = "i" Then sSqlTmp = sSqlTmp & " NOT NULL"\nCase "v","V"\n'v0 Binary Stream \nsSqlTmp = sSqlTmp & " OBJECT"\nIf sLeft = "v" Then sSqlTmp = sSqlTmp & " NOT NULL"\nCase "g","G"\n'g? Temporary string (?=0-255)\nCase "j","J"\n'j? Temporary integer (?=0,1,2,4)) \nCase "o","O"\n'O0 Temporary object \nCase Else\nEnd Select\n\nColDefToSql = sSqlTmp\n\nEnd Function 'ColDefToSql\n'=======================================================================================================\n\n'Registry Helper Routines\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\n\n'=======================================================================================================\n\n'Register context menu\nSub RegisterShellExt\n\n'Ensure to unregister old contents first\nUnRegisterShellExt\n\n'Register \noReg.CreateKey HKCR,"Msi.Patch"\noReg.CreateKey HKCR,"Msi.Patch\\shell"\n\noReg.CreateKey HKCR,"Msi.Patch\\shell\\OPUtil ApplyPatch"\noReg.CreateKey HKCR,"Msi.Patch\\shell\\OPUtil ApplyPatch\\command"\noReg.SetStringValue HKCR,"Msi.Patch\\shell\\OPUtil ApplyPatch\\command",,"wscript "&chr(34)&wscript.ScriptFullName&chr(34)&" \/ContextMenu \/ApplyPatch="&chr(34)&"%1%"&chr(34)\n\noReg.CreateKey HKCR,"Msi.Patch\\shell\\OPUtil CabExtract"\noReg.CreateKey HKCR,"Msi.Patch\\shell\\OPUtil CabExtract\\command"\noReg.SetStringValue HKCR,"Msi.Patch\\shell\\OPUtil CabExtract\\command",,"wscript "&chr(34)&wscript.ScriptFullName&chr(34)&" \/ContextMenu \/CabExtract="&chr(34)&"%1%"&chr(34)\n\noReg.CreateKey HKCR,"Msi.Patch\\shell\\OPUtil RemovePatch"\noReg.CreateKey HKCR,"Msi.Patch\\shell\\OPUtil RemovePatch\\command"\noReg.SetStringValue HKCR,"Msi.Patch\\shell\\OPUtil RemovePatch\\command",,"wscript "&chr(34)&wscript.ScriptFullName&chr(34)&" \/ContextMenu \/RemovePatch="&chr(34)&"%1%"&chr(34)\n\noReg.CreateKey HKCR,"Msi.Patch\\shell\\OPUtil ViewPatch"\noReg.CreateKey HKCR,"Msi.Patch\\shell\\OPUtil ViewPatch\\command"\noReg.SetStringValue HKCR,"Msi.Patch\\shell\\OPUtil ViewPatch\\command",,"wscript "&chr(34)&wscript.ScriptFullName&chr(34)&" \/ContextMenu \/ViewPatch="&chr(34)&"%1%"&chr(34)\n\n' oReg.CreateKey HKCR,"Msi.Patch\\shell\\OPUtil ViewPatch (DeepScan)"\n' oReg.CreateKey HKCR,"Msi.Patch\\shell\\OPUtil ViewPatch (DeepScan)\\command"\n' oReg.SetStringValue HKCR,"Msi.Patch\\shell\\OPUtil ViewPatch (DeepScan)\\command",,"wscript "&chr(34)&wscript.ScriptFullName&chr(34)&" \/ContextMenu \/DeepScan \/ViewPatch="&chr(34)&"%1%"&chr(34)\n\nEnd Sub 'RegisterShellExt\n'=======================================================================================================\n\n'Register context menu\nSub UnRegisterShellExt\n\nDim arrKeys\nDim Key\nDim sSubKeyName\n\nsSubKeyName = "Msi.Patch\\shell\\"\nIf (oReg.EnumKey(HKCR,sSubKeyName,arrKeys)=0) AND IsArray(arrKeys) Then\nFor Each Key in arrKeys\nIf InStr(Key,"OPUtil")>0 Then RegDeleteKey HKCR,sSubKeyName&Key\nNext 'Key\nEnd If\n\nEnd Sub 'RegisterShellExt\n'=======================================================================================================\n\nFunction RegKeyExists(hDefKey,sSubKeyName)\nOn Error Resume Next\nDim arrKeys\nRegKeyExists = False\nIf oReg.EnumKey(hDefKey,sSubKeyName,arrKeys) = 0 Then RegKeyExists = True\nEnd Function\n'=======================================================================================================\n\nFunction HiveString(hDefKey)\nOn Error Resume Next\nSelect Case hDefKey\nCase HKCR : HiveString = "HKEY_CLASSES_ROOT"\nCase HKCU : HiveString = "HKEY_CURRENT_USER"\nCase HKLM : HiveString = "HKEY_LOCAL_MACHINE"\nCase HKU : HiveString = "HKEY_USERS"\nCase Else : HiveString = hDefKey\nEnd Select\nEnd Function\n'=======================================================================================================\n\nFunction RegValExists(hDefKey,sSubKeyName,sName)\nDim arrValueTypes, arrValueNames\nDim i\n\nOn Error Resume Next\nRegValExists = False\nIf Not RegKeyExists(hDefKey,sSubKeyName) Then Exit Function\nIf oReg.EnumValues(hDefKey,sSubKeyName,arrValueNames,arrValueTypes) = 0 AND IsArray(arrValueNames) Then\nFor i = 0 To UBound(arrValueNames) \nIf LCase(arrValueNames(i)) = Trim(LCase(sName)) Then RegValExists = True\nNext \nEnd If 'oReg.EnumValues\nEnd Function\n'=======================================================================================================\n\nFunction RegReadMultiStringValue(hDefKey,sSubKeyName,sName,arrValues)\nDim RetVal\n\nOn Error Resume Next\nRetVal = oReg.GetMultiStringValue(hDefKey,sSubKeyName,sName,arrValues)\nIf Not RetVal = 0 AND fx64 Then RetVal = oReg.GetMultiStringValue(hDefKey,Wow64Key(hDefKey, sSubKeyName),sName,arrValues)\n\nRegReadMultiStringValue = (RetVal = 0 AND IsArray(arrValues))\nEnd Function 'RegReadMultiStringValue\n'=======================================================================================================\n\n'Enumerate a registry key to return all values\nFunction RegEnumValues(hDefKey,sSubKeyName,arrNames, arrTypes)\nDim RetVal, RetVal64\nDim arrNames32, arrNames64, arrTypes32, arrTypes64\n\nOn Error Resume Next\nIf fx64 Then\nRetVal = oReg.EnumValues(hDefKey,sSubKeyName,arrNames32,arrTypes32)\nRetVal64 = oReg.EnumValues(hDefKey,Wow64Key(hDefKey, sSubKeyName),arrNames64,arrTypes64)\nIf (RetVal = 0) AND (Not RetVal64 = 0) AND IsArray(arrNames32) AND IsArray(arrTypes32) Then \narrNames = arrNames32\narrTypes = arrTypes32\nEnd If\nIf (Not RetVal = 0) AND (RetVal64 = 0) AND IsArray(arrNames64) AND IsArray(arrTypes64) Then \narrNames = arrNames64\narrTypes = arrTypes64\nEnd If\nIf (RetVal = 0) AND (RetVal64 = 0) AND IsArray(arrNames32) AND IsArray(arrNames64) AND IsArray(arrTypes32) AND IsArray(arrTypes64) Then \narrNames = RemoveDuplicates(Split((Join(arrNames32,"\\") & "\\" & Join(arrNames64,"\\")),"\\"))\narrTypes = RemoveDuplicates(Split((Join(arrTypes32,"\\") & "\\" & Join(arrTypes64,"\\")),"\\"))\nEnd If\nElse\nRetVal = oReg.EnumValues(hDefKey,sSubKeyName,arrNames,arrTypes)\nEnd If 'fx64\nRegEnumValues = ((RetVal = 0) OR (RetVal64 = 0)) AND IsArray(arrNames) AND IsArray(arrTypes)\nEnd Function 'RegEnumValues\n'=======================================================================================================\n\n'Enumerate a registry key to return all subkeys\nFunction RegEnumKey(hDefKey,sSubKeyName,arrKeys)\nDim RetVal, RetVal64\nDim arrKeys32, arrKeys64\n\nOn Error Resume Next\nIf fx64 Then\nRetVal = oReg.EnumKey(hDefKey,sSubKeyName,arrKeys32)\nRetVal64 = oReg.EnumKey(hDefKey,Wow64Key(hDefKey, sSubKeyName),arrKeys64)\nIf (RetVal = 0) AND (Not RetVal64 = 0) AND IsArray(arrKeys32) Then arrKeys = arrKeys32\nIf (Not RetVal = 0) AND (RetVal64 = 0) AND IsArray(arrKeys64) Then arrKeys = arrKeys64\nIf (RetVal = 0) AND (RetVal64 = 0) Then \nIf IsArray(arrKeys32) AND IsArray (arrKeys64) Then \narrKeys = RemoveDuplicates(Split((Join(arrKeys32,"\\") & "\\" & Join(arrKeys64,"\\")),"\\"))\nElseIf IsArray(arrKeys64) Then\narrKeys = arrKeys64\nElse\narrKeys = arrKeys32\nEnd If\nEnd If\nElse\nRetVal = oReg.EnumKey(hDefKey,sSubKeyName,arrKeys)\nEnd If 'fx64\nRegEnumKey = ((RetVal = 0) OR (RetVal64 = 0)) AND IsArray(arrKeys)\nEnd Function 'RegEnumKey\n'=======================================================================================================\n\n'Wrapper around oReg.DeleteValue to handle 64 bit\nSub RegDeleteValue(hDefKey, sSubKeyName, sName)\nDim sWow64Key\n\nOn Error Resume Next\nIf RegValExists(hDefKey,sSubKeyName,sName) Then\nOn Error Resume Next\nLog vbTab&vbTab&"Deleting value "&HiveString(hDefKey)&"\\"&sSubKeyName&sName\nIf NOT fDetectOnly Then oReg.DeleteValue hDefKey, sSubKeyName, sName\nOn Error Goto 0\nEnd If 'RegValExists\nIf fx64 Then \nsWow64Key = Wow64Key(hDefKey, sSubKeyName)\nIf RegValExists(hDefKey,sWow64Key,sName) Then\nOn Error Resume Next\nLog vbTab&vbTab&"Deleting value "&HiveString(hDefKey)&"\\"&sWow64Key&sName\nIf NOT fDetectOnly Then oReg.DeleteValue hDefKey, sWow64Key, sName\nOn Error Goto 0\nEnd If 'RegValExists\nEnd If\nEnd Sub 'RegDeleteValue\n'=======================================================================================================\n\n'Wrappper around RegDeleteKeyEx to handle 64bit scenarios\nSub RegDeleteKey(hDefKey, sSubKeyName)\nDim sWow64Key\n\nOn Error Resume Next\nIf RegKeyExists(hDefKey, sSubKeyName) Then\n'Get the list of patches for the product\n\nOn Error Resume Next\nRegDeleteKeyEx hDefKey, sSubKeyName\nOn Error Goto 0\nEnd If 'RegKeyExists\nIf fx64 Then \nsWow64Key = Wow64Key(hDefKey, sSubKeyName)\nIf RegKeyExists(hDefKey,sWow64Key) Then\nOn Error Resume Next\nRegDeleteKeyEx hDefKey, sWow64Key\nOn Error Goto 0\nEnd If 'RegKeyExists\nEnd If\nEnd Sub 'RegDeleteKey\n'=======================================================================================================\n\n'Recursively delete a registry structure\nSub RegDeleteKeyEx(hDefKey, sSubKeyName) \nDim arrSubkeys\nDim sSubkey\n\nOn Error Resume Next\nDo While InStr(sSubKeyName,"\\\\")>0\nsSubKeyName = Replace(sSubKeyName,"\\\\","\\")\nLoop\nIf Not Right(sSubKeyName,1)="\\" Then sSubKeyName=sSubKeyName&"\\"\noReg.EnumKey hDefKey, sSubKeyName, arrSubkeys \nIf IsArray(arrSubkeys) Then \nFor Each sSubkey In arrSubkeys \nRegDeleteKeyEx hDefKey, sSubKeyName & sSubkey & "\\"\nNext \nEnd If \nLog vbTab&vbTab&"Deleting key "&HiveString(hDefKey)&"\\"&sSubKeyName\nIf NOT fDetectOnly Then oReg.DeleteKey hDefKey, sSubKeyName \nEnd Sub 'RegDeleteKeyEx\n'=======================================================================================================\n\n'Return the alternate regkey location on 64bit environment\nFunction Wow64Key(hDefKey, sSubKeyName)\nDim iPos\n\nOn Error Resume Next\nSelect Case hDefKey\nCase HKCU\nIf Left(sSubKeyName,17) = "Software\\Classes\\" Then\nWow64Key = Left(sSubKeyName,17) & "Wow6432Node\\" & Right(sSubKeyName,Len(sSubKeyName)-17)\nElse\niPos = InStr(sSubKeyName,"\\")\nWow64Key = Left(sSubKeyName,iPos) & "Wow6432Node\\" & Right(sSubKeyName,Len(sSubKeyName)-iPos)\nEnd If\n\nCase HKLM\nIf Left(sSubKeyName,17) = "Software\\Classes\\" Then\nWow64Key = Left(sSubKeyName,17) & "Wow6432Node\\" & Right(sSubKeyName,Len(sSubKeyName)-17)\nElse\niPos = InStr(sSubKeyName,"\\")\nWow64Key = Left(sSubKeyName,iPos) & "Wow6432Node\\" & Right(sSubKeyName,Len(sSubKeyName)-iPos)\nEnd If\n\nCase Else\nWow64Key = "Wow6432Node\\" & sSubKeyName\n\nEnd Select 'hDefKey\nEnd Function 'Wow64Key\n'=======================================================================================================\n\n'File Helper Routines\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\n\n'=======================================================================================================\n\n'Function to compare two numbers of unspecified format\n'Return values:\n'Left file version is lower than right file version -1\n'Left file version is identical to right file version 0\n'Left file version is higher than right file version 1\n'Invalid comparison 2\n\nFunction CompareVersion(sFile1, sFile2, bAllowBlanks)\n\nDim file1, file2\nDim sDelimiter\nDim iCnt, iAsc, iMax, iF1, iF2\nDim bLEmpty,bREmpty\n\nCompareVersion = 0\nbLEmpty = False\nbREmpty = False\n\n'Ensure valid inputs values\nOn Error Resume Next\nIf IsEmpty(sFile1) Then bLEmpty = True\nIf IsEmpty(sFile2) Then bREmpty = True\nIf sFile1 = "" Then bLEmpty = True\nIf sFile2 = "" Then bREmpty = True\n\n'Don't allow alpha characters\nIf Not bLEmpty Then\nFor iCnt = 1 To Len(sFile1)\niAsc = Asc(UCase(Mid(sFile1,iCnt,1)))\nIf (iAsc>64) AND (iAsc<91) Then\nCompareVersion = 2\nExit Function\nEnd If\nNext 'iCnt\nEnd If\nIf Not bREmpty Then\nFor iCnt = 1 To Len(sFile2)\niAsc = Asc(UCase(Mid(sFile2,iCnt,1)))\nIf (iAsc>64) AND (iAsc<91) Then\nCompareVersion = 2\nExit Function\nEnd If\nNext 'iCnt\nEnd If\n\nIf bLEmpty AND (NOT bREmpty) Then\nIf bAllowBlanks Then CompareVersion = -1 Else CompareVersion = 2\nExit Function\nEnd If\n\nIf (NOT bLEmpty) AND bREmpty Then\nIf bAllowBlanks Then CompareVersion = 1 Else CompareVersion = 2\nExit Function\nEnd If\n\nIf bLEmpty AND bREmpty Then\nIf bAllowBlanks Then CompareVersion = 0 Else CompareVersion = 2\nExit Function\nEnd If\n\n'If Files are identical we're already done\nIf sFile1 = sFile2 Then Exit Function\n\n'Split the VersionString\nfile1 = Split(sFile1,Delimiter(sFile1))\nfile2 = Split(sFile2,Delimiter(sFile2))\n\n'Ensure we get the lower count\niMax = UBound(file1)\nCompareVersion = -1\nIf iMax > UBound(file2) Then \niMax = UBound(file2)\nCompareVersion = 1\nEnd If\n\n'Compare the file versions\nFor iCnt = 0 To iMax\niF1 = CLng(file1(iCnt))\niF2 = CLng(file2(iCnt))\nIf iF1 > iF2 Then\nCompareVersion = 1\nExit For\nElseIf iF1 < iF2 Then\nCompareVersion = -1\nExit For\nEnd If\nNext 'iCnt\nEnd Function\n'=======================================================================================================\n\n'Use WI ProvideAssembly function to identify the path for an assembly.\n'Returns the path to the file if the file exists.\n'Returns an empty string if file does not exist\n\nFunction GetAssemblyPath(sLfn,sKeyPath,sDir)\nOn Error Resume Next\nDim sFile,sFolder,sExt,sRoot,sName\nDim arrTmp\n\n'Defaults\nGetAssemblyPath=""\nsFile="" : sFolder="" : sExt="" : sRoot="" : sName=""\n\n'The componentpath should already point to the correct folder\n'except for components with a registry keypath element.\n'In that case tweak the directory folder to match\nIf Left(sKeyPath,1)="0" Then\nsFolder = sDir\nsFolder = oWShell.ExpandEnvironmentStrings("%SYSTEMROOT%")&Mid(sFolder,InStr(LCase(sFolder),"\\winsxs\\"))\nsFile = sLfn\nEnd If 'Left(sKeyPath,1)="0"\n\n'Figure out the correct file reference\nIf sFolder = "" Then sFolder = Left(sKeyPath,InStrRev(sKeyPath,"\\"))\nsRoot = Left(sFolder,InStrRev(sFolder,"\\",Len(sFolder)-1))\narrTmp = Split(sFolder,"\\")\nIf IsArray(arrTmp) AND UBound(arrTmp)>0 Then sName = arrTmp(UBound(arrTmp)-1)\nIf sFile = "" Then sFile = Right(sKeyPath,Len(sKeyPath)-InStrRev(sKeyPath,"\\"))\nIf oFso.FileExists(sFolder&sLfn) Then \nsFile = sLfn\nElse\n'Handle .cat, .manifest and .policy files\nIf InStr(sLfn,".")>0 Then\nsExt = Mid(sLfn,InStrRev(sLfn,"."))\nSelect Case LCase(sExt)\nCase ".cat"\nsFile = Left(sFile,InStrRev(sFile,"."))&"cat"\nIf Not oFso.FileExists(sFolder&sFile) Then\n'Check Manifest folder\nIf oFso.FileExists(sRoot&"Manifests\\"&sName&".cat") Then\nsFolder = sRoot&"Manifests\\"\nsFile = sName&".cat"\nElse\nIf oFso.FileExists(sRoot&"Policies\\"&sName&".cat") Then\nsFolder = sRoot&"Policies\\"\nsFile = sName&".cat"\nEnd If\nEnd If\nEnd If\nCase ".manifest"\nsFile = Left(sFile,InStrRev(sFile,"."))&"manifest"\nIf oFso.FileExists(sRoot&"Manifests\\"&sName&".manifest") Then\nsFolder = sRoot&"Manifests\\"\nsFile = sName&".manifest"\nEnd If\nCase ".policy"\nIf iVersionNT < 600 Then\nsFile = Left(sFile,InStrRev(sFile,"."))&"policy"\nIf oFso.FileExists(sRoot&"Policies\\"&sName&".policy") Then\nsFolder = sRoot&"Policies\\"\nsFile = sName&".policy"\nEnd If\nElse\nsFile = Left(sFile,InStrRev(sFile,"."))&"manifest"\nIf oFso.FileExists(sRoot&"Manifests\\"&sName&".manifest") Then\nsFolder = sRoot&"Manifests\\"\nsFile = sName&".manifest"\nEnd If\nEnd If\nCase Else\nEnd Select\n\nEnd If 'InStr(sFile,".")>0\nEnd If\n\nGetAssemblyPath = sFolder&sFile\n\nEnd Function 'GetAssemblyPath\n'=======================================================================================================\n\n'Routine to check if it's required to extract .msp files first\nSub CheckPatchExtract\n\nConst COL_FILEDESCRIPTION = 34\nConst COL_FILEVERSION = 145\n\nDim File, location\nDim iMspCnt,iExeCnt\n\nFor Each location in arrUpdateLocations\nIf NOT location = sWiCacheDir Then\niMspCnt = 0 : iExeCnt = 0\nFor Each File in oFso.GetFolder(location).Files\nIf LCase(Right(File.Name,4))=".msp" Then iMspCnt=iMspCnt+1\nIf LCase(Right(File.Name,4))=".exe" Then iExeCnt=iExeCnt+1\nNext 'File\nIf (iMspCnt=0) AND (iExeCnt>0) Then\nFor Each File in oFso.GetFolder(location).Files\nIf LCase(Right(File.Name,4))=".exe" Then \nIf InStr(LCase(GetDetailsOf(File,COL_FILEDESCRIPTION)),"(kb")>0 Then\nExtractPatch File\nEnd If\nEnd If\nNext 'File\nEnd If\nEnd If 'sWiCacheDir\nNext 'location\n\nEnd Sub 'CheckPatchExtract\n'=======================================================================================================\n\nFunction GetDetailsOf(File,iColumn)\nDim oFolder,oFolderItem\n\nset oFolder = oShellApp.NameSpace(File.ParentFolder.Path)\n\nIf (NOT oFolder Is Nothing) Then\nSet oFolderItem = oFolder.ParseName(File.Name)\nIf (NOT oFolderItem Is Nothing) Then\nGetDetailsOf = oFolder.GetDetailsOf(oFolderItem, iColumn)\nEnd If\nEnd If\nEnd Function 'GetDetailsOf\n'=======================================================================================================\n\nSub ExtractPatch (File)\n\nDim sCmd,sReturn\n\nOn Error Resume Next\n\nsCmd = chr(34)&File.Path&chr(34) & " \/extract:"&chr(34)&File.ParentFolder.Path&chr(34)&" \/quiet" \nsReturn = oWShell.Run(sCmd,1,True)\nsTmp = vbTab&"Extracting patch "&File.Name&" returned: "&sReturn&" "& ExtractorRetval(sReturn)\nLog sTmp\nIf fCscript Then wscript.echo sTmp\nEnd Sub\n'=======================================================================================================\n\n'Query Wmi to identify local hard disks.\n'The result is stored in a global dic array\n\nSub FindLocalDisks\n\nDim LogicalDisks,Disk\n\nOn Error Resume Next\n\nSet LogicalDisks = oWmiLocal.ExecQuery("Select * from Win32_LogicalDisk")\nFor Each Disk in LogicalDisks\nIf Disk.DriveType = DISK_LOCAL Then dicLocalDisks.Add Disk.DeviceID,DISK_LOCAL\nNext 'Disk\n\nEnd Sub 'FindLocalDisks\n'=======================================================================================================\n\nSub Log(sLog)\nLogStream.WriteLine sLog\nEnd Sub 'Log\n'=======================================================================================================\n\nFunction GetRandomMspName()\n\nDim sRandom\n\nDim iHigh,iLow, iRnd\n\nOn Error Resume Next\n\niHigh = 268365550\niLow = 1048576\n\nRandomize\nsRandom = sWICacheDir\niRnd = Rnd\nsRandom = sWICacheDir & LCase(Hex((iHigh-iLow + 1) * Rnd + iLow))&".msp"\nWhile oFso.FileExists(sRandom)\nRandomize\nsRandom = sWICacheDir & LCase(Hex((iHigh-iLow + 1) * Rnd + iLow))&".msp"\nWend\n\nGetRandomMspName = sRandom\nEnd Function 'GetRandomMspName\n'=======================================================================================================\n\n'String Helper Routines\n'\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\n\n'=======================================================================================================\n\nSub LogSummary(sProductCode,sLog)\nOn Error Resume Next\nIf dicSummary.Exists(sProductCode) Then\ndicSummary.Item(sProductCode) = dicSummary.Item(sProductCode)&sLog&vbCrLf\nElse\ndicSummary.Add sProductCode,vbCrLf&sLog&vbCrLf\nEnd If\nEnd Sub 'Log\n'=======================================================================================================\n\n'Translate the Office build to the SP level\n'Possible return values are RTM,SP1,SP2,SP3 or ""\nFunction GetSpLevel(sBuild)\n\nDim arrVersionString\n\nGetSpLevel = ""\n\narrVersionString = Split(sBuild,".")\nIf NOT IsArray(arrVersionString) Then Exit Function\nIf NOT UBound(arrVersionString)>1 Then Exit Function 'Require "major.minor.build" format\n\nSelect Case arrVersionString(0) 'BuildMajor\nCase "14"\nCase "12"\nSelect Case arrVersionstring(2)\nCase "4518" : GetSpLevel = " - RTM"\nCase "6213","6215","6219" : GetSpLevel = " - SP1"\nCase "6425" : GetSpLevel = " - SP2"\nCase Else\nEnd Select\nCase "11"\nSelect Case arrVersionstring(2)\nCase "3216","5510","5614" : GetSpLevel = " - RTM"\nCase "4301","6353","6355","6361","6707" : GetSpLevel = " - SP1"\nCase "7969" : GetSpLevel = " - SP2"\nCase "8173" : GetSpLevel = " - SP3"\nCase Else\nEnd Select\nCase "10"\nSelect Case arrVersionstring(2)\nCase "525","2623","2627","2915" : GetSpLevel = " - RTM"\nCase "2514","3416","3506","3520" : GetSpLevel = " - SP1"\nCase "4128","4219","4330","5110" : GetSpLevel = " - SP2"\nCase "6308","6612","6626" : GetSpLevel = " - SP3"\nCase Else\nEnd Select\nCase "9"\nSelect Case arrVersionstring(2)\nCase "2720" : GetSpLevel = " - RTM"\nCase "3821" : GetSpLevel = " - SR1"\nCase "4527" : GetSpLevel = " - SP2"\nCase "9327" : GetSpLevel = " - SP3"\nCase Else\nEnd Select\nCase Else\nEnd Select\n\nEnd Function\n'=======================================================================================================\n\nSub ComputerProperties\nDim oOsItem\nDim arrVersion\nDim qOS\nOn Error Resume Next\n\nsComputerName = oWShell.ExpandEnvironmentStrings("%COMPUTERNAME%")\n\n'OS info from WMI Win32_OperatingSystem\nSet qOS = oWmiLocal.ExecQuery("Select * from Win32_OperatingSystem")\nFor Each oOsItem in qOS \nsOSinfo = "Operating System: " & oOsItem.Caption\nsOSinfo = sOSinfo &","& "Service Pack: SP " & oOsItem.ServicePackMajorVersion\nsOSinfo = sOSinfo &","& "Version: " & oOsItem.Version\nsOsVersion = oOsItem.Version\nsOSinfo = sOSinfo &","& "Codepage: " & oOsItem.CodeSet\nsOSinfo = sOSinfo &","& "Country Code: " & oOsItem.CountryCode\nsOSinfo = sOSinfo &","& "Language: " & oOsItem.OSLanguage\nNext\n\n'Build the VersionNT number\narrVersion = Split(sOsVersion,Delimiter(sOsVersion))\niVersionNt = CInt(arrVersion(0))*100 + CInt(arrVersion(1))\n\nEnd Sub 'ComputerProperties\n'=======================================================================================================\n\n'Sorts an array in descending order\nFunction BubbleSort(arrBubble)\n\nDim sTmp\n\nDim iCntOuter,iCntInner\n\nOn Error Resume Next\nBubbleSort = arrBubble\nIf NOT IsArray(arrBubble) Then Exit Function\n\nFor iCntOuter = UBound(arrBubble)-1 To 0 Step -1\n'Inner sort loop\nFor iCntInner = 0 To iCntOuter\nIf arrBubble(iCntInner) < arrBubble(iCntInner+1) Then\nsTmp = arrBubble(iCntInner+1)\narrBubble(iCntInner+1) = arrBubble(iCntInner)\narrBubble(iCntInner) = sTmp\nEnd If\nNext 'iCntInner\nNext 'iCntOuter\nBubbleSort = arrBubble\nEnd Function\n'=======================================================================================================\n\n'Returns the delimiter of a number string\nFunction Delimiter (sVersion)\n\nDim iCnt, iAsc\n\nDelimiter = " "\nFor iCnt = 1 To Len(sVersion)\niAsc = Asc(Mid(sVersion, iCnt, 1))\nIf Not (iASC >= 48 And iASC <= 57) Then \nDelimiter = Mid(sVersion, iCnt, 1)\nExit Function\nEnd If\nNext 'iCnt\nEnd Function\n'=======================================================================================================\n\n'Returns an array with valid folder locations.\n'Local folders first (except WICacheDir), network folders, WICacheDir last\nFunction EnsureLocation(sLocations)\n\nDim sLocation,sLocalLocations,sNetworkLocations,DynLocation\n\nDim fLocal\n\nDim arrLocations\n\nOn Error Resume Next\nsLocalLocations = "" : sNetworkLocations = ""\nsLocations = sLocations &";"&sScriptDir\nsLocations = Replace(sLocations,",",";")\narrLocations = RemoveDuplicates(Split(sLocations,";"))\nsLocations = ""\nIf NOT fDynSUpdateDiscovered Then DiscoverDynSUpdateFolders\nFor Each Location in arrLocations\nsLocation=""\nsLocation = Location\nIf oFso.FolderExists(sLocation) Then\n'Ensure trailing '\\'\nIf NOT Right(sLocation,1)="\\" Then sLocation=sLocation&"\\"\nfLocal=dicLocalDisks.Exists(Left(sLocation,2))\nIf fLocal _\nThen sLocalLocations=sLocalLocations&";"&sLocation _\nElse sNetworkLocations=sNetworkLocations&";"&sLocation\nFor Each DynLocation in dicDynCultFolders.Keys\nIf oFso.FolderExists(sLocation & DynLocation) Then\nIf NOT Right(DynLocation,1)="\\" Then sLocation=sLocation&"\\"\nIf fLocal _\nThen sLocalLocations=sLocalLocations&";"&sLocation & DynLocation _\nElse sNetworkLocations=sNetworkLocations&";"&sLocation & DynLocation\nEnd If\nNext 'DynLocation\nEnd If\nNext 'Location\nsLocations = sLocalLocations&sNetworkLocations&";"&sWICacheDir\nEnsureLocation=RemoveDuplicates(Split(Mid(sLocations,2),";"))\n\nEnd Function 'EnsureLocation\n'=======================================================================================================\n\n'Remove duplicate entries from a one dimensional array\nFunction RemoveDuplicates(Array)\nDim Item\nDim oDic\n\nOn Error Resume Next\nSet oDic = CreateObject("Scripting.Dictionary")\nFor Each Item in Array\nIf Not oDic.Exists(Item) Then oDic.Add Item,Item\nNext 'Item\nRemoveDuplicates = oDic.Keys\nEnd Function 'RemoveDuplicates\n'=======================================================================================================\n\n'Converts the GUID \/ ProductCode into the compressed format\nFunction GetCompressedGuid (sGuid)\n\nDim sCompGUID\n\nDim i\n\nOn Error Resume Next\nsCompGUID = StrReverse(Mid(sGuid,2,8)) & _\nStrReverse(Mid(sGuid,11,4)) & _\nStrReverse(Mid(sGuid,16,4)) \nFor i = 21 To 24\nIf i Mod 2 Then\nsCompGUID = sCompGUID & Mid(sGuid, (i + 1), 1)\nElse\nsCompGUID = sCompGUID & Mid(sGuid, (i - 1), 1)\nEnd If\nNext\nFor i = 26 To 37\nIf i Mod 2 Then\nsCompGUID = sCompGUID & Mid(sGuid, (i - 1), 1)\nElse\nsCompGUID = sCompGUID & Mid(sGuid, (i + 1), 1)\nEnd If\nNext\nGetCompressedGuid = sCompGUID\n\nEnd Function\n'=======================================================================================================\n\nFunction GetExpandedGuid (sGuid)\n\nDim sExpandGuid\nDim i\n\nOn Error Resume Next\nsExpandGuid = "{" & StrReverse(Mid(sGuid,1,8)) & "-" & _\nStrReverse(Mid(sGuid,9,4)) & "-" & _\nStrReverse(Mid(sGuid,13,4))& "-"\nFor i = 17 To 20\nIf i Mod 2 Then\nsExpandGuid = sExpandGuid & mid(sGuid,(i + 1),1)\nElse\nsExpandGuid = sExpandGuid & mid(sGuid,(i - 1),1)\nEnd If\nNext\nsExpandGuid = sExpandGuid & "-"\nFor i = 21 To 32\nIf i Mod 2 Then\nsExpandGuid = sExpandGuid & mid(sGuid,(i + 1),1)\nElse\nsExpandGuid = sExpandGuid & mid(sGuid,(i - 1),1)\nEnd If\nNext\nsExpandGuid = sExpandGuid & "}"\nGetExpandedGuid = sExpandGuid\n\nEnd Function\n'=======================================================================================================\n\n'Translation for msiexec.exe error codes\nFunction MsiexecRetVal(iRetVal)\nOn Error Resume Next\nSelect Case iRetVal\nCase 0 : MsiexecRetVal = "Success"\nCase 1259 : MsiexecRetVal = "APPHELP_BLOCK"\nCase 1601 : MsiexecRetVal = "INSTALL_SERVICE_FAILURE"\nCase 1602 : MsiexecRetVal = "INSTALL_USEREXIT"\nCase 1603 : MsiexecRetVal = "INSTALL_FAILURE"\nCase 1604 : MsiexecRetVal = "INSTALL_SUSPEND"\nCase 1605 : MsiexecRetVal = "UNKNOWN_PRODUCT"\nCase 1606 : MsiexecRetVal = "UNKNOWN_FEATURE"\nCase 1607 : MsiexecRetVal = "UNKNOWN_COMPONENT"\nCase 1608 : MsiexecRetVal = "UNKNOWN_PROPERTY"\nCase 1609 : MsiexecRetVal = "INVALID_HANDLE_STATE"\nCase 1610 : MsiexecRetVal = "BAD_CONFIGURATION"\nCase 1611 : MsiexecRetVal = "INDEX_ABSENT"\nCase 1612 : MsiexecRetVal = "INSTALL_SOURCE_ABSENT"\nCase 1613 : MsiexecRetVal = "INSTALL_PACKAGE_VERSION"\nCase 1614 : MsiexecRetVal = "PRODUCT_UNINSTALLED"\nCase 1615 : MsiexecRetVal = "BAD_QUERY_SYNTAX"\nCase 1616 : MsiexecRetVal = "INVALID_FIELD"\nCase 1618 : MsiexecRetVal = "INSTALL_ALREADY_RUNNING"\nCase 1619 : MsiexecRetVal = "INSTALL_PACKAGE_OPEN_FAILED"\nCase 1620 : MsiexecRetVal = "INSTALL_PACKAGE_INVALID"\nCase 1621 : MsiexecRetVal = "INSTALL_UI_FAILURE"\nCase 1622 : MsiexecRetVal = "INSTALL_LOG_FAILURE"\nCase 1623 : MsiexecRetVal = "INSTALL_LANGUAGE_UNSUPPORTED"\nCase 1624 : MsiexecRetVal = "INSTALL_TRANSFORM_FAILURE"\nCase 1625 : MsiexecRetVal = "INSTALL_PACKAGE_REJECTED"\nCase 1626 : MsiexecRetVal = "FUNCTION_NOT_CALLED"\nCase 1627 : MsiexecRetVal = "FUNCTION_FAILED"\nCase 1628 : MsiexecRetVal = "INVALID_TABLE"\nCase 1629 : MsiexecRetVal = "DATATYPE_MISMATCH"\nCase 1630 : MsiexecRetVal = "UNSUPPORTED_TYPE"\nCase 1631 : MsiexecRetVal = "CREATE_FAILED"\nCase 1632 : MsiexecRetVal = "INSTALL_TEMP_UNWRITABLE"\nCase 1633 : MsiexecRetVal = "INSTALL_PLATFORM_UNSUPPORTED"\nCase 1634 : MsiexecRetVal = "INSTALL_NOTUSED"\nCase 1635 : MsiexecRetVal = "PATCH_PACKAGE_OPEN_FAILED"\nCase 1636 : MsiexecRetVal = "PATCH_PACKAGE_INVALID"\nCase 1637 : MsiexecRetVal = "PATCH_PACKAGE_UNSUPPORTED"\nCase 1638 : MsiexecRetVal = "PRODUCT_VERSION"\nCase 1639 : MsiexecRetVal = "INVALID_COMMAND_LINE"\nCase 1640 : MsiexecRetVal = "INSTALL_REMOTE_DISALLOWED"\nCase 1641 : MsiexecRetVal = "SUCCESS_REBOOT_INITIATED"\nCase 1642 : MsiexecRetVal = "PATCH_TARGET_NOT_FOUND"\nCase 1643 : MsiexecRetVal = "PATCH_PACKAGE_REJECTED"\nCase 1644 : MsiexecRetVal = "INSTALL_TRANSFORM_REJECTED"\nCase 1645 : MsiexecRetVal = "INSTALL_REMOTE_PROHIBITED"\nCase 1646 : MsiexecRetVal = "PATCH_REMOVAL_UNSUPPORTED"\nCase 1647 : MsiexecRetVal = "UNKNOWN_PATCH"\nCase 1648 : MsiexecRetVal = "PATCH_NO_SEQUENCE"\nCase 1649 : MsiexecRetVal = "PATCH_REMOVAL_DISALLOWED"\nCase 1650 : MsiexecRetVal = "INVALID_PATCH_XML"\nCase 3010 : MsiexecRetVal = "SUCCESS_REBOOT_REQUIRED"\nCase Else : MsiexecRetVal = "Unknown Return Value"\nEnd Select\nEnd Function 'MsiexecRetVal\n'=======================================================================================================\n\n'Error codes for 2007 Office update packages (aka Microsoft Self-Extractor)\nFunction ExtractorRetVal(iRetVal)\n\nOn Error Resume Next\nSelect Case iRetVal\nCase 0 : ExtractorRetVal = "Success"\nCase 17301 : ExtractorRetVal = "Error: General Detection error"\nCase 17302 : ExtractorRetVal = "Error: Applying patch"\nCase 17303 : ExtractorRetVal = "Error: Extracting file"\nCase 17021 : ExtractorRetVal = "Error: Creating temp folder"\nCase 17022 : ExtractorRetVal = "Success: Reboot flag set"\nCase 17023 : ExtractorRetVal = "Error: User cancelled installation"\nCase 17024 : ExtractorRetVal = "Error: Creating folder failed"\nCase 17025 : ExtractorRetVal = "Patch already installed"\nCase 17026 : ExtractorRetVal = "Patch already installed to admin installation"\nCase 17027 : ExtractorRetVal = "Installation source requires full file update"\nCase 17028 : ExtractorRetVal = "No product installed for contained patch"\nCase 17029 : ExtractorRetVal = "Patch failed to install"\nCase 17030 : ExtractorRetVal = "Detection: Invalid CIF format"\nCase 17031 : ExtractorRetVal = "Detection: Invalid baseline"\nCase 17034 : ExtractorRetVal = "Error: Required patch does not apply to the machine"\nCase Else : ExtractorRetVal = "Unknown Return Value"\nEnd Select\nEnd Function 'ExtractorRetVal\n'=======================================================================================================\n\n'Get Version Major from GUID\nFunction GetVersionMajor(sProductCode)\nDim iVersionMajor\nOn Error Resume Next\n\niVersionMajor = 0\nIf UCase(Right(sProductCode,28)) = OFFICE_2000 Then iVersionMajor = 9\nIf UCase(Right(sProductCode,28)) = ORK_2000 Then iVersionMajor = 9\nIf UCase(Right(sProductCode,28)) = PRJ_2000 Then iVersionMajor = 9\nIf UCase(Right(sProductCode,28)) = VIS_2002 Then iVersionMajor = 10\nIf UCase(Right(sProductCode,28)) = OFFICE_2002 Then iVersionMajor = 10\nIf UCase(Right(sProductCode,28)) = OFFICE_2003 Then iVersionMajor = 11\nIf UCase(Right(sProductCode,28)) = PPS_2007 Then iVersionMajor = 12\nIf UCase(Right(sProductCode,17)) = OFFICEID Then iVersionMajor = Mid(sProductCode,4,2)\n\nGetVersionMajor = iVersionMajor\nEnd Function\n'=======================================================================================================\n\nFunction GetProductID (sProdId,sVersion)\n\nDim sReturn\n\nSelect Case sVersion\n\nCase "2010"\nSelect Case sProdId\n\nCase "000F" : sReturn = "Office Mondo"\nCase "0010" : sReturn = "Web Folders"\nCase "0011" : sReturn = "Office Professional Plus"\nCase "0012" : sReturn = "Office Standard"\nCase "0013" : sReturn = "Office Basic"\nCase "0014" : sReturn = "Office Professional"\nCase "0015" : sReturn = "Access"\nCase "0016" : sReturn = "Excel"\nCase "0017" : sReturn = "SharePoint Designer"\nCase "0018" : sReturn = "PowerPoint"\nCase "0019" : sReturn = "Publisher"\nCase "001A" : sReturn = "Outlook"\nCase "001B" : sReturn = "Word"\nCase "001C" : sReturn = "Access Runtime"\nCase "001F" : sReturn = "Proof"\nCase "0020" : sReturn = "Office Compatibility Pack for Word, Excel, and PowerPoint 2007 File Formats"\nCase "0021" : sReturn = "Visual Studio Web Authoring Component (Office Visual Web Developer)"\nCase "0026" : sReturn = "Expression Web"\nCase "0029" : sReturn = "Excel"\nCase "002A" : sReturn = "Office 64-bit Components"\nCase "002B" : sReturn = "Word"\nCase "002C" : sReturn = "Proofing"\nCase "002E" : sReturn = "Office Ultimate"\nCase "002F" : sReturn = "Office Home and Student"\nCase "0028" : sReturn = "Office IME"\nCase "0030" : sReturn = "Office Enterprise"\nCase "0031" : sReturn = "Office Professional Hybrid"\nCase "0033" : sReturn = "Office Personal"\nCase "0035" : sReturn = "Office Professional Hybrid"\nCase "0037" : sReturn = "PowerPoint"\nCase "003A" : sReturn = "Project Standard"\nCase "003B" : sReturn = "Project Professional"\nCase "003D" : sReturn = "Office Single Image"\nCase "003F" : sReturn = "Excel Viewer"\nCase "0043" : sReturn = "Office 32bit Components"\nCase "0044" : sReturn = "InfoPath"\nCase "0045" : sReturn = "Expression Web"\nCase "0048" : sReturn = "Outlook Hotmail Connector"\nCase "0049" : sReturn = "Office Academic"\nCase "004A" : sReturn = "2003 Web Components"\nCase "0051" : sReturn = "Visio Professional"\nCase "0052" : sReturn = "Visio Viewer"\nCase "0053" : sReturn = "Visio Standard"\nCase "0054" : sReturn = "Visio MUI"\nCase "0055" : sReturn = "Visio MUI"\nCase "0057" : sReturn = "Visio"\nCase "0061" : sReturn = "Click-to-Run"\nCase "0062" : sReturn = "Click-to-Run"\nCase "0066" : sReturn = "Click-to-Run"\nCase "006C" : sReturn = "Click-to-Run"\nCase "006D" : sReturn = "Click-to-Run"\nCase "006E" : sReturn = "Office Shared"\nCase "006F" : sReturn = "Office"\nCase "0074" : sReturn = "Office Starter"\nCase "007A" : sReturn = "Outlook Connector"\nCase "007C" : sReturn = "Outlook Social Connector Provider for FaceBook"\nCase "007D" : sReturn = "Outlook Social Connector Provider for Windows Live Messenger"\nCase "008A" : sReturn = "Office Recent Documents Gadget"\nCase "008B" : sReturn = "Office Small Business Basics"\nCase "00A1" : sReturn = "OneNote"\nCase "00A3" : sReturn = "OneNote Home Student"\nCase "00A4" : sReturn = "Office 2003 Web Components"\nCase "00A7" : sReturn = "Calendar Printing Assistant for Microsoft Office Outlook"\nCase "00A9" : sReturn = "InterConnect"\nCase "00AF" : sReturn = "PowerPoint Viewer"\nCase "00B0" : sReturn = "Save as PDF Add-in"\nCase "00B1" : sReturn = "Save as XPS Add-in"\nCase "00B2" : sReturn = "Save as PDF or XPS Add-in"\nCase "00B3" : sReturn = "Project Add-in for Outlook"\nCase "00B4" : sReturn = "Project MUI"\nCase "00B5" : sReturn = "Project MUI"\nCase "00B9" : sReturn = "Application Error Reporting"\nCase "00BA" : sReturn = "Groove"\nCase "00BC" : sReturn = "InterConnect Outlook"\nCase "00CA" : sReturn = "Office Small Business"\nCase "00E0" : sReturn = "Outlook"\nCase "00D1" : sReturn = "Access Connectivity Engine ACE"\nCase "0100" : sReturn = "Office MUI"\nCase "0101" : sReturn = "Office XMUI"\nCase "0103" : sReturn = "Office Proofing Tools Kit"\nCase "0114" : sReturn = "Groove Setup Metadata"\nCase "0115" : sReturn = "Office Shared Setup Metadata"\nCase "0116" : sReturn = "Office Shared Setup Metadata"\nCase "0117" : sReturn = "Access Setup Metadata"\nCase "011A" : sReturn = "Send A Smile"\nCase "011D" : sReturn = "Office Professional Plus Subscription"\nCase "011F" : sReturn = "Outlook Connector"\n\nCase "1014" : sReturn = "SharePoint Foundation Core"\nCase "1015" : sReturn = "SharePoint Foundation Lang Pack"\nCase "101F" : sReturn = "Office Server Proof"\nCase "1031" : sReturn = "Project Server Web Front End"\nCase "1032" : sReturn = "Project Server Application Server"\nCase "104B" : sReturn = "Office SharePoint Portal"\nCase "104C" : sReturn = "User Profiles"\nCase "104E" : sReturn = "Office SharePoint Portal Language Pack"\nCase "107F" : sReturn = "Shared Components"\nCase "1080" : sReturn = "Office Shared Coms (Srv) Language Pack"\nCase "1088" : sReturn = "Slide Library"\nCase "10B0" : sReturn = "Project Server Language Pack"\nCase "10D7" : sReturn = "InfoPath Forms Services"\nCase "10D8" : sReturn = "InfoPath Forms Services Language Pack"\nCase "10EB" : sReturn = "Office Document Lifecycle Application Server Components"\nCase "10EC" : sReturn = "Word Server"\nCase "10ED" : sReturn = "Word Server Language Pack"\nCase "10EE" : sReturn = "PerformancePoint Services"\nCase "10F0" : sReturn = "PerformancePoint Services Language Pack"\nCase "10F1" : sReturn = "Visio Services Language Pack"\nCase "10F3" : sReturn = "Visio Services Web Front End Components"\nCase "10F5" : sReturn = "Excel Services"\nCase "10F6" : sReturn = "Excel Services Web Front End Components"\nCase "10F7" : sReturn = "Document Lifecycle Components"\nCase "10F8" : sReturn = "Excel Services Language Pack"\nCase "10FB" : sReturn = "Search Server"\nCase "10FC" : sReturn = "Search"\nCase "10FD" : sReturn = "Search Server Language Pack"\nCase "1103" : sReturn = "Office Document Lifecycle Components Language Pack"\nCase "1104" : sReturn = "Office Slide Library Language Pack"\nCase "1105" : sReturn = "Office Primary Interop Assemblies"\nCase "110D" : sReturn = "SharePoint Server"\nCase "110F" : sReturn = "Project Server"\nCase "1110" : sReturn = "Windows SharePoint Services (WSS)"\nCase "1121" : sReturn = "Office SharePoint Server SDK and ECM Starter Kit"\nCase "1122" : sReturn = "Windows SharePoint Services Developer Resources"\nCase "1123" : sReturn = "Access Services Server"\nCase "1124" : sReturn = "Access Services Language Pack"\nCase "1125" : sReturn = "Web Companion Web Front End Components"\nCase "1127" : sReturn = "Web Companion Components Language Pack"\nCase "112A" : sReturn = "Web Analytics Web Front End Components"\nCase "112D" : sReturn = "Office Web Apps"\nCase "1131" : sReturn = "Web Analytics Language Pack"\nCase "1138" : sReturn = "Excel Mobile Viewer Components"\nCase "2000" : sReturn = "Microsoft Filter Pack"\nCase Else\n\nEnd Select 'sProdId\n\nCase "2007"\nSelect Case sProdId\n\nCase "0010" : sReturn = "Web Folders"\nCase "0011" : sReturn = "Office Professional Plus"\nCase "0012" : sReturn = "Office Standard"\nCase "0013" : sReturn = "Office Basic"\nCase "0014" : sReturn = "Office Professional"\nCase "0015" : sReturn = "Access"\nCase "0016" : sReturn = "Excel"\nCase "0017" : sReturn = "SharePoint Designer"\nCase "0018" : sReturn = "PowerPoint"\nCase "0019" : sReturn = "Publisher"\nCase "001A" : sReturn = "Outlook"\nCase "001B" : sReturn = "Word"\nCase "001C" : sReturn = "Access Runtime"\nCase "001F" : sReturn = "Proof"\nCase "0020" : sReturn = "Office Compatibility Pack for Word, Excel, and PowerPoint 2007 File Formats"\nCase "0021" : sReturn = "Visual Studio Web Authoring Component (Office Visual Web Developer 2007)"\nCase "0026" : sReturn = "Expression Web"\nCase "0029" : sReturn = "Excel"\nCase "002A" : sReturn = "Office 64-bit Components"\nCase "002B" : sReturn = "Word"\nCase "002C" : sReturn = "Proofing"\nCase "002E" : sReturn = "Office Ultimate"\nCase "002F" : sReturn = "Office Home and Student"\nCase "0028" : sReturn = "Office IME"\nCase "0030" : sReturn = "Office Enterprise"\nCase "0031" : sReturn = "Office Professional Hybrid"\nCase "0033" : sReturn = "Office Personal"\nCase "0035" : sReturn = "Office Professional Hybrid 2007"\nCase "0038" : sReturn = "Time Zone Data Update Tool for Outlook"\nCase "0037" : sReturn = "PowerPoint"\nCase "003A" : sReturn = "Project Standard"\nCase "003B" : sReturn = "Project Professional"\nCase "003F" : sReturn = "Excel Viewer"\nCase "0043" : sReturn = "Time Zone Data Update Engine for Outlook"\nCase "0044" : sReturn = "InfoPath"\nCase "0045" : sReturn = "Expression Web 2"\nCase "0051" : sReturn = "Visio Professional"\nCase "0052" : sReturn = "Visio Viewer"\nCase "0053" : sReturn = "Visio Standard"\nCase "0054" : sReturn = "Visio MUI"\nCase "0055" : sReturn = "Visio MUI"\nCase "0057" : sReturn = "Visio"\nCase "006E" : sReturn = "Office Shared"\nCase "008A" : sReturn = "Office Recent Documents Gadget"\nCase "00A1" : sReturn = "OneNote"\nCase "00A3" : sReturn = "OneNote Home Student"\nCase "00A4" : sReturn = "Office 2003 Web Components"\nCase "00A7" : sReturn = "Calendar Printing Assistant for Microsoft Office Outlook"\nCase "00A9" : sReturn = "InterConnect"\nCase "00AF" : sReturn = "PowerPoint Viewer"\nCase "00B0" : sReturn = "Save as PDF Add-in for 2007 Microsoft Office programs"\nCase "00B1" : sReturn = "Save as XPS Add-in for 2007 Microsoft Office programs"\nCase "00B2" : sReturn = "Save as PDF or XPS Add-in for 2007 Microsoft Office programs"\nCase "00B3" : sReturn = "Project Add-in for Outlook"\nCase "00B4" : sReturn = "Project MUI"\nCase "00B5" : sReturn = "Project MUI"\nCase "00B9" : sReturn = "Application Error Reporting"\nCase "00BA" : sReturn = "Groove"\nCase "00BC" : sReturn = "InterConnect Outlook"\nCase "00CA" : sReturn = "Office Small Business"\nCase "00E0" : sReturn = "Outlook"\nCase "00D1" : sReturn = "Access Connectivity Engine ACE"\nCase "0100" : sReturn = "Office MUI"\nCase "0101" : sReturn = "Office XMUI"\nCase "0103" : sReturn = "Office Proofing Tools Kit"\nCase "0114" : sReturn = "Groove Setup Metadata"\nCase "0115" : sReturn = "Office Shared Setup Metadata"\nCase "0116" : sReturn = "Office Shared Setup Metadata"\nCase "0117" : sReturn = "Access Setup Metadata"\nCase "011A" : sReturn = "Windows Live Web Folder Connector"\nCase "011F" : sReturn = "Outlook Connector"\nCase "1014" : sReturn = "Windows SharePoint Services 3.0 (STS)"\nCase "1015" : sReturn = "Windows SharePoint Services 3.0 Lang Pack"\nCase "1032" : sReturn = "Project Server Application Server"\nCase "104B" : sReturn = "Office SharePoint Portal"\nCase "104E" : sReturn = "Office SharePoint Portal Language Pack"\nCase "107F" : sReturn = "Office Shared Components (Srv)"\nCase "1080" : sReturn = "Office Shared Coms (Srv)"\nCase "1088" : sReturn = "Office Slide Library"\nCase "10D7" : sReturn = "InfoPath Forms Services"\nCase "10D8" : sReturn = "InfoPath Forms Services Language Pack"\nCase "10EB" : sReturn = "Office Document Lifecycle Application Server Components"\nCase "10F5" : sReturn = "Excel Services"\nCase "10F6" : sReturn = "Excel Services Web Front End Components"\nCase "10F7" : sReturn = "Office Document Lifecycle Components"\nCase "10F8" : sReturn = "Excel Services Language Pack"\nCase "10FB" : sReturn = "Search Front End"\nCase "10FC" : sReturn = "Search"\nCase "10FD" : sReturn = "Search Language Pack"\nCase "1103" : sReturn = "Office Document Lifecycle Components Language Pack"\nCase "1104" : sReturn = "Office Slide Library Language Pack"\nCase "1105" : sReturn = "Office Primary Interop Assemblies"\nCase "1106" : sReturn = "Groove Management Server"\nCase "1109" : sReturn = "Groove Server Relay"\nCase "110D" : sReturn = "Office SharePoint Server (MOSS)"\nCase "110F" : sReturn = "Project Server"\nCase "1110" : sReturn = "Windows SharePoint Services 3.0 (WSS)"\nCase "1121" : sReturn = "Office SharePoint Server 2007 SDK and ECM Starter Kit"\nCase "1122" : sReturn = "Windows SharePoint Services Developer Resources 1.2"\nCase Else\n\nEnd Select 'sProdId\n\nCase "2003"\nSelect Case sProdId\n\nCase "11" : sReturn = "Office Professional Enterprise"\nCase "12" : sReturn = "Office Standard"\nCase "13" : sReturn = "Office Basic"\nCase "14" : sReturn = "Windows SharePoint Services 2.0"\nCase "15" : sReturn = "Access"\nCase "16" : sReturn = "Excel"\nCase "17" : sReturn = "FrontPage"\nCase "18" : sReturn = "PowerPoint"\nCase "19" : sReturn = "Publisher"\nCase "1A" : sReturn = "Outlook Professional"\nCase "1B" : sReturn = "Word"\nCase "1C" : sReturn = "Access Runtime"\nCase "1E" : sReturn = "Office MUI"\nCase "1F" : sReturn = "Office Proofing Tools Kit"\nCase "23" : sReturn = "Office MUI"\nCase "24" : sReturn = "Office Resource Kit (ORK)"\nCase "26" : sReturn = "Office XP Web Components"\nCase "2E" : sReturn = "Office Research Service SDK"\nCase "32" : sReturn = "Project Server"\nCase "33" : sReturn = "Office Personal Edition"\nCase "3A" : sReturn = "Project Standard" \nCase "3B" : sReturn = "Project Professional"\nCase "3C" : sReturn = "Project MUI"\nCase "44" : sReturn = "InfoPath"\nCase "48" : sReturn = "InfoPath 2003 Toolkit for Visual Studio 2005"\nCase "49" : sReturn = "Office Primary Interop Assemblies"\nCase "51" : sReturn = "Visio Professional"\nCase "52" : sReturn = "Visio Viewer"\nCase "53" : sReturn = "Visio Standard"\nCase "55" : sReturn = "Visio for Enterprise Architects"\nCase "5E" : sReturn = "Visio MUI"\nCase "83" : sReturn = "Office HTML Viewer"\nCase "84" : sReturn = "Excel Viewer"\nCase "85" : sReturn = "Word Viewer"\nCase "92" : sReturn = "Windows SharePoint Services 2.0 English Template Pack"\nCase "93" : sReturn = "Office Web Parts and Components"\nCase "A1" : sReturn = "OneNote"\nCase "A4" : sReturn = "Office Web Components"\nCase "A5" : sReturn = "SharePoint Migration Tool"\nCase "A9" : sReturn = "InterConnect 2004"\nCase "AA" : sReturn = "PowerPoint 2003 Presentation Broadcast"\nCase "AB" : sReturn = "PowerPoint 2003 Template Pack 1"\nCase "AC" : sReturn = "PowerPoint 2003 Template Pack 2"\nCase "AD" : sReturn = "PowerPoint 2003 Template Pack 3"\nCase "AE" : sReturn = "Office Organization Chart 2.0"\nCase "CA" : sReturn = "Office Small Business Edition"\nCase "D0" : sReturn = "Access Developer Extensions"\nCase "DC" : sReturn = "Office Smart Document SDK"\nCase "E0" : sReturn = "Outlook Standard"\nCase "E3" : sReturn = "Office Professional Edition (with InfoPath)"\nCase "F7" : sReturn = "InfoPath 2003 Toolkit for Visual Studio .NET"\nCase "F8" : sReturn = "Office Remove Hidden Data Tool"\nCase "FD" : sReturn = "Outlook (distributed by MSN)"\nCase "FF" : sReturn = "Office Language Interface Pack"\nCase Else : sReturn = ""\n\nEnd Select 'ProdId\n\nCase "2002"\nSelect Case sProdId\n\nCase "11" : sReturn = "Office Professional"\nCase "12" : sReturn = "Office Standard"\nCase "13" : sReturn = "Office Small Business"\nCase "14" : sReturn = "Office Web Server"\nCase "15" : sReturn = "Access"\nCase "16" : sReturn = "Excel"\nCase "17" : sReturn = "FrontPage"\nCase "18" : sReturn = "PowerPoint"\nCase "19" : sReturn = "Publisher"\nCase "1A" : sReturn = "Outlook"\nCase "1B" : sReturn = "Word"\nCase "1C" : sReturn = "Access Runtime"\nCase "1D" : sReturn = "Frontpage MUI"\nCase "1E" : sReturn = "Office MUI"\nCase "1F" : sReturn = "Office Proofing Tools Kit"\nCase "20" : sReturn = "System Files Update"\nCase "23" : sReturn = "Office MUI Wizard"\nCase "24" : sReturn = "Office Resource Kit (ORK)"\nCase "25" : sReturn = "Office Resource Kit (ORK) Web Download"\nCase "26" : sReturn = "Office XP Web Components"\nCase "27" : sReturn = "Project"\nCase "28" : sReturn = "Office Professional with FrontPage"\nCase "29" : sReturn = "Office Professional Subscription"\nCase "2A" : sReturn = "Office Small Business Subscription"\nCase "2B" : sReturn = "Publisher Deluxe Edition"\nCase "2F" : sReturn = "Office Standalone IME"\nCase "30" : sReturn = "Office Media Content "\nCase "32" : sReturn = "Project Web Server"\nCase "33" : sReturn = "Office PIPC1 - Pre Installed PC"\nCase "34" : sReturn = "Office PIPC2 - Pre Installed PC"\nCase "35" : sReturn = "Office Media Content Deluxe"\nCase "3A" : sReturn = "Project Standard" \nCase "3B" : sReturn = "Project Professional"\nCase "3C" : sReturn = "Project MUI"\nCase "3D" : sReturn = "Office Standard for Students and Teachers"\nCase "51" : sReturn = "Visio Professional"\nCase "52" : sReturn = "Visio Viewer"\nCase "53" : sReturn = "Visio Standard"\nCase "54" : sReturn = "Visio Standard"\nCase "91" : sReturn = "Office Professional"\nCase "92" : sReturn = "Office Standard"\nCase "93" : sReturn = "Office Small Business"\nCase "94" : sReturn = "Office Web Server"\nCase "95" : sReturn = "Access"\nCase "96" : sReturn = "Excel"\nCase "97" : sReturn = "FrontPage"\nCase "98" : sReturn = "PowerPoint"\nCase "99" : sReturn = "Publisher"\nCase "9A" : sReturn = "Outlook"\nCase "9B" : sReturn = "Word"\nCase "9C" : sReturn = "Access Runtime"\nCase Else : sReturn = ""\n\nEnd Select 'ProdId\n\nCase "2000"\nSelect Case CInt("&h"&sProdId)\n\nCase 0 : sReturn = "Office Premium CD1"\nCase 1 : sReturn = "Office Professional"\nCase 2 : sReturn = "Office Standard"\nCase 3 : sReturn = "Office Small Business"\nCase 4 : sReturn = "Office Premium CD2"\nCase 5 : sReturn = "Office CD2 SMALL"\nCase 6 : sReturn = "Office Personal"\nCase 7 : sReturn = "Word and Excel"\nCase 16 : sReturn = "Access"\nCase 17 : sReturn = "Excel"\nCase 18 : sReturn = "FrontPage"\nCase 19 : sReturn = "PowerPoint"\nCase 20 : sReturn = "Publisher"\nCase 21 : sReturn = "Office Server Extensions"\nCase 22 : sReturn = "Outlook"\nCase 23 : sReturn = "Word"\nCase 24 : sReturn = "Access Runtime"\nCase 25 : sReturn = "FrontPage Server Extensions"\nCase 26 : sReturn = "Publisher Standalone OEM"\nCase 27 : sReturn = "DMMWeb"\nCase 28 : sReturn = "FP WECCOM"\nCase 29 : sReturn = "Word"\nCase 32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 : sReturn = "Office MUI"\nCase 48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63 : sReturn = "Office Proofing Tools Kit"\nCase 64 : sReturn = "Publisher Trial"\nCase 65 : sReturn = "Publisher Trial Web"\nCase 66 : sReturn = "SBB"\nCase 67 : sReturn = "SBT"\nCase 68 : sReturn = "SBT CD2"\nCase 69 : sReturn = "SBTART"\nCase 70 : sReturn = "Office Web Components"\nCase 71 : sReturn = "VP Office CD2 with LVP"\nCase 72 : sReturn = "VP PUB with LVP"\nCase 73 : sReturn = "VP PUB with LVP OEM"\nCase 79 : sReturn = "Access 2000 SR-1 Run-Time Minimum"\nCase Else : sReturn = ""\n\nEnd Select 'sProdId\n\nCase Else : sReturn = ""\nEnd Select 'sVersion\n\nGetProductID = sReturn\n\nEnd Function\n'=======================================================================================================\n\n'Gets the release type ID from the ProductCode as integer and returns a string\nFunction GetReleaseType (iR)\n\nDim sR\n\nSelect Case iR\n'Disable Case 0 to avoid noise in the output\nCase 0 : sR = "Volume License"\nCase 1 : sR = "Retail"\nCase 2 : sR = "Trial"\nCase Else : sR = ""\nEnd Select\n\nGetReleaseType = sR\n\nEnd Function\n'=======================================================================================================\n\n'=======================================================================================================\n\n'Get the culture info tag from LCID\nFunction GetCultureInfo (sLcid)\n\nDim sLang\n\nSelect Case UCase(Hex(CInt(sLcid)))\nCase "0" : sLang = "neutral"\nCase "7F" : sLang = "invariant" 'Invariant culture\nCase "36" : sLang = "af" ' Afrikaans\nCase "436" : sLang = "af-ZA" ' Afrikaans (South Africa)\nCase "1C" : sLang = "sq" ' Albanian\nCase "41C" : sLang = "sq-AL" ' Albanian (Albania)\nCase "1" : sLang = "ar" ' Arabic\nCase "1401" : sLang = "ar-DZ" ' Arabic (Algeria)\nCase "3C01" : sLang = "ar-BH" ' Arabic (Bahrain)\nCase "C01" : sLang = "ar-EG" ' Arabic (Egypt)\nCase "801" : sLang = "ar-IQ" ' Arabic (Iraq)\nCase "2C01" : sLang = "ar-JO" ' Arabic (Jordan)\nCase "3401" : sLang = "ar-KW" ' Arabic (Kuwait)\nCase "3001" : sLang = "ar-LB" ' Arabic (Lebanon)\nCase "1001" : sLang = "ar-LY" ' Arabic (Libya)\nCase "1801" : sLang = "ar-MA" ' Arabic (Morocco)\nCase "2001" : sLang = "ar-OM" ' Arabic (Oman)\nCase "4001" : sLang = "ar-QA" ' Arabic (Qatar)\nCase "401" : sLang = "ar-SA" ' Arabic (Saudi Arabia)\nCase "2801" : sLang = "ar-SY" ' Arabic (Syria)\nCase "1C01" : sLang = "ar-TN" ' Arabic (Tunisia)\nCase "3801" : sLang = "ar-AE" ' Arabic (U.A.E.)\nCase "2401" : sLang = "ar-YE" ' Arabic (Yemen)\nCase "2B" : sLang = "hy" ' Armenian\nCase "42B" : sLang = "hy-AM" ' Armenian (Armenia)\nCase "2C" : sLang = "az" ' Azeri\nCase "82C" : sLang = "az-Cyrl-AZ" ' Azeri (Azerbaijan, Cyrillic)\nCase "42C" : sLang = "az-Latn-AZ" ' Azeri (Azerbaijan, Latin)\nCase "2D" : sLang = "eu" ' Basque\nCase "42D" : sLang = "eu-ES" ' Basque (Basque)\nCase "23" : sLang = "be" ' Belarusian\nCase "423" : sLang = "be-BY" ' Belarusian (Belarus)\nCase "2" : sLang = "bg" ' Bulgarian\nCase "402" : sLang = "bg-BG" ' Bulgarian (Bulgaria)\nCase "3" : sLang = "ca" ' Catalan\nCase "403" : sLang = "ca-ES" ' Catalan (Catalan)\nCase "C04" : sLang = "zh-HK" ' Chinese (Hong Kong SAR, PRC)\nCase "1404" : sLang = "zh-MO" ' Chinese (Macao SAR)\nCase "804" : sLang = "zh-CN" ' Chinese (PRC)\nCase "4" : sLang = "zh-Hans" ' Chinese (Simplified)\nCase "1004" : sLang = "zh-SG" ' Chinese (Singapore)\nCase "404" : sLang = "zh-TW" ' Chinese (Taiwan)\nCase "7C04" : sLang = "zh-Hant" ' Chinese (Traditional)\nCase "1A" : sLang = "hr" ' Croatian\nCase "41A" : sLang = "hr-HR" ' Croatian (Croatia)\nCase "5" : sLang = "cs" ' Czech\nCase "405" : sLang = "cs-CZ" ' Czech (Czech Republic)\nCase "6" : sLang = "da" ' Danish\nCase "406" : sLang = "da-DK" ' Danish (Denmark)\nCase "65" : sLang = "dv" ' Divehi\nCase "465" : sLang = "dv-MV" ' Divehi (Maldives)\nCase "13" : sLang = "nl" ' Dutch\nCase "813" : sLang = "nl-BE" ' Dutch (Belgium)\nCase "413" : sLang = "nl-NL" ' Dutch (Netherlands)\nCase "9" : sLang = "en" ' English\nCase "C09" : sLang = "en-AU" ' English (Australia)\nCase "2809" : sLang = "en-BZ" ' English (Belize)\nCase "1009" : sLang = "en-CA" ' English (Canada)\nCase "2409" : sLang = "en-029" ' English (Caribbean)\nCase "1809" : sLang = "en-IE" ' English (Ireland)\nCase "2009" : sLang = "en-JM" ' English (Jamaica)\nCase "1409" : sLang = "en-NZ" ' English (New Zealand)\nCase "3409" : sLang = "en-PH" ' English (Philippines)\nCase "1C09" : sLang = "en-ZA" ' English (South Africa\nCase "2C09" : sLang = "en-TT" ' English (Trinidad and Tobago)\nCase "809" : sLang = "en-GB" ' English (United Kingdom)\nCase "409" : sLang = "en-US" ' English (United States)\nCase "3009" : sLang = "en-ZW" ' English (Zimbabwe)\nCase "25" : sLang = "et" ' Estonian\nCase "425" : sLang = "et-EE" ' Estonian (Estonia)\nCase "38" : sLang = "fo" ' Faroese\nCase "438" : sLang = "fo-FO" ' Faroese (Faroe Islands)\nCase "29" : sLang = "fa" ' Farsi\nCase "429" : sLang = "fa-IR" ' Farsi (Iran)\nCase "B" : sLang = "fi" ' Finnish\nCase "40B" : sLang = "fi-FI" ' Finnish (Finland)\nCase "C" : sLang = "fr" ' French\nCase "80C" : sLang = "fr-BE" ' French (Belgium)\nCase "C0C" : sLang = "fr-CA" ' French (Canada)\nCase "40C" : sLang = "fr-FR" ' French (France)\nCase "140C" : sLang = "fr-LU" ' French (Luxembourg)\nCase "180C" : sLang = "fr-MC" ' French (Monaco)\nCase "100C" : sLang = "fr-CH" ' French (Switzerland)\nCase "56" : sLang = "gl" ' Galician\nCase "456" : sLang = "gl-ES" ' Galician (Spain)\nCase "37" : sLang = "ka" ' Georgian\nCase "437" : sLang = "ka-GE" ' Georgian (Georgia)\nCase "7" : sLang = "de" ' German\nCase "C07" : sLang = "de-AT" ' German (Austria)\nCase "407" : sLang = "de-DE" ' German (Germany)\nCase "1407" : sLang = "de-LI" ' German (Liechtenstein)\nCase "1007" : sLang = "de-LU" ' German (Luxembourg)\nCase "807" : sLang = "de-CH" ' German (Switzerland)\nCase "8" : sLang = "el" ' Greek\nCase "408" : sLang = "el-GR" ' Greek (Greece)\nCase "47" : sLang = "gu" ' Gujarati\nCase "447" : sLang = "gu-IN" ' Gujarati (India)\nCase "D" : sLang = "he" ' Hebrew\nCase "40D" : sLang = "he-IL" ' Hebrew (Israel)\nCase "39" : sLang = "hi" ' Hindi\nCase "439" : sLang = "hi-IN" ' Hindi (India)\nCase "E" : sLang = "hu" ' Hungarian\nCase "40E" : sLang = "hu-HU" ' Hungarian (Hungary)\nCase "F" : sLang = "is" ' Icelandic\nCase "40F" : sLang = "is-IS" ' Icelandic (Iceland)\nCase "21" : sLang = "id" ' Indonesian\nCase "421" : sLang = "id-ID" ' Indonesian (Indonesia)\nCase "10" : sLang = "it" ' Italian\nCase "410" : sLang = "it-IT" ' Italian (Italy)\nCase "810" : sLang = "it-CH" ' Italian (Switzerland)\nCase "11" : sLang = "ja" ' Japanese\nCase "411" : sLang = "ja-JP" ' Japanese (Japan)\nCase "4B" : sLang = "kn" ' Kannada\nCase "44B" : sLang = "kn-IN" ' Kannada (India)\nCase "3F" : sLang = "kk" ' Kazakh\nCase "43F" : sLang = "kk-KZ" ' Kazakh (Kazakhstan)\nCase "57" : sLang = "kok" ' Konkani\nCase "457" : sLang = "kok-IN" ' Konkani (India)\nCase "12" : sLang = "ko" ' Korean\nCase "412" : sLang = "ko-KR" ' Korean (Korea)\nCase "40" : sLang = "ky" ' Kyrgyz\nCase "440" : sLang = "ky-KG" ' Kyrgyz (Kyrgyzstan)\nCase "26" : sLang = "lv" ' Latvian\nCase "426" : sLang = "lv-LV" ' Latvian (Latvia)\nCase "27" : sLang = "lt" ' Lithuanian\nCase "427" : sLang = "lt-LT" ' Lithuanian (Lithuania)\nCase "2F" : sLang = "mk" ' Macedonian\nCase "42F" : sLang = "mk-MK" ' Macedonian (Macedonia, FYROM)\nCase "3E" : sLang = "ms" ' Malay\nCase "83E" : sLang = "ms-BN" ' Malay (Brunei Darussalam)\nCase "43E" : sLang = "ms-MY" ' Malay (Malaysia)\nCase "4E" : sLang = "mr" ' Marathi\nCase "44E" : sLang = "mr-IN" ' Marathi (India)\nCase "50" : sLang = "mn" ' Mongolian\nCase "450" : sLang = "mn-MN" ' Mongolian (Mongolia)\nCase "14" : sLang = "no" ' Norwegian\nCase "414" : sLang = "nb-NO" ' Norwegian (Bokm\u00e5l, Norway)\nCase "814" : sLang = "nn-NO" ' Norwegian (Nynorsk, Norway)\nCase "15" : sLang = "pl" ' Polish\nCase "415" : sLang = "pl-PL" ' Polish (Poland)\nCase "16" : sLang = "pt" ' Portuguese\nCase "416" : sLang = "pt-BR" ' Portuguese (Brazil)\nCase "816" : sLang = "pt-PT" ' Portuguese (Portugal)\nCase "46" : sLang = "pa" ' Punjabi\nCase "446" : sLang = "pa-IN" ' Punjabi (India)\nCase "18" : sLang = "ro" ' Romanian\nCase "418" : sLang = "ro-RO" ' Romanian (Romania)\nCase "19" : sLang = "ru" ' Russian\nCase "419" : sLang = "ru-RU" ' Russian (Russia)\nCase "4F" : sLang = "sa" ' Sanskrit\nCase "44F" : sLang = "sa-IN" ' Sanskrit (India)\nCase "C1A" : sLang = "sr-Cyrl-CS" ' Serbian (Serbia, Cyrillic)\nCase "81A" : sLang = "sr-Latn-CS" ' Serbian (Serbia, Latin)\nCase "1B" : sLang = "sk" ' Slovak\nCase "41B" : sLang = "sk-SK" ' Slovak (Slovakia)\nCase "24" : sLang = "sl" ' Slovenian\nCase "424" : sLang = "sl-SI" ' Slovenian (Slovenia)\nCase "A" : sLang = "es" ' Spanish\nCase "2C0A" : sLang = "es-AR" ' Spanish (Argentina)\nCase "400A" : sLang = "es-BO" ' Spanish (Bolivia)\nCase "340A" : sLang = "es-CL" ' Spanish (Chile)\nCase "240A" : sLang = "es-CO" ' Spanish (Colombia)\nCase "140A" : sLang = "es-CR" ' Spanish (Costa Rica)\nCase "1C0A" : sLang = "es-DO" ' Spanish (Dominican Republic)\nCase "300A" : sLang = "es-EC" ' Spanish (Ecuador)\nCase "440A" : sLang = "es-SV" ' Spanish (El Salvador)\nCase "100A" : sLang = "es-GT" ' Spanish (Guatemala)\nCase "480A" : sLang = "es-HN" ' Spanish (Honduras)\nCase "80A" : sLang = "es-MX" ' Spanish (Mexico)\nCase "4C0A" : sLang = "es-NI" ' Spanish (Nicaragua)\nCase "180A" : sLang = "es-PA" ' Spanish (Panama)\nCase "3C0A" : sLang = "es-PY" ' Spanish (Paraguay)\nCase "280A" : sLang = "es-PE" ' Spanish (Peru)\nCase "500A" : sLang = "es-PR" ' Spanish (Puerto Rico)\nCase "C0A" : sLang = "es-ES" ' Spanish (Spain)\nCase "380A" : sLang = "es-UY" ' Spanish (Uruguay)\nCase "200A" : sLang = "es-VE" ' Spanish (Venezuela)\nCase "41" : sLang = "sw" ' Swahili\nCase "441" : sLang = "sw-KE" ' Swahili (Kenya)\nCase "1D" : sLang = "sv" ' Swedish\nCase "81D" : sLang = "sv-FI" ' Swedish (Finland)\nCase "41D" : sLang = "sv-SE" ' Swedish (Sweden)\nCase "5A" : sLang = "syr" ' Syriac\nCase "45A" : sLang = "syr-SY" ' Syriac (Syria)\nCase "49" : sLang = "ta" ' Tamil\nCase "449" : sLang = "ta-IN" ' Tamil (India)\nCase "44" : sLang = "tt" ' Tatar\nCase "444" : sLang = "tt-RU" ' Tatar (Russia)\nCase "4A" : sLang = "te" ' Telugu\nCase "44A" : sLang = "te-IN" ' Telugu (India)\nCase "1E" : sLang = "th" ' Thai\nCase "41E" : sLang = "th-TH" ' Thai (Thailand)\nCase "1F" : sLang = "tr" ' Turkish\nCase "41F" : sLang = "tr-TR" ' Turkish (Turkey)\nCase "22" : sLang = "uk" ' Ukrainian\nCase "422" : sLang = "uk-UA" ' Ukrainian (Ukraine)\nCase "20" : sLang = "ur" ' Urdu\nCase "420" : sLang = "ur-PK" ' Urdu (Pakistan)\nCase "43" : sLang = "uz" ' Uzbek\nCase "843" : sLang = "uz-Cyrl-UZ" ' Uzbek (Uzbekistan, Cyrillic)\nCase "443" : sLang = "uz-Latn-UZ" ' Uzbek (Uzbekistan, Latin)\nCase "2A" : sLang = "vi" ' Vietnamese\nCase "42A" : sLang = "vi-VN" ' Vietnamese (Vietnam)\nCase Else : sLang = ""\nEnd Select\nGetCultureInfo = sLang\nEnd Function'=======================================================================================================<\/code><\/pre>\n\n\n\n\u043a\u043b\u0430\u0434\u0435\u043c \u0444\u0430\u0439\u043b \u0432 c:\\temp\\ \u043d\u0430 \u0441\u0435\u0440\u0432\u0435\u0440 \u0441 \u043d\u0435\u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0449\u0438\u043c\u0438 \u043e\u0431\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u044f\u043c\u0438.<\/p>\n\n\n\n
\u041e\u0442\u043a\u0440\u044b\u0432\u0430\u0435\u043c CMD \u043e\u0442 \u0430\u0434\u043c\u0438\u043d\u0438\u0441\u0442\u0440\u0430\u0442\u043e\u0440\u0430, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043a \u0434\u0438\u0440\u0435\u043a\u0442\u043e\u0440\u0438\u0438 c:\\windows\\installer<\/p>\n\n\n\n
\u0434\u0430\u043b\u0435\u0435 \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u043c \u043a\u043e\u043c\u0430\u043d\u0434\u0443 cscript.exe c:\\temp\\OpUtil.vbs\/RepairCache\/srestorelocation=c:\\temp\\<\/p>\n\n\n\n
Open up a PowerShell window and run Get-SPProduct -local to update the farm\u2019s configuration database.<\/p>\n\n\n\n
Run psconfig.exe to update everything and now you should be ready to install your updates.<\/p>\n","protected":false},"excerpt":{"rendered":"
\u0414\u043b\u044f \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u0441\u0435\u0432\u0435\u0440 SharePoint \u0442\u043e\u0439 \u0436\u0435 \u0432\u0435\u0440\u0441\u0438\u0438, \u0433\u0434\u0435 \u043e\u0431\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u044f \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u044e\u0442\u0441\u044f. \u0421\u043a\u043e\u043f\u0438\u0440\u0443\u0439\u0442\u0435 \u043f\u0430\u043f\u043a\u0443 c:\\windows\\installer \u0441 \u0434\u0440\u0443\u0433\u043e\u0433\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0449\u0435\u0433\u043e \u0441\u0435\u0440\u0432\u0435\u0440\u0430 SharePoint \u0432 \u043b\u043e\u043a\u0430\u043b\u044c\u043d\u0443\u044e c:\\temp\\ \u043f\u0430\u043f\u043a\u0443 \u043d\u0430 \u0432\u0430\u0448 \u043f\u043b\u043e\u0445\u043e\u0439 \u0441\u0435\u0440\u0432\u0435\u0440. \u0421\u043e\u0437\u0434\u0430\u0435\u043c \u0444\u0430\u0439\u043b OpUtil.vbs \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0433\u043e \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u043d\u0438\u044f: \u043a\u043b\u0430\u0434\u0435\u043c \u0444\u0430\u0439\u043b \u0432 c:\\temp\\ \u043d\u0430 \u0441\u0435\u0440\u0432\u0435\u0440 \u0441 \u043d\u0435\u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0449\u0438\u043c\u0438 \u043e\u0431\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u044f\u043c\u0438. \u041e\u0442\u043a\u0440\u044b\u0432\u0430\u0435\u043c CMD \u043e\u0442 \u0430\u0434\u043c\u0438\u043d\u0438\u0441\u0442\u0440\u0430\u0442\u043e\u0440\u0430, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043a \u0434\u0438\u0440\u0435\u043a\u0442\u043e\u0440\u0438\u0438 c:\\windows\\installer \u0434\u0430\u043b\u0435\u0435 \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u043c \u043a\u043e\u043c\u0430\u043d\u0434\u0443 cscript.exe c:\\temp\\OpUtil.vbs\/RepairCache\/srestorelocation=c:\\temp\\ Open […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[33],"class_list":["post-452","post","type-post","status-publish","format-standard","hentry","category-sharepoint","tag-sharepoint"],"blocksy_meta":[],"_links":{"self":[{"href":"https:\/\/kb.astrocroc.com\/index.php?rest_route=\/wp\/v2\/posts\/452","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kb.astrocroc.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kb.astrocroc.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kb.astrocroc.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kb.astrocroc.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=452"}],"version-history":[{"count":1,"href":"https:\/\/kb.astrocroc.com\/index.php?rest_route=\/wp\/v2\/posts\/452\/revisions"}],"predecessor-version":[{"id":453,"href":"https:\/\/kb.astrocroc.com\/index.php?rest_route=\/wp\/v2\/posts\/452\/revisions\/453"}],"wp:attachment":[{"href":"https:\/\/kb.astrocroc.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=452"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kb.astrocroc.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=452"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kb.astrocroc.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=452"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}