Tệp tin "Office2010.cmd"

Full Path: /var/services/web/Office 2019 Full Crack/Crack Office 2019/BIN/Converter/Office2010.cmd
File size: 3.75 KB
MIME-type: text/plain
Charset: utf-8

chcp 65001 >nul
@echo off
Title CONVERT OFFICE 2010 - Copyright (C) Dominic Savio. All rights reserved.
mode con: cols=122 lines=35
chcp 65001 >nul
@echo.
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (
    echo  Run CMD as Administrator...
    goto goUAC 
) else (
 goto goADMIN )

:goUAC
    echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
    set params = %*:"=""
    echo UAC.ShellExecute "cmd.exe", "/c %~s0 %params%", "", "runas", 1 >> "%temp%\getadmin.vbs"
    "%temp%\getadmin.vbs"
    del "%temp%\getadmin.vbs"
    exit /B

:goADMIN
    pushd "%CD%"
    CD /D "%~dp0"

cls
color f0
if exist "C:\Program Files (x86)\Microsoft Office\Office14\ospp.vbs" set folder="C:\Program Files (x86)\Microsoft Office\Office14"
if exist "C:\Program Files\Microsoft Office\Office14\ospp.vbs" set folder="C:\Program Files\Microsoft Office\Office14"
set "ver= 2010"
cd /d %~dp0\"Licenses\"
REM Variables
set OfficeArchType=
REM Check Office Architecture Type
if '%processor_architecture%'=='x86' Set OfficeArchType=32 && Goto:EndArchCheck
goto:WOWCheck
:WOWCheck
if exist "%~d0\Program Files (x86)\Common Files\Microsoft Shared\OfficeSoftwareProtectionPlatform" Set OfficeArchType=WOW && Goto:EndArchCheck
Set OfficeArchType=64
:EndArchCheck
REM Find Rearm Tool
if exist "%~d0\Program Files (x86)\Common Files\Microsoft Shared\OfficeSoftwareProtectionPlatform" (
set ospprearm="%~d0\Program Files (x86)\Common Files\Microsoft Shared\OfficeSoftwareProtectionPlatform\ospprearm.exe"
) ELSE (
set ospprearm="%~d0\Program Files\Common Files\Microsoft Shared\OfficeSoftwareProtectionPlatform\ospprearm.exe"
)

cls
type Text\Office2010.txt
@echo.
@echo ===========================
Choice /N /C 12345 /M "* Nhap lua chon cua ban :
IF %errorlevel% == 1 SET "EDITION=ProjectPro" & GOTO 2Volume2010
IF %errorlevel% == 2 SET "EDITION=ProPlus" & GOTO 2Volume2010
IF %errorlevel% == 3 SET "EDITION=VisioPro" & GOTO 2Volume2010 
REM IF %errorlevel% == 4 SET "EDITION=ProjectPro" & GOTO 2Retai2010
IF %errorlevel% == 4 SET "EDITION=ProPlus" & GOTO 2Retai2010
REM IF %errorlevel% == 6 SET "EDITION=VisioPro" & GOTO 2Retai2010
IF %errorlevel% == 5 GOTO:Exit

:exit
@echo.
@echo ================================================
@echo [  Cam on ban da su dung Activate AIO Tools!   ]
@echo [     Thanks for using Activate AIO Tools!     ]
@echo ================================================
timeout 3
start https://www.facebook.com/HoiQuanCongNgheTinHoc
exit

:2Volume2010
cls
@echo.
@echo   DANG CONVERT OFFICE%ver% %EDITION% RETAIL SANG VL....
@echo.
FOR %%G IN (pkeyconfig*.xrm-ms) DO (cscript //Nologo %folder%\ospp.vbs /inslic:%%G)
cd /d %~dp0\"License Files\License10\Volume"
FOR %%G IN (%EDITION%*.xrm-ms) DO (cscript //Nologo %folder%\ospp.vbs /inslic:%%G)
cd /d %~dp0\"License Files\License10\Volume\%EDITION%"
if %OfficeArchType%==32 regedit /s Registration32.reg
if %OfficeArchType%==64 regedit /s Registration64.reg
if %OfficeArchType%==WOW regedit /s RegistrationWOW.reg
echo.&echo COMPLETED !
echo.
pause
goto:exit

:2Retai2010
cls
@echo.
@echo    DANG CONVERT OFFICE%ver% %EDITION% VL SANG RETAIL....
@echo.
FOR %%G IN (pkeyconfig*.xrm-ms) DO (cscript //Nologo %folder%\ospp.vbs /inslic:%%G)
cd /d %~dp0\"License Files\License10\Retail"
FOR %%G IN (%EDITION%*.xrm-ms) DO (cscript //Nologo %folder%\ospp.vbs /inslic:%%G)
FOR %%G IN (OEM*.xrm-ms) DO (cscript //Nologo %folder%\ospp.vbs /inslic:%%G)
cd /d %~dp0\"License Files\License10\Retail\%EDITION%"
if %OfficeArchType%==32 regedit /s Registration32.reg
if %OfficeArchType%==64 regedit /s Registration64.reg
if %OfficeArchType%==WOW regedit /s RegistrationWOW.reg
echo.&echo COMPLETED !
echo.
pause
goto:exit