Ini adalah source code untuk activator Microsoft Office 2010 yang didapati dari http://r00tsecurity.org/db/code/172



  1. @echo off
  2. @color 0C
  3. title IORRT 3.0
  5. REM Variables
  6. set InstallRoot=
  7. set OfficeArchType=
  9. REM Check Office Architecture Type
  10. if '%processor_architecture%'=='x86' Set OfficeArchType=32 && Goto:EndArchCheck
  11. goto:WOWCheck
  13. :WOWCheck
  14. 2>nul REG QUERY HKLM\SOFTWARE\Microsoft\Office\14.0\Common | find /i "InstallRoot" 1>nul
  15. IF ERRORLEVEL 1 Set OfficeArchType=WOW && Goto:EndArchCheck
  16. Set OfficeArchType=64
  18. :EndArchCheck
  20. REM Get Office Installed Path
  21. if %OfficeArchType%==WOW (
  22. 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
  23. Goto:FoundPath
  24. )
  25. 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
  27. :FoundPath
  29. REM Start OSPPSVC (To make sure it is started to prevent strange cases where it doesn't start automatically from failing (XP))
  30. 1>nul 2>nul net start osppsvc
  32. :MAINMENU
  33. mode con: cols=45 lines=10
  34. CLS
  35. echo.
  36. echo.
  37. echo.
  38. echo. InfiniteOfficeRestoreRearmTask (IORRT)
  39. echo.
  40. echo. A. Install
  41. echo. B. Uninstall
  42. echo. C. Restore/Rearm
  43. echo. D. Status
  44. echo. E. Exit
  45. echo.
  47. :CHOOSEACTION
  48. set /p userinp= ^ Make your selection:
  49. set userinp=%userinp:~0,1%
  50. if /i "%userinp%"=="A" goto Install
  51. if /i "%userinp%"=="B" goto Uninstall
  52. if /i "%userinp%"=="C" goto Restore/Rearm
  53. if /i "%userinp%"=="D" goto Status
  54. if /i "%userinp%"=="E" goto Exit
  55. echo.Try Again...
  56. GOTO CHOOSEACTION
  58. :Install
  59. CLS
  60. mode con: cols=64 lines=21
  61. title IORRT 3.0
  62. schtasks /query | FINDSTR /I "IORRT" >NUL
  63. IF ERRORLEVEL 1 (
  64. echo Checking rearm status...
  65. echo.
  66. ) ELSE (
  67. echo IORRT has already been installed...
  68. echo.
  69. echo Press any key to return to the main menu
  70. PAUSE 1>nul
  71. GOTO MAINMENU
  72. )
  73. mkdir "%SystemDrive%\Check"
  74. net stop osppsvc
  75. xcopy /cheriky "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" "%SystemDrive%\Check\Backup\Files\Tokens"
  76. mkdir "%SystemDrive%\Check\Backup\Registry"
  77. reg save "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Check\Backup\Registry\OfficeSPPInfo.hiv
  78. net start osppsvc
  79. IF Exist "%CommonProgramFiles%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" (
  80. "%CommonProgramFiles%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe"
  81. ) ELSE ( "%commonprogramfiles(x86)%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe"
  82. )
  83. if errorlevel==0 goto Pass
  84. net stop osppsvc
  85. xcopy /cheriky "%SystemDrive%\Check\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform"
  86. REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
  87. REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
  88. reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Check\Backup\Registry\OfficeSPPInfo.hiv
  89. net start osppsvc
  90. DEL "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform\Backup.hiv"
  91. SET file=%SystemDrive%\Check
  92. IF EXIST %file% attrib -h %file%
  93. RD /S /Q %file%
  94. echo.
  95. echo.No rearms detected...
  96. echo.
  97. echo.Press any key to return to the main menu
  98. pause > nul
  99. GOTO MAINMENU
  100. )
  101. :Pass
  102. net stop osppsvc
  103. xcopy /cheriky "%SystemDrive%\Check\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform"
  104. REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
  105. REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
  106. reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Check\Backup\Registry\OfficeSPPInfo.hiv
  107. net start osppsvc
  108. DEL "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform\Backup.hiv"
  109. SET file=%SystemDrive%\Check
  110. IF EXIST %file% attrib -h %file%
  111. RD /S /Q %file%
  112. echo.
  113. echo Installing IORRT...
  114. echo.
  115. mkdir "%SystemDrive%\IORRT"
  116. net stop osppsvc
  117. xcopy /cheriky "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" "%SystemDrive%\IORRT\Backup\Files\Tokens"
  118. mkdir "%SystemDrive%\IORRT\Backup\Registry"
  119. reg save "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\IORRT\Backup\Registry\OfficeSPPInfo.hiv
  120. net start osppsvc
  121. SET file=%SystemDrive%\IORRT\IORRT.bat
  122. IF EXIST %file% attrib -h %file%
  123. echo @echo off >%file%
  124. echo net stop osppsvc >>%file%
  125. echo xcopy /cheriky "%SystemDrive%\IORRT\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" >>%file%
  126. echo REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >>%file%
  127. echo REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >>%file%
  128. echo reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\IORRT\Backup\Registry\OfficeSPPInfo.hiv >>%file%
  129. echo net start osppsvc >>%file%
  130. echo IF Exist "%COMMONPROGRAMFILES%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" ( >>%file%
  131. echo "%COMMONPROGRAMFILES%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" >>%file%
  132. echo ) ELSE ( "%COMMONPROGRAMFILES(X86)%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" >>%file%
  133. echo ) >>%file%
  134. echo schtasks /delete /tn "IORRT" /f >>%file%
  135. echo schtasks /create /tn "IORRT" /tr "%SystemDrive%\IORRT\IORRT.bat" /sc daily /mo 1 /ru "" >>%file%
  136. IF Exist "%CommonProgramFiles%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" (
  137. "%CommonProgramFiles%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe"
  138. ) ELSE ( "%commonprogramfiles(x86)%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe"
  139. )
  140. schtasks /create /tn "Hybrid" /tr "%SystemDrive%\IORRT\IORRT.bat" /sc onstart /ru ""
  141. schtasks /create /tn "IORRT" /tr "%SystemDrive%\IORRT\IORRT.bat" /sc daily /mo 1 /ru ""
  142. echo.
  143. cd /d "%InstallRoot%"
  144. cscript OSPP.VBS /dstatus
  145. schtasks /query | FINDSTR /I "IORRT"
  146. echo.Press any key to return to the main menu
  147. pause > nul
  148. GOTO MAINMENU
  149. )
  151. :Uninstall
  152. mode con: cols=64 lines=21
  153. title IORRT 3.0
  154. schtasks /query | FINDSTR /I "IORRT" >NUL
  155. IF '%ERRORLEVEL%' EQU '0' (
  156. echo Uninstalling IORRT...
  157. echo.
  158. ) ELSE (
  159. echo IORRT is already uninstalled...
  160. echo.
  161. echo Press any key to return to the main menu
  162. PAUSE 1>nul
  163. GOTO MAINMENU
  164. )
  165. net stop osppsvc
  166. xcopy /cheriky "%SystemDrive%\IORRT\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform"
  167. REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
  168. REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
  169. reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\IORRT\Backup\Registry\OfficeSPPInfo.hiv
  170. net start osppsvc
  171. DEL "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform\Backup.hiv"
  172. SET file=%SystemDrive%\IORRT
  173. IF EXIST %file% attrib -h %file%
  174. RD /S /Q %file%
  175. schtasks /delete /tn "Hybrid" /f
  176. schtasks /delete /tn "IORRT" /f
  177. cd /d "%InstallRoot%"
  178. cscript OSPP.VBS /dstatus
  179. schtasks /query | FINDSTR /I "IORRT"
  180. echo.
  181. echo.Press any key to return to the main menu
  182. pause > nul
  183. GOTO MAINMENU
  184. )
  186. :Restore/Rearm
  187. mode con: cols=64 lines=21
  188. title IORRT 3.0
  189. schtasks /query | FINDSTR /I "IORRT" >NUL
  190. IF '%ERRORLEVEL%' EQU '0' (
  191. echo Restoring/Rearming...
  192. echo.
  193. ) ELSE (
  194. echo Install IORRT before you Restore/Rearm...
  195. echo.
  196. echo Press any key to return to the main menu
  197. PAUSE 1>nul
  198. GOTO MAINMENU
  199. )
  200. net stop osppsvc
  201. xcopy /cheriky "%SystemDrive%\IORRT\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform"
  202. REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
  203. REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f
  204. reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\IORRT\Backup\Registry\OfficeSPPInfo.hiv
  205. net start osppsvc
  206. IF Exist "%CommonProgramFiles%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe" (
  207. "%CommonProgramFiles%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe"
  208. ) ELSE ( "%commonprogramfiles(x86)%\microsoft shared\OfficeSoftwareProtectionPlatform\OSPPREARM.exe"
  209. )
  210. schtasks /delete /tn "IORRT" /f
  211. schtasks /create /tn "IORRT" /tr '"%SystemDrive%\IORRT\IORRT.bat"' /sc daily /mo 1 /ru ""
  212. cd /d "%InstallRoot%"
  213. cscript OSPP.VBS /dstatus
  214. schtasks /query | FINDSTR /I "IORRT"
  215. echo.Press any key to return to the main menu
  216. pause > nul
  217. GOTO MAINMENU
  218. )
  220. :Status
  221. mode con: cols=64 lines=21
  222. title IORRT 3.0
  223. cd /D "%InstallRoot%"
  224. cscript OSPP.VBS /dstatus
  225. schtasks /query | FINDSTR /I "IORRT"
  226. IF ERRORLEVEL 1 echo IORRT is not yet Installed
  227. echo.
  228. echo.Press any key to return to the main menu
  229. pause > nul
  230. GOTO MAINMENU
  231. )
  233. :Exit


TAGS :