IORRT - The Official Office 2010 VL Rearm Solution

Need testers on XP for this code

Code:

@echo off
set msg=What's up dude
call :speak "What's up dude"
:speak
echo CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
pause 

 

You need to login to view this posts content.

 

Well most all are going to have audio working. What me the developer needs to know is does it cause install failure or failure with other options? So that is my question. I just want to know if the small cmd I posted works on XP. Does that script work?

 

Latest IORRT 2.3 Put

Code:

goto :END

regarding XP in voice part

Code:

@echo off
@color 0C
title IORRT 2.3

REM Variables
set InstallRoot=
set OfficeArchType=

REM Check Office Architecture Type
if '%processor_architecture%'=='x86' Set OfficeArchType=32 && Goto:EndArchCheck
goto:WOWCheck

:WOWCheck
2>nul REG QUERY HKLM\SOFTWARE\Microsoft\Office\14.0\Common | find /i "InstallRoot" 1>nul
IF ERRORLEVEL 1 Set OfficeArchType=WOW && Goto:EndArchCheck
Set OfficeArchType=64

:EndArchCheck

REM Get Office Installed Path
if %OfficeArchType%==WOW (
FOR /F "tokens=2* delims= " %%A IN ('REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot" /v Path') DO SET InstallRoot=%%B 
Goto:FoundPath
)
FOR /F "tokens=2* delims= " %%A IN ('REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot" /v Path') DO SET InstallRoot=%%B

:FoundPath

REM Start OSPPSVC (To make sure it is started to prevent strange cases where it doesn't start automatically from failing (XP))
1>nul 2>nul net start osppsvc

:MAINMENU
mode con: cols=45 lines=10
CLS
echo.
echo.
echo.  
echo.    InfiniteOfficeRestoreRearmTask (IORRT) 
echo.    
echo.               A. Install
echo.               B. Uninstall
echo.               C. Restore/Rearm
echo.               D. Status
echo.               E. Exit
echo.
  
:CHOOSEACTION
set /p userinp=    ^   Make your selection: 
set userinp=%userinp:~0,1%
if /i "%userinp%"=="A" goto Install
if /i "%userinp%"=="B" goto Uninstall
if /i "%userinp%"=="C" goto Restore/Rearm
if /i "%userinp%"=="D" goto Status
if /i "%userinp%"=="E" goto Exit
echo.Try Again...
GOTO CHOOSEACTION

:Install
CLS
mode con: cols=64 lines=21
title IORRT 2.3
schtasks /query | FINDSTR /I "IORRT" >NUL 
IF ERRORLEVEL 1 (
echo Checking rearm status...
echo.
) ELSE (
echo IORRT has already been installed...
echo.
echo Press any key to return to the main menu
PAUSE 1>nul
GOTO MAINMENU
)
mkdir "%SystemDrive%\Check"
net stop osppsvc
xcopy /cheriky "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" "%SystemDrive%\Check\Backup\Files\Tokens"
mkdir "%SystemDrive%\Check\Backup\Registry"
reg save "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Check\Backup\Registry\OfficeSPPInfo.hiv
net start osppsvc
IF Exist "%CommonProgramFiles%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" ( 
"%CommonProgramFiles%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" 
) ELSE ( "%commonprogramfiles(x86)%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" 
)
if errorlevel==0 goto Pass
net stop osppsvc
xcopy /cheriky "%SystemDrive%\Check\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform"
REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Check\Backup\Registry\OfficeSPPInfo.hiv
net start osppsvc
DEL "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform\Backup.hiv" 2> nul
SET file=%SystemDrive%\Check
IF EXIST %file% attrib -h %file%
RD /S /Q  %file%
echo.
echo.No rearms detected...
set msg=No rearms detected
call :speak "No rearms detected"
goto :END
:speak
echo CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
echo.
echo.Press any key to return to the main menu
pause > nul
GOTO MAINMENU
)
:Pass
net stop osppsvc
xcopy /cheriky "%SystemDrive%\Check\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform"
REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Check\Backup\Registry\OfficeSPPInfo.hiv
net start osppsvc
DEL "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform\Backup.hiv" 2> nul
SET file=%SystemDrive%\Check
IF EXIST %file% attrib -h %file%
RD /S /Q  %file%
echo.
echo Installing IORRT...
echo.
mkdir "%SystemDrive%\IORRT"
net stop osppsvc
xcopy /cheriky "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" "%SystemDrive%\IORRT\Backup\Files\Tokens"
mkdir "%SystemDrive%\IORRT\Backup\Registry"
reg save "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\IORRT\Backup\Registry\OfficeSPPInfo.hiv
net start osppsvc
SET file=%SystemDrive%\IORRT\IORRT.bat
IF EXIST %file% attrib -h %file% 
echo @echo off >%file%
echo net stop osppsvc >>%file%
echo xcopy /cheriky "%SystemDrive%\IORRT\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" >>%file%
echo REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >>%file%
echo REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >>%file%
echo reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\IORRT\Backup\Registry\OfficeSPPInfo.hiv >>%file%
echo net start osppsvc >>%file%
echo IF Exist "%COMMONPROGRAMFILES%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" ( >>%file%
echo "%COMMONPROGRAMFILES%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" >>%file%
echo ) ELSE ( "%COMMONPROGRAMFILES(X86)%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" >>%file%
echo ) >>%file%
echo schtasks /delete /tn "IORRT" /f >>%file%
echo schtasks /create /tn "IORRT" /tr "%SystemDrive%\IORRT\IORRT.bat" /sc daily /mo 1 /ru "" >>%file%
IF Exist "%CommonProgramFiles%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" ( 
"%CommonProgramFiles%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" 
) ELSE ( "%commonprogramfiles(x86)%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" 
)
attrib +h "%SystemDrive%\IORRT"
schtasks /create /tn "Hybrid" /tr "%SystemDrive%\IORRT\IORRT.bat" /sc onstart /ru ""
schtasks /create /tn "IORRT" /tr "%SystemDrive%\IORRT\IORRT.bat" /sc daily /mo 1 /ru ""
echo.
cd /d "%InstallRoot%"
cscript OSPP.VBS /dstatus
schtasks /query | FINDSTR /I "IORRT"
set msg=Installation Successful
call :speak "Installation Successful"
goto :END
:speak
echo CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
echo.Press any key to return to the main menu
pause > nul
GOTO MAINMENU
)

:Uninstall
mode con: cols=64 lines=21
title IORRT 2.3
schtasks /query | FINDSTR /I "IORRT" >NUL
IF '%ERRORLEVEL%' EQU '0' (
echo Uninstalling IORRT...
echo.
) ELSE (
echo IORRT is already uninstalled...
echo.
echo Press any key to return to the main menu
PAUSE 1>nul
GOTO MAINMENU
)
net stop osppsvc
xcopy /cheriky "%SystemDrive%\IORRT\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform"
REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\IORRT\Backup\Registry\OfficeSPPInfo.hiv
net start osppsvc
DEL "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform\Backup.hiv" 2> nul
SET file=%SystemDrive%\IORRT
IF EXIST %file% attrib -h %file%
RD /S /Q  %file%
schtasks /delete /tn "Hybrid" /f
schtasks /delete /tn "IORRT" /f
cd /d "%InstallRoot%"
cscript OSPP.VBS /dstatus
schtasks /query | FINDSTR /I "IORRT"
set msg=Uninstall Successful
call :speak "Uninstall Successful"
goto :END
:speak
echo CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
echo.
echo.Press any key to return to the main menu
pause > nul
GOTO MAINMENU
)

:Restore/Rearm
mode con: cols=64 lines=21
title IORRT 2.3
schtasks /query | FINDSTR /I "IORRT" >NUL 
IF '%ERRORLEVEL%' EQU '0' (
echo Restoring/Rearming...
echo.
) ELSE (
echo Install IORRT before you Restore/Rearm...
echo.
echo Press any key to return to the main menu
PAUSE 1>nul
GOTO MAINMENU
)
net stop osppsvc
xcopy /cheriky "%SystemDrive%\IORRT\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform"
REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\IORRT\Backup\Registry\OfficeSPPInfo.hiv
net start osppsvc
IF Exist "%CommonProgramFiles%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" ( 
"%CommonProgramFiles%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" 
) ELSE ( "%commonprogramfiles(x86)%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" 
)
schtasks /delete /tn "IORRT" /f 
schtasks /create /tn "IORRT" /tr '"%SystemDrive%\IORRT\IORRT.bat"' /sc daily /mo 1 /ru ""
cd /d "%InstallRoot%"
cscript OSPP.VBS /dstatus
schtasks /query | FINDSTR /I "IORRT"
set msg=Restore and Rearm Successful
call :speak "Restore and Rearm Successful"
goto :END
:speak
echo CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
echo.Press any key to return to the main menu
pause > nul
GOTO MAINMENU
)

:Status
mode con: cols=64 lines=21
title IORRT 2.3
cd /D "%InstallRoot%"
cscript OSPP.VBS /dstatus
schtasks /query | FINDSTR /I "IORRT"
IF ERRORLEVEL 1 echo IORRT is not yet Installed
echo.
echo.Press any key to return to the main menu
pause > nul
GOTO MAINMENU
)

:Exit
exit

 

I don't think at the cmd line also it's english based here at mdl so most will get a kick of MasterDisasters idea to add voice which he did for his all volume KMS activator script

That is a good point though there's just nothing to do with IORRT so I thought I'd have fun

And really IORRT is a different solution than IR4 meaning it is permanent and only requires initial install one time

It's much cooler with Hidden IORRT folder

 

You need to login to view this posts content.

 

You need to login to view this posts content.

 

You need to login to view this posts content.

 

You need to login to view this posts content.

 

It never activated...lol But with same appearance and usage. Don't worry though it will never drop below 29-30 days ever but how about telling us what OS and office you used 32/64?

Please people read first posts it says most of what you need to know

And only KMS activation gives you 180 days

 

You need to login to view this posts content.

 

You need to login to view this posts content.