Script Integrar MS-Office 2003 ao SP3

@echo off
title Integrando SP3 ao Office 2003&color f8
if %os%==Windows_NT goto texto
echo Este script apenas pode ser executado pela familia NT&pause&exit

rem Declarando Variaveis
:texto
set office=%SystemDrive%\office
set tecle=0
set origem=0
set SP3=0
set ServPack=Office2003SP3-KB923618-FullFile-PTB.exe

rem Mensagem de saudacao (se assim pode-se dizer)
echo Prezado, este eh um script simples para integrar o SP3 ao Office 2003.&echo.
echo NAO EH AUTOMATICO&echo.
echo Serah solicitado um no. de serial, nao fornecerei,
echo na mesma etapa serah perguntado onde desejarah instalar o Office,
echo por padrao, serah na pasta "%SystemDrive%\Office". Este script apenas funcionara
echo se instalado nesta pasta padrao. Apos a conclusao, esta serah a pasta atualizada
echo.&pause

rem Baixar Service PAck 3
cls
:buenas
echo Para baixar o Service Pack 3 agora, tecle 1,
echo Para prosseguir tecle 2.
echo obs. caso o IE trave, copie o endereco, abra uma nova tela, cole o endereco
set /p tecle=(1,2):
if %tecle%==2 goto next2
if %tecle%==1 goto next
goto buenas
:next
"%ProgramFiles%\Internet Explorer\iexplore.exe" "http://www.microsoft.com/downloads/details.aspx?FamilyID=e25b7049-3e13-433b-b9d2-5e3c1132f206&DisplayLang=pt-br"
:next2
echo.
echo Apos baixar o SP3, nao esqueca de descompacta-lo,
echo seja com o WinRAR, 7Zip ou outro de sua preferencia&echo.
echo.&pause&cls

rem Declarando Caminho Office 2003
:origem
echo 1 - Se o Office 2003 estiver em CD-ROM, ou disco removivel.
echo 2 - Se o Office 2003 estiver no HD.
set /p escolha=(1,2)
if %escolha%==1 goto BAN
if %escolha%==2 goto BAN
cls
goto origem

:BAN
echo 1- Por favor, digite o caminho onde esta o Microsoft Office 2003 (p.ex. "d:")
set /p origem=se quiser pode arrastar a pasta ate esta janela:
if exist %origem%\instalar.exe goto sp31
echo Caminho %origem% incorreto, por favor digite novamente.
pause
cls

:BIN
if %escolha%==2 goto sp31
md %SystemDrive%\tmpoffice
xcopy /q %origem% %SystemDrive%\tmpoffice
set origem=%SystemDrive%\tmpoffice

goto origem

:sp31
rem Declarando Caminho SP3
:SP3
echo 2- Por Favor, digite o caminho onde esta o Service Pack 3 (p.ex. "%SystemDrive%\SP3")
set /p SP3=se quiser pode arrastar a pasta ate esta janela:
if exist %SP3%\MAINSP3.msp goto instalar
if exist %SP3%\%ServPack% goto ServPack
echo Caminho %origem% incorreto, por favor digite novamente.
pause
cls
goto SP3
:ServPack
cls
echo Por favor, descompacte o arquivo %ServPack% antes de continuar
pause
cls
goto SP3

rem Instalacao
:instalar
xcopy %origem%\OWC10.MSI %office% /q
xcopy %origem%\SKU026.CAB %office% /q
xcopy %origem%\ZY561438.CAB %office% /q
%origem%\instalar /a

rem Integrando SP3
set office=%SystemDrive%\office
msiexec /p %SP3%\MAINSP3.msp /a %office%\PRO11.MSI shortfilenames=1 /qb
echo msiexec /p %SP3%\MAINSP3.msp /a %office%\PRO11.MSI shortfilenames=1 /qb
msiexec /p %SP3%\OWC11SP3.msp /a %office%\OWC11.MSI shortfilenames=1 /qb
echo msiexec /p %SP3%\OWC11SP3.msp /a %office%\OWC11.MSI shortfilenames=1 /qb
msiexec /p %SP3%\OWC102003SP3.msp /a %office%\OWC10.MSI shortfilenames=1 /qb
echo msiexec /p %SP3%\OWC102003SP3.msp /a %office%\OWC10.MSI shortfilenames=1 /qb

rem Concluindo
echo.&echo.&echo.
echo Integracao efetuada!
start explorer %office%