Dim objShell: Set objShell = CreateObject("Wscript.Shell") Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject") Dim strKBFolder: strKBFolder = ("kb") Dim strExtractFolder: strExtractFolder = ("..\MS.Office2007.EE.Russian\Updates") objFSO.DeleteFile (""&strExtractFolder &"\*.* "), DeleteReadOnly ' kb953195 objShell.Run ""&strKBFolder &"\office2007sp2-kb953195-fullfile-ru-ru.exe /passive /extract:"&strExtractFolder, 1, true ' kb957246 objShell.Run ""&strKBFolder &"\office2007-kb957246-fullfile-x86-glb.exe /passive /extract:"&strExtractFolder, 1, true objFSO.DeleteFile (""&strExtractFolder &"\outlookhelp-de-de-en-us.msp"), DeleteReadOnly objFSO.DeleteFile (""&strExtractFolder &"\outlookhelp-en-us.msp"), DeleteReadOnly objFSO.DeleteFile (""&strExtractFolder &"\outlookhelp-es-es-en-us.msp"), DeleteReadOnly objFSO.DeleteFile (""&strExtractFolder &"\outlookhelp-fr-fr-en-us.msp"), DeleteReadOnly objFSO.DeleteFile (""&strExtractFolder &"\outlookhelp-it-it-en-us.msp"), DeleteReadOnly objFSO.DeleteFile (""&strExtractFolder &"\outlookhelp-ja-jp-en-us.msp"), DeleteReadOnly objFSO.DeleteFile (""&strExtractFolder &"\outlookhelp-pt-br-en-us.msp"), DeleteReadOnly objFSO.DeleteFile (""&strExtractFolder &"\outlookhelp-zh-cn-en-us.msp"), DeleteReadOnly ' kb963665 objShell.Run ""&strKBFolder &"\office2007-kb963665-fullfile-x86-ru-ru.exe /passive /extract:"&strExtractFolder, 1, true ' kb963669 objShell.Run ""&strKBFolder &"\office2007-kb963669-fullfile-x86-ru-ru.exe /passive /extract:"&strExtractFolder, 1, true ' kb963678 objShell.Run ""&strKBFolder &"\office2007-kb963678-fullfile-x86-ru-ru.exe /passive /extract:"&strExtractFolder, 1, true ' kb967642 objShell.Run ""&strKBFolder &"\office2007-kb967642-fullfile-x86-glb.exe /passive /extract:"&strExtractFolder, 1, true ' kb968503 objShell.Run ""&strKBFolder &"\office2007-kb968503-fullfile-x86-glb.exe /passive /extract:"&strExtractFolder, 1, true |