Ma1chik
попробуй
Код:
Код:
Global $file=@ScriptDir & '\setup.exe', $transforms=@ScriptDir & '\Unattended.MST'
;установка MS Office
RunWait ( $file & ' TRANSFORMS="' & $transforms & '" /qb-' )
;установка MS Office Update
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB907417-RUS-OTKLOADR.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB914455-RUS-GPFILTff.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB920103-RUS-INFOPATH.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB894542-RUS-MSPUB.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB923097-RUS-STLIST.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB919029-RUS-LCCWIZ.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB924886-RUS-MSGRGE32.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB924886-RUS-MSSP3GE.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB924085-RUS-OLKINTLff.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB924085-RUS-OUTLOOK.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB920813-RUS-RICHED20.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB925251-RUS-EUROTOOL.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB924423-RUS-OUTLHOL.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB933669-RUS-POWERPNT.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB934180-RUS-MSO.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB934181-RUS-WINWORD.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB936048-RUS-MSXML5.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB940602-RUS-EXCEL.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB936643-RUS-OUTLFLTR.msp' & ' /quiet')
RunWait (@ScriptDir & '\Update\owc11.exe' & ' /q')
RunWait (@ScriptDir & '\Update\FileFormatConverters.exe' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB936514-RUS-xlconv.msp' & ' /quiet')
RunWait ('msiexec.exe /update ' & @ScriptDir & '\Update\KB936960-RUS-msxml5.msp' & ' /quiet')
Run (@ScriptDir & '\Update\VBA64-KB923167-X86-ENU.exe' & ' /Q')
WinWaitActive ('Обновление VBA', 'Visual Basic для Applications')
ControlClick ('Обновление VBA', 'Visual Basic для Applications', 'Button1')
;перенос ярлыков
DirMove ( @ProgramsCommonDir & '\Microsoft Office', @ProgramsCommonDir & '\OFFICE\Microsoft Office\' , 1 )
FileCopy (@ProgramsCommonDir & '\OFFICE\Microsoft Office\Microsoft Office Word 2003.lnk', @DesktopCommonDir & '\Word.lnk', 1)
FileCopy (@ProgramsCommonDir & '\OFFICE\Microsoft Office\Microsoft Office Excel 2003.lnk', @DesktopCommonDir & '\Excel.lnk', 1)
exit
