s1ave77s scripts :: Code by s1ave77 ColdZero ms-7 MasterDisaster xinso :: Know How by CODYQX4 & mikmik38 & nosferati87 & qad & deagles & Hotbird64 & jm287 & sirWest & CyNecx ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ @echo off (NET FILE||(powershell -command Start-Process '%0' -Verb runAs -ArgumentList '%* '&EXIT /B))>NUL 2>&1 setLocal EnableDelayedExpansion ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CreateRandomIP set /a num1=%random% %% 50+30 set /a num2=%random% %% 186+20 set "host=10.%num1%.3.%num2%" s1ave77s scripts PasteShr s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ call :CheckToolStart :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::MENU SECTION :Menu1 cls pushd %~dp0 mode con cols=87 lines=50 color 07 s1ave77s scripts PasteShr s1ave77s scripts call :TITLE call :CheckSPPSVC call :ID echo: echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ echo: echo ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ M A I N M E N U ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ echo: call :Layout echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° s1ave77s scripts How to use it? s1ave77s scripts echo ° ° echo ++ EMULATORS, SERVICES AND REDIRECT HOOKS +++++++++++++++++++++++++++++++++++++++ echo ° ° echo == (1) KMS EMULATORS MENU =============== (2) KMS SERVICES MENU ================= echo ° ° echo == (3) HOOKED KMS SERVERS MENU ========== (4) KMS CLIENT MENU =================== echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo ++ CHECK, ACTIVATION AND INFORMATION ++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts echo ° ° echo == (C) CHECK STATUS MENU ================ (A) ACTIVATION MENU =================== echo ° ° echo == (G) ABOUT KMS ACTIVATION ===================================================== echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo ++ TOOLS SECTION ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ echo ° ° echo == (S) MODULES AND SYSTEM TOOLS MENU ==== (T) SYS PANEL AND MDL TOOLS MENU ====== s1ave77s scripts How to get it for free? s1ave77s scripts echo ° ° echo == (I) SYSINTERNALS, TASKKILL, BOOT MENU ======================================== echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo ²² (P) COMMAND PROMPT ²²²²²²²²²²²²²²²²²²² (E) EXIT ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² echo: :choice1 CHOICE /C 1234CAGSTIPE /N /M " ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫Ü/ YOUR CHOICE \Ü₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ ₫>" if %errorlevel%==1 goto:MenuC s1ave77s scripts How to get it for free? s1ave77s scripts if %errorlevel%==2 goto:Menu2 if %errorlevel%==3 goto:MenuH if %errorlevel%==4 goto:Menu3 if %errorlevel%==5 goto:MenuA if %errorlevel%==6 goto:Menu5 if %errorlevel%==7 goto:About if %errorlevel%==8 goto:StartSystemTools if %errorlevel%==9 goto:StartTools if %errorlevel%==10 goto:StartSysInternal if %errorlevel%==11 goto:CommandPrompt s1ave77s scripts PasteShr s1ave77s scripts if %errorlevel%==12 goto:Exit goto:Menu1 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :MenuC cls mode con cols=87 lines=50 color 0F echo: echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ s1ave77s scripts PasteShr s1ave77s scripts echo: echo ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ KMS EMULATORS ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ echo: call :Layout echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo -- (C) Emulator by CODYQX4 -------------- (D) Emulator by deagles --------------- echo ° ° echo -- (H) Emulator by Hotbird64 ---------------------------------------------------- echo ° ° s1ave77s scripts PasteShr s1ave77s scripts echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo -- (S) Stop Server Emulator ----------------------------------------------------- echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° s1ave77s scripts How to get it? s1ave77s scripts echo -- (A) Create Firewall Rule ------------- (R) Delete Firewall Rule -------------- echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo ° ° echo ° ° echo ° ° echo ° ° s1ave77s scripts How to get it for free? s1ave77s scripts echo ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² (B) BACK ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² echo: :choiceC CHOICE /C CDHSARB /N /M " ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫Ü/ YOUR CHOICE \Ü₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ ₫>" if %errorlevel%==1 goto:CodyRunEmulator if %errorlevel%==2 goto:DeaglesRunEmulator if %errorlevel%==3 goto:HotbirdRunEmulator if %errorlevel%==4 goto:StopEmulator if %errorlevel%==5 goto:FirewallInstall2 if %errorlevel%==6 goto:FirewallDelete2 s1ave77s scripts How to dowload it? s1ave77s scripts if %errorlevel%==7 goto:Menu1 goto:MenuC :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Menu2 cls mode con cols=87 lines=50 color 0E echo: echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ s1ave77s scripts How to dowload it? s1ave77s scripts echo: echo ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ KMS SERVER SERVICES ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ echo: call :Layout echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo -- (C) Service by CODYQX4 [8.1] --------- (K) Service by deagles [Win 8.1] ------ echo ° ° echo -- (H) Service by Hotbird64 [8.1] ----------------------------------------------- echo ° ° s1ave77s scripts How to get it? s1ave77s scripts echo ° ° echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo -- (U) Uninstall Server Service ------------------------------------------------- echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo -- (S) Settings CODYQX4's --------------- (T) Settings for deagles's------------- echo ° ° s1ave77s scripts PasteShr s1ave77s scripts echo -- (V) Settings Hotbird64's ----------------------------------------------------- echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo -- (D) Delete Firewall Rules ------------ (E) Enable Firewall Rules ------------- echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo: ° ° echo ° ° s1ave77s scripts How to dowload it? s1ave77s scripts echo ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² (B) Back ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² echo: :choice2 CHOICE /C CKHUSTVDEB /N /M " ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫Ü/ YOUR CHOICE \Ü₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ ₫>" if %errorlevel%==1 goto:CodyInstall if %errorlevel%==2 goto:DeaglesInstall if %errorlevel%==3 goto:Hotbird64Install if %errorlevel%==4 goto:ServiceUninstall if %errorlevel%==5 goto:CustomCody if %errorlevel%==6 goto:CustomDeagles s1ave77s scripts How to get it? s1ave77s scripts if %errorlevel%==7 goto:CustomHotbird64 if %errorlevel%==8 goto:FirewallDelete if %errorlevel%==9 goto:FirewallInstall if %errorlevel%==10 goto:Menu1 goto:Menu2 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :MenuH cls echo: s1ave77s scripts How to get it? s1ave77s scripts echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ echo: echo ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ HOOKED KMS SERVERS ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ echo: call :Layout echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo ++ HOOKS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° s1ave77s scripts PasteShr s1ave77s scripts echo ° ° echo -- (1) WinDivert 1.1 ------------------- (2) SppExtComObjPatch Hook ------------- echo ° ° echo ° ° echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo ++ HOOKED SERVERS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° s1ave77s scripts How to get it? s1ave77s scripts echo ° ° echo -- (5) Hook ^& Server by CyNecx --------- (6) ^<^<^< Uninstall ---------------------- echo ° ° echo -- (7) Hook ^& Server by qad ------------ (8) ^<^<^< Uninstall ---------------------- echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo ° ° echo ° ° echo ° ° s1ave77s scripts How to get it? s1ave77s scripts echo ° ° echo ²² (R) REBOOT ²²²²²²²²²²²²²²²²²²²²²²²²²²² (B) BACK ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² echo: :choiceH CHOICE /C 125678B /N /M " ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫Ü/ YOUR CHOICE \Ü₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ ₫>" if %errorlevel%==1 goto:WinDivert if %errorlevel%==2 goto:SppExtComObjPatch if %errorlevel%==3 goto:CynecxInstall if %errorlevel%==4 goto:CynecxUnInstall if %errorlevel%==5 goto:QADInstall s1ave77s scripts How to get it? s1ave77s scripts if %errorlevel%==6 goto:QADUnInstall if %errorlevel%==7 goto:Menu1 goto:MenuH :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Menu3 cls mode con cols=87 lines=50 color 0B echo: s1ave77s scripts How to get it for free? s1ave77s scripts echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ echo: echo ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ KMS CLIENT EMULATOR ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ echo: call :Layout echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo ---------------------- (C) KMS Client Emulator by CODYQX4 ----------------------- echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° s1ave77s scripts How to get it for free? s1ave77s scripts echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo ---------------------- (H) KMS Client Emulator by Hotbird64 --------------------- echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo ° ° s1ave77s scripts How to get it? s1ave77s scripts echo ° ° echo ° ° echo ° ° echo ° ° echo ° ° echo ° ° echo ° ° echo ° ° echo ° ° echo ° ° s1ave77s scripts How to dowload it? s1ave77s scripts echo ° ° echo ²²²²²²²²²²²²²²²²²²²²²² (B) BACK ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² echo: :choice3 CHOICE /C CHB /N /M " ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫Ü/ YOUR CHOICE \Ü₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ ₫>" if %errorlevel%==1 goto:CodyInput if %errorlevel%==2 goto:HotbirdInput if %errorlevel%==3 goto:Menu1 goto:Menu3 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :MenuA cls mode con cols=87 lines=50 color 0A call :CheckSPPSVC call :ID echo: echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ echo: s1ave77s scripts How to dowload it? s1ave77s scripts echo ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ CHECK STATUS ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ echo: call :Layout echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo -- (1) CHECK SERVERS -------------------- (2) CHECK EMULATOR -------------------- echo ° ° echo -- (3) CHECK PHYSICAL HOST -------------- (4) CHECK PORT ------------------------ echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° s1ave77s scripts How to use it? s1ave77s scripts echo ° ° echo ++ (C) ACTIVATION STATUS ALL ++++++++++++++++++++++++++++++++++++++++++++++++++++ echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo -- (H) Halt Service ------------------------------------------------------------- echo ° ° echo -- (R) Restart Service manually --------- (S) Start Service --------------------- echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° s1ave77s scripts PasteShr s1ave77s scripts echo ° ° echo -- (I) IP Lookup ------------------------ (L) Clear all Logs -------------------- echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo ° ° echo ° ° echo ° ° echo ° ° echo ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² (B) BACK ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² s1ave77s scripts How to use it? s1ave77s scripts echo: :choiceA CHOICE /C 1234CRHSILB /N /M " ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫Ü/ YOUR CHOICE \Ü₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ ₫>" if %errorlevel%==1 goto:CheckInstall if %errorlevel%==2 goto:CheckEmulator if %errorlevel%==3 goto:CheckRealHost if %errorlevel%==4 goto:CheckPortUsage if %errorlevel%==5 goto:CheckActivation if %errorlevel%==6 goto:RestartService if %errorlevel%==7 goto:HaltService s1ave77s scripts How to get it for free? s1ave77s scripts if %errorlevel%==8 goto:StartService if %errorlevel%==9 goto:Ipconfig if %errorlevel%==10 goto:ClearLogs if %errorlevel%==11 goto:Menu1 goto:MenuA :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Menu5 cls mode con cols=87 lines=50 s1ave77s scripts How to dowload it? s1ave77s scripts color 0C call :CheckSPPSVC call :ID echo: echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ echo: echo ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ ACTIVATION ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ echo: call :Layout echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° s1ave77s scripts How to dowload it? s1ave77s scripts echo ° ° echo ++ (W) ACTIVATE WINDOWS +++++++++++++++++ (O) ACTIVATE OFFICE +++++++++++++++++++ echo ° ° echo ++ (I) INSTALL PRODUCT KEY ++++++++++++++ (Z) REARM OFFICE 2013 +++++++++++++++++ echo ° ° echo ++ (T) RE-ACTIVATION TASK +++++++++++++++ (C) CONVERT OFFICE 15/16 INSTALL ++++++ echo ° ° echo ++ (F) OFFICE FIXITs ++++++++++++++++++++ (U) UNINSTALL OFFICE LICENSE ++++++++++ echo ° ° echo +++++++++++++++++++++++++++++++++++++++++ (D) DOWNLOAD/INSTALL OFFICE 16 ++++++++ s1ave77s scripts How to dowload it? s1ave77s scripts echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo ++ ACTIVATE WITH CHOICE +++++++++++++++++ ACTIVATE ALL AUTOMATICALLY ++++++++++++ echo ° ° echo -- (1) Instant Run [CODY/qad] ---------- (2) "Quick 'n Dirty" [CODY/qad] ------- echo ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo ° ° echo -- (P) Activate by Phone ---------------- (R) Rebuild License ------------------- s1ave77s scripts How to get it for free? s1ave77s scripts echo ° ° echo -- (V) Validate Win 7 Online ------------ (E) Export Tokens [Win 8 up] ---------- echo ° ° echo -- (K) Block MS KMS-Check --------------- (L) Unblock MS KMS-Check -------------- echo ° ° echo ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² (B) BACK ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² echo: :choice5 CHOICE /C WOIZTCFUD12PRVEKLB /N /M " ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫Ü/ YOUR CHOICE \Ü₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ ₫>" if %errorlevel%==1 goto:Activate s1ave77s scripts How to get it for free? s1ave77s scripts if %errorlevel%==2 goto:ActivateOffice if %errorlevel%==3 goto:KeyInstall if %errorlevel%==4 goto:RearmOffice if %errorlevel%==5 goto:ReactivationTasks if %errorlevel%==6 goto:ConvertOffice if %errorlevel%==7 goto:OfficeFixit if %errorlevel%==8 goto:UninstallOffice if %errorlevel%==9 goto:Office16VnextInstall if %errorlevel%==10 goto:InstantActivation if %errorlevel%==11 goto:QuickAndDirtyQAD s1ave77s scripts How to get it? s1ave77s scripts if %errorlevel%==12 goto:CallMS if %errorlevel%==13 goto:RebuildLicense if %errorlevel%==14 goto:Validate if %errorlevel%==15 goto:ExportTokens if %errorlevel%==16 goto:BlockCheck if %errorlevel%==17 goto:UnBlockCheck if %errorlevel%==18 goto:Menu1 goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts PasteShr s1ave77s scripts :About cls color 0B echo: echo ÛßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÛ echo: Û Û echo Û ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ ABOUT KMS ACTIVATION ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ Û echo: Û Û echo ÛÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜÛ echo: s1ave77s scripts PasteShr s1ave77s scripts echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo: ° ° echo ° FIRST: As there won't be any serious Loader for Win 8, like the one by Daz ° echo ° for Win 7, due to O.A 3.0, there are only two ways for legit activation: ° echo ° (1) legit RETAIL Key or MAK or (2) volume-based KMS activation. ° echo: ° ° echo ° With RTM of Win 8.1 Microsoft introduced KMS V6 protocol, which refuses ° echo ° activation via localhost. Now a redirect hook is needed to reach the Host. ° echo: ° ° echo ° The new solutions work for Win 8 and 8.1, but are not downward compatible. ° s1ave77s scripts How to get it for free? s1ave77s scripts echo ° So for Win 7 and Server 2008 R2 the old solutions needed to be installed. ° echo: ° ° echo ° NOTE: "Instant Run" and "Quick & Dirty" will determine the OS Version by ° echo ° buildstring and automatically install the proper Server. ° echo: ° ° echo: ° ° echo ° LIMITATION: Volume-based activation is time-limitted by design. ° echo: ° ° echo ° WIN 7 : Professional, Enterprise and Servers (180 days) ° echo: ° ° s1ave77s scripts How to get it? s1ave77s scripts echo ° WIN 8 : Pro, Ent and Servers (180 days); Core ^& ProfessionalWMC (30 days) ° echo: ° ° echo ° WIN 8.1: Pro, Ent and Servers (180 days); Core ^& ProfessionalWMC (45 days) ° echo: ° ° echo ° OFFICE : Office 2010 ProPlus VL and Office 2013 ProPlus VL (180 days) ° echo: ° ° echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° echo: echo YOUR SYSTEM : %computername% echo STATUS : %license% %left% s1ave77s scripts PasteShr s1ave77s scripts echo OS-NAME : %ver% %comment% echo CHANNEL : %channel% echo OS-BUILD : %build%.%build1% echo OS-EDITION : %edition% echo OS-ARCITECTURE: %vera% echo ÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ echo Û Greetings to all MDL menbers out there, keep reaching the rainbow. Û echo ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ echo: echo ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ (c) s1ave77 (tm) [SUCKERS Inc. (SubNode Beta)] ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ s1ave77s scripts How to get it for free? s1ave77s scripts echo: echo ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ/ press any key to continue \ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ && pause >nul goto:BroughtToYou :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :BroughtToYou cls color 04 echo: echo ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ s1ave77s scripts How to dowload it? s1ave77s scripts echo ÛßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÛ echo ÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ echo Û ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ THIS TOOL IS BROUGHT TO YOU BY: ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ Û echo ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ echo ÛÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜÛ echo ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß echo: echo ÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛ echo ÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛ echo Û Û ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ Û Û s1ave77s scripts How to dowload it? s1ave77s scripts echo ÛßÛ Û₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫Û ÛßÛ echo ÛÜÛ Û₫ÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ₫Û ÛÜÛ echo Û Û Û₫Û ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ Û₫Û Û Û echo ÛßÛ Û₫Û Û²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²ÛÛ ß ÛÛ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²Û Û₫Û ÛßÛ echo ÛÜÛ Û₫Û Û±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±Û ÜÛÜ Û±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±Û Û₫Û ÛÜÛ echo Û Û Û₫Û Û°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°ÛÜ ß ÜÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Û Û₫Û Û Û echo Û ÜÜ Ü ÜÜÜ Ü ÜÜÜ Ü Ü ÜÜÜ Ü ÜÜ ÜÜÜ ÜÜ Ü ÜÜ ÜÜÜ ÜÜ Ü ÜÜÜ ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ echo Û ß ÜÜßß²²Û ÜÛ±Û±ßÛ Û²²ßßÜÜ ß ÛÛÛÛ ÛÛÛÛ ß ÜÜßß²²Û Ûß±ÛßßÛß±Û Ûß±ÛßßÛß±Û Û echo Û ÜÛßßÛ±±±Û ßßÛ²²Û Û Û±±±ÛßßÛÜ ÛßÛÛ ÛÛßÛ ÜÛßßÛ±±±Û Û±±Û Û²²Û Û±±Û Û²²Û Û echo Û Û²±Û Û°°Û Û²²± Û Û°°Û Û²²Û Û²²Û Û²²Û Û²±Û Û°°Û ÛÛßß Û²²Û ÛÛßß Û²²Û Û s1ave77s scripts How to get it for free? s1ave77s scripts echo Û Û²²Û ßßÛß Û±±° Û ßÛßß Û²²Û Û²²Û Û²²Û Û±±Û Û±ÛÜ Ü ÛÛ±Û Ü ÛÛ±Û Û echo Û ßÛÛÜ Ü²Ü ß°±± ß Ü²Ü ÜÛ±±Û ÛÛ±Û Û±ÛÛ ÛÛ±Û Û°°Û Ü²Ü ß±±Û Ü²Ü ß±±Û Û echo Û ÛÜ ßÛÛÜÜ ß Û°°² Û ß ÜÜÛßßÛ±±Û Ü Û±±Û Û±±Û Ü Û°°ÛÜÜÛßß ß Ü Û°°Û ß Ü Û°°Û Û echo Û ÛÛÛÛ Û°°±ßÛ ÛÛÛÛ Û°°Ü Ü Ü°°Û Û°°Ü Ü Ü°°Ûß Û°°Û Û°°Û Û echo Û ÛÛÜÜ Û²²Û ±Û±± Û Û²²Û ß°°Û ÛÛ°Û Û°ÛÛ Û±±Û ÜÜÛÛ ß ß Û±±ß ß ß Û±±ß Û echo Û Û²²Û Û±±Û Ü Û°°° Û Ü Û±±Û Û±ÜÛ Û±±Û Û±±Û Û±±Û Û°°Û °Ûß° Û±±Û °Ûß° Û±±Û Û echo Û Ü±±Û Û°°Ü Ü Ü²²² Ü Ü Ü°°Û Û²²Û ßÜ Û Û Üß ÛÛ±Û Û±±Ü ±± ° Û²²Û ±± ° Û²²Û Û echo Û Û°°Û ÛÛÜÛ ÛÛ±Û Û ÛÜÛÛ Û²ÛÛ Ü²Ü ßÛÛÜÛÛß Ü²Ü Û±ÜÛ ÛÛÛÛ Ü ßß Û²²Û Ü ßß Û²²Û Û echo Û ßßÛÛÛÛß Ü ÜÜÛÜÛÛÜÛÜÜ ßßÛÛÛÛÛÛÛÜ ß Ü ßÛß Ü ß Ü ßßÛÛÛÛß ÜÜß²ß ÜÜÛÛÛÛÜß²ß ÜÜÛÛÛÛÜÛ echo Û Ü Û s1ave77s scripts How to use it? s1ave77s scripts echo Û Û Û₫Û Û°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Ûß Ü ßÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Û Û₫Û Û Û echo ÛßÛ Û₫Û Û±±±±±±±±±±±±±±±±±±±±±D±±C±±L±±Û ßÛß Û±±X±±V±±I±±±±±±±±±±±±±±±±±±±±±Û Û₫Û ÛßÛ echo ÛÜÛ Û₫Û Û²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²ÛÛ Ü ÛÛ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²Û Û₫Û ÛÜÛ echo Û Û Û₫Û ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ Û₫Û Û Û echo ÛßÛ Û₫ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ₫Û ÛßÛ echo ÛÜÛ Û₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫Û ÛÜÛ echo Û Û ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß Û Û echo ÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛßÛ echo ÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛÜÛ echo: s1ave77s scripts How to use it? s1ave77s scripts echo ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ echo: echo ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ (c) s1ave77 (tm) [SUCKERS Inc. (SubNode Beta)] ₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫₫ echo: echo ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß echo: echo ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ/ press any key to continue \ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ && pause >nul goto:Menu1 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::EMULATOR START SECTION :CodyRunEmulator color 0F pushd %~dp0 cls call :HEADER "This option runs KMS Server Emulator by CODYQX4", " " echo: call :SetEmulatorData s1ave77s scripts How to dowload it? s1ave77s scripts echo: call :CodyPID cls call :HEADER "This option runs KMS Server Emulator by CODYQX4", " " if exist "%windir%\KMSServer\KMSServer.exe" del /s /q "%windir%\KMSServer\KMSServer.exe" >nul xcopy "files\KMS Server %vera%.exe" "%windir%\KMSServer\" /Q /S >nul ren "%windir%\KMSServer\KMS Server %vera%.exe" "KMSServer.exe" netsh advfirewall firewall add rule name="KMS Server Emulator" dir=in program="%windir%\KMSServer\KMSServer.exe" localport=%port% protocol=TCP action=allow remoteip=any netsh advfirewall firewall add rule name="KMS Server Emulator" dir=in program="%windir%\KMSServer\KMSServer.exe" localport=%port% protocol=TCP action=allow remoteip=localsubnet call :RegCODY s1ave77s scripts How to get it? s1ave77s scripts call :RegOffice start "KMS Emulator by CODYQX4 (01/31/2014)" cmd /c "%windir%\KMSServer\KMSServer.exe" goto:MenuC :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :HotbirdRunEmulator set "hSpp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" set "hOspp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" set WindowsPid=Random set Office2010Pid=Random s1ave77s scripts How to use it? s1ave77s scripts set Office2013Pid=Random color 0F pushd %~dp0 cls call :HEADER "This option runs KMS Server Emulator by Hotbird64", " " echo: call :SetEmulatorData echo: echo Windows ePID %WindowsPid% echo Office 2010 ePID %Office2010Pid% s1ave77s scripts How to dowload it? s1ave77s scripts echo Office 2013 ePID %Office2013Pid% call :FOOTER set /p WindowsPid=Set WindowsPid ^> set /p Office2010Pid=Set Office2010Pid ^> set /p Office2013Pid=Set Office2013Pid ^> cls call :HEADER "This option runs KMS Server Emulator by Hotbird64", " " if exist "%windir%\KMSServer\KMSServer.exe" del /s /q "%windir%\KMSServer\KMSServer.exe" >nul xcopy "files\kms-hgm.exe" "%windir%\KMSServer\" /Q /Y >nul ren "%windir%\KMSServer\kms-hgm.exe" "KMSServer.exe" s1ave77s scripts How to get it for free? s1ave77s scripts netsh advfirewall firewall add rule name="KMS Server Emulator" dir=in program="%windir%\KMSServer\KMSServer.exe" localport=%port% protocol=TCP action=allow remoteip=any netsh advfirewall firewall add rule name="KMS Server Emulator" dir=in program="%windir%\KMSServer\KMSServer.exe" localport=%port% protocol=TCP action=allow remoteip=localsubnet call :RegOffice call :RegDH start "KMS Emulator by Hotbird64 (10/03/2014)" cmd /c "%windir%\KMSServer\KMSServer.exe" Port=%port% Office2010=%Office2010Pid% Office2013=%Office2013Pid% Windows=%WindowsPid% RenewalInterval=%sri% goto:MenuC :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :DeaglesRunEmulator color 0F s1ave77s scripts How to get it for free? s1ave77s scripts pushd %~dp0 set WindowsPid="05426-00206-152-251264-03-1031-9200.0000-0902013" set Office2010Pid="05426-00206-234-251264-03-1031-9200.0000-0902013" set Office2013Pid="55041-00096-199-251264-03-1031-9200.0000-0902013" cls call :HEADER "This option runs KMS Server Emulator by deagles", " " echo: call :SetEmulatorData echo: echo Windows ePID=%WindowsPid% s1ave77s scripts How to use it? s1ave77s scripts echo Office 2010 ePID=%Office2010Pid% echo Office 2013 ePID=%Office2013Pid% call :FOOTER set /p WindowsPid=Set Windows ePID ^> set /p Office2010Pid=Set Office 2010 ePID ^> set /p Office2013Pid=Set Office 2013 ePID ^> cls call :HEADER "This option runs KMS Server Emulator by deagles", " " if exist "%windir%\KMSServer\KMSServer.exe" del /s /q "%windir%\KMSServer\KMSServer.exe" >nul xcopy "files\kms.exe" "%windir%\KMSServer\" /Q /Y >nul s1ave77s scripts How to dowload it? s1ave77s scripts ren "%windir%\KMSServer\kms.exe" "KMSServer.exe" netsh advfirewall firewall add rule name="KMS Server Emulator" dir=in program="%windir%\KMSServer\KMSServer.exe" localport=%port% protocol=TCP action=allow remoteip=any netsh advfirewall firewall add rule name="KMS Server Emulator" dir=in program="%windir%\KMSServer\KMSServer.exe" localport=%port% protocol=TCP action=allow remoteip=localsubnet call :RegOffice& call :RegDH start "KMS Emulator by deagles (May 2014)" cmd /c "%windir%\KMSServer\KMSServer.exe" goto:MenuC :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :StopEmulator set "hSpp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" s1ave77s scripts How to get it for free? s1ave77s scripts set "hOspp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" cls call :HEADER "This option stops KMS Server Emulator", " " echo Checking for Server Emulator instances: echo: wmic process where "name='KMSServer.exe'" | findstr /i /c:"KMSServer.exe" >nul if %errorlevel%==1 call :ServerNotRunning if %errorlevel%==1 goto:MenuC echo: TASKKILL /F /IM "KMSServer.exe" >nul s1ave77s scripts How to use it? s1ave77s scripts netsh advfirewall firewall delete rule name="KMS Server Emulator" call :UnRegOffice reg delete "HKLM\SYSTEM\CurrentControlSet\Services\KMSServerService" /f >nul 2>&1 reg delete "HKLM\SYSTEM\CurrentControlSet\services\KMSServer" /f >nul 2>&1 if exist "%windir%\KMSServer\" rd /s /q "%windir%\KMSServer\" >nul if exist "kms.ini" del /s /q "kms.ini" /f >nul goto:MenuC :ServerNotRunning echo: echo ...Server Emulator is not running. s1ave77s scripts How to get it for free? s1ave77s scripts call :FOOTER timeout /t 5 goto:MenuC :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::KMS SERVICES SECTION :CodyInstall cls s1ave77s scripts How to dowload it? s1ave77s scripts call :HEADER "This option installs the KMS Server Service by CODYQX4 ", " " call :SetServiceData call :CodyPID cls call :HEADER "This option installs the KMS Server Service by CODYQX4 ", " " call :Initiate call :FOOTER call :RegCody call :RegOffice sc create %name% binPath= "%windir%\%name%\%name%.exe" type= own error= normal obj= "NT AUTHORITY\NetworkService" start= %start% DisplayName= %name% s1ave77s scripts How to get it for free? s1ave77s scripts call :FOOTER net start %name% >nul if %errorlevel% equ 0 echo Successfully started %name%. if %errorlevel% neq 0 echo Starting %name% Failed. call :FOOTER timeout /t 5 goto:Menu2 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :DeaglesInstall s1ave77s scripts PasteShr s1ave77s scripts set WindowsPid="05426-00206-152-251264-03-1031-9200.0000-0902013" set Office2010Pid="05426-00206-234-251264-03-1031-9200.0000-0902013" set Office2013Pid="55041-00096-199-251264-03-1031-9200.0000-0902013" set hService="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\%name%\Parameters" pushd "%~dp0" cls call :HEADER "This option installs the KMS Server Service by deagles", " " call :SetServiceData cls call :HEADER "This option installs the KMS Server Service by deagles", " " s1ave77s scripts How to get it for free? s1ave77s scripts echo Windows ePID %WindowsPid% echo Office 2010 ePID %Office2010Pid% echo Office 2013 ePID %Office2013Pid% call :FOOTER set /p WindowsPid=Set WindowsPid ^> set /p Office2010Pid= Set Office2010Pid ^> set /p Office2013Pid=Set Office2013Pid ^> cls call :HEADER "This option installs the KMS Server Service by deagles", " " call :RegDH s1ave77s scripts How to dowload it? s1ave77s scripts call :RegOffice call :Initiate sc create %name% binPath= "%windir%\%name%\%name%.exe" type= own error= normal obj= "NT AUTHORITY\NetworkService" start= %start% DisplayName= %name% echo: net start %name% >nul if %errorlevel% equ 0 echo Successfully started %name%. if %errorlevel% neq 0 echo Starting %name% Failed. call :FOOTER timeout /t 5 goto:Menu2 s1ave77s scripts How to get it for free? s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Hotbird64Install set WindowsPid="05426-00206-152-251264-03-1031-9200.0000-0902013" set Office2010Pid="05426-00206-234-251264-03-1031-9200.0000-0902013" set Office2013Pid="55041-00096-199-251264-03-1031-9200.0000-0902013" set hService="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\KMS\Parameters" cls call :HEADER "This option installs the KMS Server Service by Hotbird64", " " call :SetServiceData s1ave77s scripts PasteShr s1ave77s scripts cls call :HEADER "This option installs the KMS Server Service by Hotbird64", " " echo Run Service with RandomKMSPID or enter ePIDs manually? CHOICE /C RM /M "......Set ePID mode :" if %errorlevel%==1 set rpid=1 && goto :furtherH1 if %errorlevel%==2 set rpid=0 && goto :furtherH2 :furtherH2 echo: echo Windows ePID %WindowsPid% echo Office 2010 ePID %Office2010Pid% s1ave77s scripts How to use it? s1ave77s scripts echo Office 2013 ePID %Office2013Pid% call :FOOTER set /p WindowsPid=Set WindowsPid ^> set /p Office2010Pid=Set Office2010Pid ^> set /p Office2013Pid=Set Office2013Pid ^> echo: :furtherH1 cls call :HEADER "This option installs the KMS Server Service by Hotbird64", " " call :RegDH s1ave77s scripts How to get it? s1ave77s scripts reg add %hService% /f /v "RandomPID" /d %rpid% /t "REG_DWORD" >nul call :RegOffice call :Initiate sc create %name% binPath= "%windir%\%name%\%name%.exe" type= own error= normal obj= "NT AUTHORITY\NetworkService" start= %start% DisplayName= %name% net start %name% call :FOOTER timeout /t 5 goto:Menu2 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts :CustomCody cls pushd "%~dp0" call :HEADER "This option change ePID, Port and Intervals (sai/sri) for KMS Server Service", " " echo: set triggerS=4 call :SetServiceData call :CodyPID :InstallServiceCODY2 cls s1ave77s scripts How to get it for free? s1ave77s scripts call :HEADER "This option installs the KMS Server Service by CODYQX4 ", " " net stop %name% >nul if %errorlevel% equ 0 echo Successfully stopped %name%. if %errorlevel% neq 0 echo Stopping %name% Failed. call :RegCody sc config %name% start= %start% netsh advfirewall firewall add rule name="%name% %port%" dir=in program="%windir%\%name%\%name%.exe" localport=%port% protocol=TCP action=allow remoteip=any netsh advfirewall firewall add rule name="%name% %port%" dir=in program="%windir%\%name%\%name%.exe" localport=%port% protocol=TCP action=allow remoteip=localsubnet call :FOOTER CHOICE /C YN /M "Start Sevice now? :" s1ave77s scripts How to dowload it? s1ave77s scripts if %errorlevel%==1 goto :start2 if %errorlevel%==2 goto:Menu2 :start2 echo: net start %name% >nul if %errorlevel% equ 0 echo Successfully started %name%. if %errorlevel% neq 0 echo Starting %name% Failed. call :FOOTER timeout /t 5 goto:Menu2 s1ave77s scripts How to dowload it? s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CustomDeagles set WindowsPid="05426-00206-152-251264-03-1031-9200.0000-0902013" set Office2010Pid="05426-00206-234-251264-03-1031-9200.0000-0902013" set Office2013Pid="55041-00096-199-251264-03-1031-9200.0000-0902013" cls pushd "%~dp0" call :HEADER "This option change ePID, Port and Intervals (sai/sri) for KMS Server Service", " " echo: s1ave77s scripts How to use it? s1ave77s scripts set triggerS=4 call :SetServiceData cls call :HEADER "This option installs the KMS Server Service by deagles", " " if /i "%WindowsPid%"=="" set WindowsPid="05426-00206-152-251264-03-1031-9200.0000-0902013" if /i "%Office2010Pid%"=="" set Office2010Pid="05426-00206-234-251264-03-1031-9200.0000-0902013" if /i "%Office2013Pid%"=="" set Office2013Pid="55041-00096-199-251264-03-1031-9200.0000-0902013" echo Windows ePID %WindowsPid% echo Office 2010 ePID %Office2010Pid% echo Office 2013 ePID %Office2013Pid% s1ave77s scripts How to get it for free? s1ave77s scripts call :FOOTER set /p WindowsPid=Set WindowsPid ^> set /p Office2010Pid=Set Office2010Pid ^> set /p Office2013Pid=Set Office2013Pid ^> cls call :HEADER "This option installs the KMS Server Service by deagles", " " net stop %name% >nul if %errorlevel% equ 0 echo Successfully stopped %name%. if %errorlevel% neq 0 echo Stopping %name% Failed. sc config %name% start= %start% s1ave77s scripts How to use it? s1ave77s scripts set hService="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\%name%\Parameters" call :RegDH CHOICE /C YN /M "Start Sevice now? :" if %errorlevel%==1 goto :start20 if %errorlevel%==2 goto:Menu2 :start20 echo: net start %name% >nul if %errorlevel% equ 0 echo Successfully started %name%. if %errorlevel% neq 0 echo Starting %name% Failed. s1ave77s scripts How to get it for free? s1ave77s scripts call :FOOTER timeout /t 5 goto:Menu2 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CustomHotbird64 set WindowsPid="05426-00206-152-251264-03-1031-9200.0000-0902013" set Office2010Pid="05426-00206-234-251264-03-1031-9200.0000-0902013" set Office2013Pid="55041-00096-199-251264-03-1031-9200.0000-0902013" cls s1ave77s scripts How to get it? s1ave77s scripts pushd "%~dp0" call :HEADER "This option change ePID, Port and Intervals (sai/sri) for KMS Server Service", " " echo: set triggerS=4 call :SetServiceData cls call :HEADER "This option installs the KMS Server Service by Hotbird64", " " echo Run Service with RandomKMSPID or enter ePIDs manually? CHOICE /C RM /M "Set ePID mode :" if %errorlevel%==1 set rpid=1 && goto :furtherH5 s1ave77s scripts How to get it for free? s1ave77s scripts if %errorlevel%==2 set rpid=0 && goto :furtherH6 :furtherH6 echo: echo Windows ePID %WindowsPid% echo Office 2010 ePID %Office2010Pid% echo Office 2013 ePID %Office2013Pid% call :FOOTER set /p WindowsPid=Set WindowsPid ^> set /p Office2010Pid=Set Office2010Pid ^> set /p Office2013Pid=Set Office2013Pid ^> s1ave77s scripts How to get it? s1ave77s scripts echo: :furtherH5 cls call :HEADER "This option installs the KMS Server Service by Hotbird64", " " net stop %name% >nul if %errorlevel% equ 0 echo Successfully stopped %name%. if %errorlevel% neq 0 echo Stopping %name% Failed. sc config %name% start= %start% set hService="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\KMS\Parameters" call :RegDH s1ave77s scripts How to get it for free? s1ave77s scripts reg add %hService% /f /v "RandomPID" /d %rpid% /t "REG_DWORD" >nul CHOICE /C YN /M "Start Sevice now? :" if %errorlevel%==1 goto :startH if %errorlevel%==2 goto:Menu2 :startH echo: net start %name% >nul if %errorlevel% equ 0 echo Successfully started %name%. if %errorlevel% neq 0 echo Starting %name% Failed. call :FOOTER s1ave77s scripts How to get it? s1ave77s scripts timeout /t 5 goto:Menu2 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :ServiceUninstall set "hSpp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" set "hOspp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" set "hService=HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\KMS" set "hService2=HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\%name%" cls s1ave77s scripts How to get it? s1ave77s scripts call :HEADER "This option uninstalls KMS Server Service", " " echo: if /i "%name%"=="" set name=KMSServer echo Default: %name% echo Values: Servername echo: sc query %name% >nul if errorlevel 1 goto :NotInstalled if /i "%port%"=="" set "port=1688" echo Default: %port% s1ave77s scripts PasteShr s1ave77s scripts echo Values: Port call :FOOTER set /p name=Set name ^> set /p port=Set port ^> echo: echo: net stop %name% >nul if %errorlevel% equ 0 echo Successfully stopped %name%. if %errorlevel% neq 0 echo Stopping %name% Failed. sc delete %name% s1ave77s scripts How to dowload it? s1ave77s scripts reg delete %hService% /f >nul 2>&1 reg delete %hService2% /f >nul 2>&1 call :FOOTER call :UnRegOffice SchTasks /Delete /TN "Reactivate Service MINUTE" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Service HOURLY" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Service DAILY" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Service WEEKLY" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Service MONTHLY" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Service ONSTART" /F >nul 2>&1 s1ave77s scripts How to get it? s1ave77s scripts SchTasks /Delete /TN "Reactivate Service ONLOGON" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Instant MINUTE" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Instant HOURLY" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Instant DAILY" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Instant WEEKLY" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Instant MONTHLY" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Instant ONSTART" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Instant ONLOGON" /F >nul 2>&1 netsh advfirewall firewall delete rule name="%name% %port%" if exist "%windir%\%name%" rd /s /q "%windir%\%name%" >nul s1ave77s scripts PasteShr s1ave77s scripts call :FOOTER echo: timeout /t 5 goto:Menu2 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :NotInstalled echo: echo ...Service is not installed. echo: s1ave77s scripts How to use it? s1ave77s scripts echo: timeout /t 5 goto:Menu2 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :FirewallInstall cls call :HEADER "This option installs Firewall Rule for Service", " " echo: if /i "%name%"=="" set name=KMSServer s1ave77s scripts How to use it? s1ave77s scripts if /i "%port%"=="" set "port=1688" echo Default: %name% echo Default: %port% call :FOOTER set /p name=Set name ^> set /p port=Set port ^> echo: sc query %name% >nul if errorlevel 1 ( call :NotInstalled s1ave77s scripts How to dowload it? s1ave77s scripts goto:Menu2 ) if errorlevel 1 goto:Menu2 netsh advfirewall firewall add rule name="%name% %port%" dir=in program="%windir%\%name%\%name%.exe" localport=%port% protocol=TCP action=allow remoteip=any netsh advfirewall firewall add rule name="%name% %port%" dir=in program="%windir%\%name%\%name%.exe" localport=%port% protocol=TCP action=allow remoteip=localsubnet call :FOOTER timeout /t 5 goto:Menu2 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts :FirewallDelete cls call :HEADER "This option deletes Firewall Rule for Service", " " echo: if /i "%name%"=="" set name=KMSServer if /i "%port%"=="" set "port=1688" echo Default: %name% echo Default: %port% call :FOOTER set /p name=Set name ^> s1ave77s scripts How to dowload it? s1ave77s scripts set /p port=Set port ^> echo: sc query %name% >nul if errorlevel 1 ( call :NotInstalled goto:Menu2 ) if errorlevel 1 goto:Menu2 netsh advfirewall firewall delete rule name="%name% %port%" call :FOOTER s1ave77s scripts How to get it? s1ave77s scripts timeout /t 5 goto:Menu2 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::HOOKED EMULATORS SECTION :WinDivert pushd "%~dp0" cls s1ave77s scripts How to get it? s1ave77s scripts call :HEADER "This option installs the WinDivert1.1 Hook ", " " echo: if not %win% GEQ 9200 ( call :NotSupported goto:MenuH ) wmic process where "name='FakeClient.exe'" | findstr /i /c:"FakeClient.exe" >nul if %errorlevel%==0 ( echo Hook is already installed. call :FOOTER s1ave77s scripts How to dowload it? s1ave77s scripts timeout /t 5 goto :DeleteWinDivert ) call :FOOTER echo Default: %host% echo Values: Host IP call :FOOTER set /p host=Set Host IP ^> call :FOOTER if exist "%windir%\Hook" rd /s /q "%windir%\Hook" >nul s1ave77s scripts How to use it? s1ave77s scripts xcopy "files\windivert1.1\%vera%\FakeClient.exe" "%windir%\Hook\" /Q /S route print | find /i "10.255.255.254" >nul 2>&1 if %errorlevel% neq 0 (route add %host% 10.255.255.254 IF 1 >nul 2>&1) pushd files\windivert1.1\%vera% cmd /c start /b /high FakeClient.exe %host% >nul 2>&1 popd ping -n 2 localhost call :FOOTER timeout /t 5 goto:MenuH s1ave77s scripts How to get it? s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :DeleteWinDivert pushd "%~dp0" cls call :HEADER "This option uninstalls the WinDivert1.1 Hook", " " echo: if not %win% GEQ 9200 ( call :NotSupported goto:MenuH s1ave77s scripts How to dowload it? s1ave77s scripts ) taskkill /t /f /IM FakeClient.exe route delete %host% 10.255.255.254 sc delete WinDivert1.1 if exist "%windir%\Hook" rd /s /q "%windir%\Hook" >nul call :FOOTER timeout /t 5 goto:MenuH :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it for free? s1ave77s scripts :SppExtComObjPatch cls call :HEADER "This option installs the SppExtComObjPatcher Hook", " " echo: wmic path OfficeSoftwareProtectionService get version >nul 2>&1 || set OsppHook=0 if %win% GEQ 9200 ( set OSType=Win8 ) else if %win% GEQ 7600 ( set OSType=Win7 s1ave77s scripts PasteShr s1ave77s scripts ) else ( goto :UnsupportedVersion ) echo. echo Microsoft (R) Windows Software Licensing. echo Copyright (C) Microsoft Corporation. All rights reserved. call :FOOTER IF EXIST "%SystemRoot%\system32\SppExtComObjPatcher.exe" goto :uninst :inst echo SppExtComObjPatcher will be installed on your computer. s1ave77s scripts How to dowload it? s1ave77s scripts call :FOOTER :run1 call :StopService sppsvc if not "%OsppHook%"=="0" call :StopService osppsvc IF ERRORLEVEL 1 echo status: Error echo. echo Copying Files... copy /y "files\SppExtComObjPatcher\%vera%\SppExtComObjPatcher.exe" "%SystemRoot%\system32" >nul echo status: OK IF ERRORLEVEL 1 echo status: Error s1ave77s scripts How to get it? s1ave77s scripts copy /y "files\SppExtComObjPatcher\%vera%\SppExtComObjHook.dll" "%SystemRoot%\system32" >nul echo status: OK IF ERRORLEVEL 1 echo status: Error echo Creating Registry Entries... if %OSType% EQU Win8 ( echo Creating Registry Entry for SppExtComObj.exe of Windows 8/8.1 call :CreateIFEOEntry "SppExtComObj.exe" ) if %OSType% EQU Win7 ( echo Creating Registry Entry for sppsvc.exe of Windows 7 s1ave77s scripts How to dowload it? s1ave77s scripts call :CreateIFEOEntry "sppsvc.exe" ) if not "%OsppHook%"=="0" ( echo Creating Registry Entry for osppsvc.exe of Office 2010/2013 call :CreateIFEOEntry "osppsvc.exe" ) goto :end :uninst echo SppExtComObjPatcher will be removed from your computer. call :FOOTER s1ave77s scripts How to use it? s1ave77s scripts :run2 call :StopService2 sppsvc if not "%OsppHook%"=="0" call :StopService2 osppsvc echo Removing Installed Files... if exist "%SystemRoot%\system32\SppExtComObjPatcher.exe" ( echo SppExtComObjPatcher.exe Found. Removing... del /f /q "%SystemRoot%\system32\SppExtComObjPatcher.exe" ) if exist "%SystemRoot%\system32\SppExtComObjHook.dll" ( echo SppExtComObjHook.dll Found. Removing... s1ave77s scripts How to dowload it? s1ave77s scripts del /f /q "%SystemRoot%\system32\SppExtComObjHook.dll" ) echo Removing Registry Entries... if %OSType% EQU Win8 ( echo Removing Registry Entry for SppExtComObj.exe of Windows 8/8.1 call :RemoveIFEOEntry "SppExtComObj.exe" ) if %OSType% EQU Win7 ( echo Removing Registry Entry for sppsvc.exe of Windows 7 call :RemoveIFEOEntry "sppsvc.exe" s1ave77s scripts How to get it for free? s1ave77s scripts ) if not "%OsppHook%"=="0" ( echo Removing Registry Entry for osppsvc.exe of Office 2010/2013 call :RemoveIFEOEntry "osppsvc.exe" ) schtasks /delete /f /tn "\Microsoft\Windows\SoftwareProtectionPlatform\SvcTrigger" >nul 2>&1 goto :end :CreateIFEOEntry reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "Debugger" /t REG_SZ /d "SppExtComObjPatcher.exe" >nul 2>&1 reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "KMS_Emulation" /t REG_DWORD /d %KMS_Emulation% >nul 2>&1 s1ave77s scripts How to dowload it? s1ave77s scripts reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "KMS_ActivationInterval" /t REG_DWORD /d %KMS_ActivationInterval% >nul 2>&1 reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "KMS_RenewalInterval" /t REG_DWORD /d %KMS_RenewalInterval% >nul 2>&1 reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "Office2013" /t REG_SZ /d "%Office2013%" >nul 2>&1 if %~1 NEQ osppsvc.exe ( reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "Windows" /t REG_SZ /d "%Windows%" >nul 2>&1 ) if %~1 EQU osppsvc.exe ( reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "Office2010" /t REG_SZ /d "%Office2010%" >nul 2>&1 ) goto:eof s1ave77s scripts PasteShr s1ave77s scripts :RemoveIFEOEntry if %~1 NEQ osppsvc.exe ( reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f >nul 2>&1 ) if %~1 EQU osppsvc.exe ( reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "Debugger" >nul 2>&1 reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "KMS_Emulation" >nul 2>&1 reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "KMS_ActivationInterval" >nul 2>&1 reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "KMS_RenewalInterval" >nul 2>&1 reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "Office2010" >nul 2>&1 s1ave77s scripts PasteShr s1ave77s scripts reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "Office2013" >nul 2>&1 ) goto:eof :StopService sc query %~1 | find /i "STOPPED" >nul 2>&1 if not "%ERRORLEVEL%"=="0" net stop %~1 /y >nul 2>&1 sc query %~1 | find /i "STOPPED" >nul 2>&1 if not "%ERRORLEVEL%"=="0" sc stop %~1 >nul 2>&1 goto:eof :StopService2 s1ave77s scripts How to get it for free? s1ave77s scripts sc query %~1 | find /i "RUNNING" >nul 2>&1 if "%ERRORLEVEL%"=="0" net stop %~1 /y >nul 2>&1 sc query %~1 | find /i "RUNNING" >nul 2>&1 if "%ERRORLEVEL%"=="0" sc stop %~1 >nul 2>&1 goto:eof :UnsupportedVersion echo ==== ERROR ==== echo Unsupported OS version Detected. echo This project is only supported for Windows 7/8/8.1 call :FOOTER s1ave77s scripts PasteShr s1ave77s scripts timeout /t 5 goto:MenuH :end echo. echo Done. call :FOOTER timeout /t 5 goto:MenuH :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts :CynecxInstall if not %win% GEQ 9200 call :NotSupported if not %win% GEQ 9200 goto:MenuH pushd "%~dp0" cls call :HEADER "This option installs the Hook and Server by CyNecx", " " echo: set KmsName=Seco if exist "%SystemRoot%\System32\%KmsName%" goto:FoundCynecx echo: s1ave77s scripts How to get it for free? s1ave77s scripts if /i "%sai%"=="" set sai=120 if /i "%sri%"=="" set sri=10080 echo Host echo Default: %host% echo: echo Interval for unactivated Client in Minutes (15 - 43200) echo Default: %sai% echo: echo Interval for Reactivation in Minutes (15 - 43200) echo Default: %sri% s1ave77s scripts PasteShr s1ave77s scripts call :FOOTER set /p host=Set host ^> set /p sai=Set sai ^> set /p sri=Set sri ^> echo: set secohook="HKLM\SOFTWARE\SECOInjector" md "%windir%\system32\Seco" xcopy "files\hook\seco\*.*" /s /q "%windir%\system32\Seco" /Y >nul reg add %secohook% /f /v "KMS_IP" /d %host% /t "REG_SZ" >nul reg add %secohook% /f /v "Enabled" /d "1" /t "REG_DWORD" >nul s1ave77s scripts How to use it? s1ave77s scripts reg add %secohook% /f /v "KMS_Emulation" /d "1" /t "REG_DWORD" >nul reg add %secohook% /f /v "KMS_RenewaInterval" /d %sri% /t "REG_DWORD" >nul reg add %secohook% /f /v "KMS_ActivationInterval" /d %sai% /t "REG_DWORD" >nul call :FOOTER CHOICE /C ES /M "Install [E]mulator or [S]ervice ? :" if %errorlevel%==1 goto :SecoEmu if %errorlevel%==2 goto :SecoSer :SecoEmu "%windir%\system32\Seco\SECOInjector_%vera%.exe" /s %host% /f /l call :TITLE s1ave77s scripts How to get it? s1ave77s scripts call :FOOTER timeout /t 3 goto:MenuH :SecoSer "%windir%\system32\Seco\SECOInjector_%vera%.exe" /c call :TITLE call :FOOTER timeout /t 3 goto:MenuH :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to dowload it? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CynecxUnInstall pushd "%~dp0" cls call :HEADER "This option uninstalls the Hook and Server by CyNecx", " " echo: set KmsName=Seco if not exist "%SystemRoot%\System32\%KmsName%" goto:NotFoundCynecx echo NOTE: If hook uninstall reports error 0x1, uninstall was successful. call :FOOTER s1ave77s scripts How to get it for free? s1ave77s scripts set secohook="HKLM\SOFTWARE\SECOInjector" CHOICE /C ES /M "Uninstall [E]mulator or [S]ervice ? :" if %errorlevel%==1 goto :SecoEmu1 if %errorlevel%==2 goto :SecoSer1 :SecoEmu1 %windir%\system32\Seco\SECOInjector_%vera%.exe /f /u call :TITLE reg delete %secohook% /f >nul 2>&1 if exist "%windir%\system32\Seco" rd /s /q "%windir%\system32\Seco" >nul call :FOOTER s1ave77s scripts How to use it? s1ave77s scripts timeout /t 3 goto:MenuH :SecoSer1 "%windir%\system32\Seco\SECOInjector_%vera%.exe" /r call :TITLE reg delete %secohook% /f >nul 2>&1 if exist "%windir%\system32\Seco" rd /s /q "%windir%\system32\Seco" >nul call :FOOTER timeout /t 3 goto:MenuH s1ave77s scripts How to get it? s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :FoundCynecx echo %KmsName% is already installed. call :FOOTER timeout /t 3 goto:MenuH :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :NotFoundCynecx s1ave77s scripts How to use it? s1ave77s scripts echo %KmsName% not installed. call :FOOTER timeout /t 3 goto:MenuH :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :QADInstall :: if not %win% GEQ 9200 call :NotSupported :: if not %win% GEQ 9200 goto:MenuH cls s1ave77s scripts PasteShr s1ave77s scripts call :HEADER "This option installs the Hook and Server by QAD", " " echo: set Kms1Name=KMS-QADhooker if exist "%SystemRoot%\System32\%Kms1Name%.*" goto:FoundH call "files\hook\install.cmd" pushd "%~dp0" goto:MenuH :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :QADUnInstall s1ave77s scripts How to get it for free? s1ave77s scripts cls call :HEADER "This option uninstalls the Hook and Server by QAD", " " echo: set Kms1Name=KMS-QADhooker if not exist "%SystemRoot%\System32\%Kms1Name1%.*" goto:NotFoundH call "files\hook\uninstall.cmd" pushd "%~dp0" goto:MenuH :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts PasteShr s1ave77s scripts :FoundH echo %Kms1Name% is already installed. call :FOOTER timeout /t 3 goto:MenuH :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :NotFoundH echo %Kms1Name% not installed. call :FOOTER s1ave77s scripts How to get it for free? s1ave77s scripts timeout /t 3 goto:MenuH :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::CLIENT EMULATOR SECTION :CodyInput cls set k="files\KMS Client %vera%.exe" s1ave77s scripts How to get it for free? s1ave77s scripts call :SetClientData goto:Menu3 :------------------------------------------------------------------------------------------------------- :HotbirdInput cls set k="files\KMS-Client.exe" call :SetClientData goto:Menu3 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to dowload it? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::CHECK ACTIVATION STATUS :CheckActivation cls set "deleted=" call :HEADER "Check Windows License Information", " " call :CheckSPPSVC call :ID call :CheckStatusWindows s1ave77s scripts How to dowload it? s1ave77s scripts echo =Microsoft(R) Windows Software Licensing Version %currentversion%======================= echo =Copyright(C) Microsoft Corporation. All rights reserved============================== echo Name ^| Arch.: %ver% ^| %vera% echo License Channel: %windescription% echo Edition: %winname% echo Current Build: %currentversion% echo BuildLabEx: %build%.%build1% echo SKU-ID: %ID% echo Product Key: %productkey% echo License Status: %status% = %permanent%%license% s1ave77s scripts How to use it? s1ave77s scripts if "%edition%"=="Core" if "%win%"=="9200" set of=30 if "%edition%"=="ProfessionalWMC" if "%win%"=="9200" set of=30 if "%edition%"=="Core" if "%win%"=="9600" set of=45 if "%edition%"=="ProfessionalWMC" if "%win%"=="9600" set of=45 if not defined of set of=180 set /a "grace2=%grace1%/60" >nul 2>&1 set /a "grace3=%grace1%/60/24" >nul 2>&1 echo Graceperiod: %grace1% mins = %grace2% hrs = %grace3% / %of% days echo Rearms: %r% echo KMS Host ePID: %kmsepid% s1ave77s scripts PasteShr s1ave77s scripts echo KMS Host Adress: %kmsIP% Port:%kmsport% call :FOOTER pause ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CheckOffice16 call :CheckC2ROx64 16, 3, Common, office call :CheckC2RPx64 16, 3, Project, project call :CheckC2RVx64 16, 3, Visio, visio if not defined office16present if not defined project16present if not defined visio16present goto:CheckOffice16x86 if defined office16present if %win% geq 9200 (call :CheckStatusOffice "%slp%", Office16ProPlus, O3) else (call :CheckStatusOffice "%ospp%", Office16ProPlus, O3) s1ave77s scripts How to get it for free? s1ave77s scripts if defined project16present if %win% geq 9200 (call :CheckStatusOthers "%slp%", Office16ProjectPro, O4) else (call :CheckStatusOthers "%ospp%", Office16ProjectPro, O4) if defined visio16present if %win% geq 9200 (call :CheckStatusOthers "%slp%", Office16VisioPro, O5) else (call :CheckStatusOthers "%ospp%", Office16VisioPro, O5) goto :showoffice16 :CheckOffice16x86 call :CheckC2ROx86 16, 3, Common, office call :CheckC2RPx86 16, 3, Project, project call :CheckC2RVx86 16, 3, Visio, visio if not defined office16present if not defined project16present if not defined visio16present goto:CheckOffice15 if defined office16present if %win% geq 9200 (call :CheckStatusOffice "%slp%", Office16ProPlus, O3) else (call :CheckStatusOffice "%ospp%", Office16ProPlus, O3) if defined project16present if %win% geq 9200 (call :CheckStatusOthers "%slp%", Office16ProjectPro, O4) else (call :CheckStatusOthers "%ospp%", Office16ProjectPro, O4) s1ave77s scripts How to dowload it? s1ave77s scripts if defined visio16present if %win% geq 9200 (call :CheckStatusOthers "%slp%", Office16VisioPro, O5) else (call :CheckStatusOthers "%ospp%", Office16VisioPro, O5) :showoffice16 cls if defined office16present if %win% geq 9200 (call :OID "%slp%", Office16ProPlus) else (call :OID "%ospp%", Office16ProPlus) call :HEADER "Check Office 16 License Information", "%prodrelid%" if not defined office16present if not defined project16present goto :showVisio16 if not defined office16present goto :showProject16 echo =Microsoft(R) Office 16 Software Licensing Version %currentversion%===================== echo =Copyright(C) Microsoft Corporation. All rights reserved============================== echo Name: %NAO3% s1ave77s scripts How to get it for free? s1ave77s scripts echo ActivationID: %oid% echo Key Part: XXXXX-XXXXX-XXXXX-XXXXX-%PaKeyO3% echo Install Path: %officepath3% if "%officestatus%"=="1" set "O16license=^< LICENSED ^>" if "%officestatus%"=="2" set "O16license=^< OOB GRACE ^>" if "%officestatus%"=="3" set "O16license=^< OOT GRACE ^>" if "%officestatus%"=="5" set "O16license=^< NOTIFICATION ^>" echo License Status: %officestatus% = %O16license% set /a "GraPeO12=%GraPeO3%/60" >nul 2>&1 set /a "GraPeO22=%GraPeO12%/24" >nul 2>&1 s1ave77s scripts How to get it? s1ave77s scripts set ofo=180 echo Graceperiod: %GraPeO3% mins = %GraPeO12% hrs = %GraPeO22% / %ofo% days if defined orearm echo Rearms: %orearm% echo KMS Host ePID: %HostNaO3% echo KMS Host Adress: %KIPO3% Port:%KPO3% call :SHORTFOOTER if not defined project16present if not defined visio16present (pause)&&(goto :CheckOffice15) ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :showProject16 if %win% geq 9200 call :POID "%slp%", Office16ProjectPro s1ave77s scripts How to use it? s1ave77s scripts if %win% lss 9200 call :POID "%ospp%", Office16ProjectPro echo =Microsoft(R) Office 16 Software Licensing Version %currentversion%===================== echo =Copyright(C) Microsoft Corporation. All rights reserved============================== echo Name: %NAO4% echo ActivationID: %poid% echo Key Part: XXXXX-XXXXX-XXXXX-XXXXX-%PaKeyO4% echo Install Path: %officepath3% if "%otherstatus%"=="1" set "O16license=^< LICENSED ^>" if "%otherstatus%"=="2" set "O16license=^< OOB GRACE ^>" if "%otherstatus%"=="3" set "O16license=^< OOT GRACE ^>" s1ave77s scripts How to use it? s1ave77s scripts if "%otherstatus%"=="5" set "O16license=^< NOTIFICATION ^>" echo License Status: %otherstatus% = %O16license% set /a "GraPeO12=%GraPeO4%/60" >nul 2>&1 set /a "GraPeO22=%GraPeO12%/24" >nul 2>&1 set ofo=180 echo Graceperiod: %GraPeO4% mins = %GraPeO12% hrs = %GraPeO22% / %ofo% days if defined orearm echo Rearms: %orearm% echo KMS Host ePID: %HostNaO4% echo KMS Host Adress: %KIPO4% Port:%KPO4% call :SHORTFOOTER s1ave77s scripts How to get it for free? s1ave77s scripts if not defined visio16present (pause)&&(goto :CheckOffice15) ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :showVisio16 if %win% geq 9200 (call :POID "%slp%", Office16VisioPro) else (call :POID "%ospp%", Office16VisioPro) echo =Microsoft(R) Office 16 Software Licensing Version %currentversion%===================== echo =Copyright(C) Microsoft Corporation. All rights reserved============================== echo Name: %NAO5% echo ActivationID: %poid% echo Key Part: XXXXX-XXXXX-XXXXX-XXXXX-%PaKeyO5% echo Install Path: %officepath3% s1ave77s scripts How to get it? s1ave77s scripts if "%otherstatus%"=="1" set "O16license=^< LICENSED ^>" if "%otherstatus%"=="2" set "O16license=^< OOB GRACE ^>" if "%otherstatus%"=="3" set "O16license=^< OOT GRACE ^>" if "%otherstatus%"=="5" set "O16license=^< NOTIFICATION ^>" echo License Status: %otherstatus% = %O16license% set /a "GraPeO12=%GraPeO5%/60" >nul 2>&1 set /a "GraPeO22=%GraPeO12%/24" >nul 2>&1 set ofo=180 echo Graceperiod: %GraPeO5% mins = %GraPeO12% hrs = %GraPeO22% / %ofo% days if defined orearm echo Rearms: %orearm% s1ave77s scripts PasteShr s1ave77s scripts echo KMS Host ePID: %HostNaO5% echo KMS Host Adress: %KIPO5% Port:%KPO5% call :SHORTFOOTER pause ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CheckOffice15 set "officepath2=" call :Officex64 15, 2 call :Othersx64 15, 2, Project, project call :Othersx64 15, 2, Visio, visio s1ave77s scripts How to use it? s1ave77s scripts if not defined office15present if not defined project15present if not defined visio15present goto:CheckOffice15x86 if defined office15present if %win% geq 9200 (call :CheckStatusOffice "%slp%", OfficeProPlus, O) else (call :CheckStatusOffice "%ospp%", OfficeProPlus, O) if defined project15present if %win% geq 9200 (call :CheckStatusOthers "%slp%", OfficeProjectPro, O4) else (call :CheckStatusOthers "%ospp%", OfficeProjectPro, O4) if defined visio15present if %win% geq 9200 (call :CheckStatusOthers "%slp%", OfficeVisioPro, O5) else (call :CheckStatusOthers "%ospp%", OfficeVisioPro, O5) goto :showoffice15 :CheckOffice15x86 call :Officex86 15, 2 call :Othersx86 15, 2, Project, project call :Othersx86 15, 2, Visio, visio if not defined office15present if not defined project15present if not defined visio15present goto:CheckOffice14 s1ave77s scripts How to get it? s1ave77s scripts if defined office15present if %win% geq 9200 (call :CheckStatusOffice "%slp%", OfficeProPlus, O) else (call :CheckStatusOffice "%ospp%", OfficeProPlus, O) if defined project15present if %win% geq 9200 (call :CheckStatusOthers "%slp%", OfficeProjectPro, O4) else (call :CheckStatusOthers "%ospp%", OfficeProjectPro, O4) if defined visio15present if %win% geq 9200 (call :CheckStatusOthers "%slp%", OfficeVisioPro, O5) else (call :CheckStatusOthers "%ospp%", OfficeVisioPro, O5) :showoffice15 if defined office15present if %win% geq 9200 (call :OID "%slp%", OfficeProPlus) else (call :OID "%ospp%", OfficeProPlus) cls call :HEADER "Check Office 15 License Information", " " if not defined office15present if not defined project15present goto :showVisio15 if not defined office15present goto :showProject15 echo =Microsoft Office 15 Software Licensing Version %currentversion%===================== s1ave77s scripts How to get it? s1ave77s scripts echo =Copyright Microsoft Corporation. All rights reserved============================== echo Name: %NAO% echo ActivationID: %oid% echo Key Part: XXXXX-XXXXX-XXXXX-XXXXX-%PaKeyO% echo Install Path: %officepath2% if "%officestatus%"=="1" set "O15license=^< LICENSED ^>" if "%officestatus%"=="2" set "O15license=^< OOB GRACE ^>" if "%officestatus%"=="3" set "O15license=^< OOT GRACE ^>" if "%officestatus%"=="5" set "O15license=^< NOTIFICATION ^>" echo License Status: %officestatus% = %O15license% s1ave77s scripts PasteShr s1ave77s scripts set /a "GraPeO12=%GraPeO%/60" >nul 2>&1 set /a "GraPeO22=%GraPeO12%/24" >nul 2>&1 set ofo=180 echo Graceperiod: %GraPeO% mins = %GraPeO12% hrs = %GraPeO22% / %ofo% days if defined orearm echo Rearms: %orearm% echo KMS Host ePID: %HostNaO% echo KMS Host Adress: %KIPO% Port:%KPO% call :SHORTFOOTER if not defined project15present if not defined visio15present (pause)&&(goto :CheckOffice14) ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts :showProject15 if %win% geq 9200 (call :POID "%slp%", OfficeProjectPro) else (call :POID "%ospp%", OfficeProjectPro) echo =Microsoft Office 15 Software Licensing Version %currentversion%===================== echo =Copyright Microsoft Corporation. All rights reserved============================== echo Name: %NAO4% echo ActivationID: %poid% echo Key Part: XXXXX-XXXXX-XXXXX-XXXXX-%PaKeyO4% echo Install Path: %officepath2% if "%otherstatus%"=="1" set "O15license=^< LICENSED ^>" if "%otherstatus%"=="2" set "O15license=^< OOB GRACE ^>" s1ave77s scripts How to dowload it? s1ave77s scripts if "%otherstatus%"=="3" set "O15license=^< OOT GRACE ^>" if "%otherstatus%"=="5" set "O15license=^< NOTIFICATION ^>" echo License Status: %otherstatus% = %O15license% set /a "GraPeO12=%GraPeO4%/60" >nul 2>&1 set /a "GraPeO22=%GraPeO12%/24" >nul 2>&1 set ofo=180 echo Graceperiod: %GraPeO4% mins = %GraPeO12% hrs = %GraPeO22% / %ofo% days if defined orearm echo Rearms: %orearm% echo KMS Host ePID: %HostNaO4% echo KMS Host Adress: %KIPO4% Port:%KPO4% s1ave77s scripts PasteShr s1ave77s scripts call :SHORTFOOTER if not defined visio15present (pause)&&(goto :CheckOffice14) ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :showVisio15 if %win% geq 9200 (call :POID "%slp%", OfficeVisioPro) else (call :POID "%ospp%", OfficeVisioPro) echo =Microsoft Office 15 Software Licensing Version %currentversion%===================== echo =Copyright Microsoft Corporation. All rights reserved============================== echo Name: %NAO5% echo ActivationID: %poid% echo Key Part: XXXXX-XXXXX-XXXXX-XXXXX-%PaKeyO5% s1ave77s scripts How to use it? s1ave77s scripts echo Install Path: %officepath2% if "%otherstatus%"=="1" set "O15license=^< LICENSED ^>" if "%otherstatus%"=="2" set "O15license=^< OOB GRACE ^>" if "%otherstatus%"=="3" set "O15license=^< OOT GRACE ^>" if "%otherstatus%"=="5" set "O15license=^< NOTIFICATION ^>" echo License Status: %otherstatus% = %O15license% set /a "GraPeO12=%GraPeO5%/60" >nul 2>&1 set /a "GraPeO22=%GraPeO12%/24" >nul 2>&1 set ofo=180 echo Graceperiod: %GraPeO5% mins = %GraPeO12% hrs = %GraPeO22% / %ofo% days s1ave77s scripts How to get it? s1ave77s scripts if defined orearm echo Rearms: %orearm% echo KMS Host ePID: %HostNaO5% echo KMS Host Adress: %KIPO5% Port:%KPO5% call :SHORTFOOTER pause ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CheckOffice14 call :Officex64 14, 1 call :Othersx64 14, 1, Project, project call :Othersx64 14, 1, Visio, visio s1ave77s scripts PasteShr s1ave77s scripts if not defined office14present if not defined project14present if not defined visio14present goto:CheckOffice14x86 if defined office14present call :CheckStatusOffice "%ospp%", OfficeProPlus, O2 if defined project14present call :CheckStatusOthers "%ospp%", OfficeProjectPro, O4 if defined visio14present call :CheckStatusOthers "%ospp%", OfficeVisioPro, O5 goto :showOffice14 :CheckOffice14x86 call :Officex86 14, 1 call :Othersx86 14, 1, Project, project call :Othersx86 14, 1, Visio, visio if not defined office14present if not defined project14present if not defined visio14present goto:MenuA s1ave77s scripts How to use it? s1ave77s scripts if defined office14present call :CheckStatusOffice "%ospp%", OfficeProPlus, O2 if defined project14present call :CheckStatusOthers "%ospp%", OfficeVisioPro, O5 if defined visio14present call :CheckStatusOthers "%ospp%", OfficeVisioPro, O5 :showOffice14 if defined office14present call :OID "%ospp%", OfficeProPlus cls call :HEADER "Check Office 14 License Information", " " if not defined office14present if not defined project14present goto :showVisio14 if not defined office14present goto :showProject14 echo =Microsoft(R) Office 14 Software Licensing Version %currentversion%===================== s1ave77s scripts How to dowload it? s1ave77s scripts echo =Copyright(C) Microsoft Corporation. All rights reserved============================== echo Name: %NAO2% echo ActivationID: %oid% echo Key Part: XXXXX-XXXXX-XXXXX-XXXXX-%PaKeyO2% echo Install Path: %officepath1% if "%officestatus%"=="1" set "O14license=^< LICENSED ^>" if "%officestatus%"=="2" set "O14license=^< OOB GRACE ^>" if "%officestatus%"=="3" set "O14license=^< OOT GRACE ^>" if "%officestatus%"=="5" set "O14license=^< NOTIFICATION ^>" echo License Status: %officestatus% = %O14license% s1ave77s scripts How to get it for free? s1ave77s scripts set /a "GraPeO21=%GraPeO2%/60" >nul 2>&1 set /a "GraPeO22=%GraPeO21%/24" >nul 2>&1 set ofo=180 echo Graceperiod: %GraPeO2% mins = %GraPeO21% hrs = %GraPeO22% / %ofo% days if not defined HostNaO2 set "deleted=(empty)" echo KMS Host ePID: %HostNaO2% if not defined KIPO2 set "deleted=(empty)" echo KMS Host Adress: %KIPO2% Port:%KPO2% call :SHORTFOOTER if not defined project14present if not defined visio14present (pause)&&(goto :MenuA) s1ave77s scripts How to dowload it? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :showProject14 if %win% geq 9200 (call :POID "%slp%", OfficeProjectPro) else (call :POID "%ospp%", OfficeProjectPro) echo =Microsof4(R) Office 14 Software Licensing Version %currentversion%===================== echo =Copyright(C) Microsoft Corporation. All rights reserved============================== echo Name: %NAO4% if not defined KeyPaO4 set "cleared=(cleared)" echo ActivationID: %poid% echo Key Part: XXXXX-XXXXX-XXXXX-XXXXX-%PaKeyO4% echo Install Path: %officepath1% s1ave77s scripts PasteShr s1ave77s scripts if "%othersstatus%"=="1" set "O14license=^< LICENSED ^>" if "%othersstatus%"=="2" set "O14license=^< OOB GRACE ^>" if "%othersstatus%"=="3" set "O14license=^< OOT GRACE ^>" if "%othersstatus%"=="5" set "O14license=^< NOTIFICATION ^>" echo License Status: %otherstatus% = %O14license% set /a "GraPeO12=%GraPeO4%/60" >nul 2>&1 set /a "GraPeO22=%GraPeO12%/24" >nul 2>&1 set ofo=180 echo Graceperiod: %GraPeO4% mins = %GraPeO12% hrs = %GraPeO22% / %ofo% days if defined orearm echo Rearms: %orearm% s1ave77s scripts PasteShr s1ave77s scripts if not defined HostNaO4 set "deleted=(empty)" echo KMS Host ePID: %HostNaO4% if not defined KIPO4 set "deleted=(empty)" echo KMS Host Adress: %KIPO4% Port:%KPO4% call :SHORTFOOTER if not defined visio14present (pause)&&(goto :MenuA) ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :showVisio14 if %win% geq 9200 (call :POID "%slp%", OfficeVisioPro) else (call :POID "%ospp%", OfficeVisioPro) echo =Microsof4^(R^) Office 14 Software Licensing Version %currentversion%===================== s1ave77s scripts How to dowload it? s1ave77s scripts echo =Copyright^(C^) Microsoft Corporation. All rights reserved============================== echo Name: %NAO5% echo ActivationID: %poid% echo Key Part: XXXXX-XXXXX-XXXXX-XXXXX-%PaKeyO5% echo Install Path: %officepath1% if "%othersstatus%"=="1" set "O14license=^< LICENSED ^>" if "%othersstatus%"=="2" set "O14license=^< OOB GRACE ^>" if "%othersstatus%"=="3" set "O14license=^< OOT GRACE ^>" if "%othersstatus%"=="5" set "O14license=^< NOTIFICATION ^>" echo License Status: %otherstatus% = %O14license% s1ave77s scripts How to get it? s1ave77s scripts set /a "GraPeO12=%GraPeO5%/60" >nul 2>&1 set /a "GraPeO22=%GraPeO12%/24" >nul 2>&1 set ofo=180 echo Graceperiod: %GraPeO5% mins = %GraPeO12% hrs = %GraPeO22% / %ofo% days if defined orearm echo Rearms: %orearm% echo KMS Host ePID: %HostNaO5% echo KMS Host Adress: %KIPO5% Port:%KPO5% call :SHORTFOOTER pause goto:MenuA s1ave77s scripts How to get it for free? s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CheckInstall cls call :HEADER "This option checks if Service is installed", " " echo: if /i "%name%"=="" set name=KMSServer if exist "%windir%\%nam1e%\%name%.exe.config" goto :nextCIE4 reg query "HKLM\SYSTEM\CurrentControlSet\services\%name%\Parameters" >nul 2>&1 if "%errorlevel%"=="0" goto :nextCIE1 s1ave77s scripts How to get it for free? s1ave77s scripts reg query "HKLM\SYSTEM\CurrentControlSet\services\KMS\Parameters" >nul 2>&1 if "%errorlevel%"=="0" goto :nextCIE2 if "%errorlevel%"=="1" goto :nextCIE3 :nextCIE1 for /F "tokens=3 delims= " %%A in ('reg query "HKLM\SYSTEM\CurrentControlSet\services\%name%\Parameters" /v *Port ^| findstr "Port"') do set sport=%%A goto :nextCIE3 :nextCIE2 for /F "tokens=3 delims= " %%A in ('reg query "HKLM\SYSTEM\CurrentControlSet\services\KMS\Parameters" /v Port') do set sport=%%A echo: echo Default: %name% s1ave77s scripts How to dowload it? s1ave77s scripts echo Values: Servername call :FOOTER set /p name=Set name ^> echo: set file=%temp%\h2d.vbs echo hexstring = "%sport:~2%" > %file% echo myNumber = CInt("&H" ^& hexstring) >> %file% echo WScript.StdOut.Write myNumber >> %file% FOR /F %%A in ('cscript /nologo %file%') do SET dport=%%A del /s /q %file% >nul s1ave77s scripts How to get it for free? s1ave77s scripts if "%dport:~0,1%"=="-" goto :nextCIE5 goto :nextCIE6 :nextCIE5 set file=%temp%\h2d.vbs echo hexstring = "%sport:~2%" > %file% echo myNumber = CLng("&H" ^& hexstring) >> %file% echo WScript.StdOut.Write myNumber >> %file% FOR /F %%A in ('cscript /nologo %file%') do SET dport=%%A del /s /q %file% >nul :nextCIE6 s1ave77s scripts PasteShr s1ave77s scripts sc query %name% >NUL if errorlevel 1 goto :Message if errorlevel 0 echo: && echo Service is already installed using port %dport% (%sport%) call :FOOTER pause goto :MenuA :nextCIE4 for /f "tokens=3 delims=>/<" %%a in ('type %windir%\%name%\%name%.exe.config ^|find "value"') do ( set "sport=%%a" goto :nextCIE3 s1ave77s scripts How to get it? s1ave77s scripts ) :nextCIE3 echo Default: %name% echo Values: Servername echo: set /p name=Set name ^> echo: sc query %name% >NUL if errorlevel 1 goto :Message if errorlevel 0 echo: && echo Service is already installed using port %sport% s1ave77s scripts How to use it? s1ave77s scripts call :FOOTER timeout /t 5 goto:MenuA :Message echo: echo ...Service is not installed. call :FOOTER timeout /t 5 goto:MenuA :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts PasteShr s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CheckEmulator color 0F cls call :HEADER "This option checks for KMS Server Emulator", " " echo: echo ...Checking for Server Emulator instances: echo: wmic process where "name='KMSServer.exe'" | findstr /i /c:"KMSServer.exe" >nul if %errorlevel%==0 goto :ServerRunningCE s1ave77s scripts How to get it? s1ave77s scripts if %errorlevel%==1 goto :ServerNotRunningCE :ServerRunningCE echo: echo KMS Emulator is already running... call :FOOTER timeout /t 5 goto:MenuA :ServerNotRunningCE echo: echo KMS Emulator is not running... s1ave77s scripts How to get it? s1ave77s scripts call :FOOTER timeout /t 5 goto:MenuA :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CheckRealHost cls call :HEADER "This option checks a real Windows KMS Host", " " echo: cscript "%windir%\system32\slmgr.vbs" /dlv s1ave77s scripts How to dowload it? s1ave77s scripts call :FOOTER pause cls call :HEADER "This option checks a real Office 14 KMS Host", " " echo: cscript "%windir%\system32\slmgr.vbs" /dlv bfe7a195-4f8f-4f0b-a622-cf13c7d16864 call :FOOTER pause cls call :HEADER "This option checks a real Office 15 KMS Host", " " s1ave77s scripts How to dowload it? s1ave77s scripts echo: cscript "%windir%\system32\slmgr.vbs" /dlv 2e28138a-847f-42bc-9752-61b03fff33cd call :FOOTER pause goto:MenuA :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Ipconfig cls call :HEADER "This option checks IPv4 adress of %computername%", " " s1ave77s scripts How to get it? s1ave77s scripts echo: for /f "skip=1 tokens=2 delims=[]" %%i in ('ping %computername% -4 -n 1') do set ip4=%%i echo Current IPv4 adress: %ip4% call :FOOTER pause goto:MenuA :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CheckPortUsage cls s1ave77s scripts How to get it for free? s1ave77s scripts call :HEADER "This option checks if Port is in use", " " echo: if /i "%port%"=="" set "port=1688" if /i "%name%"=="" set name=KMSServer echo Port echo Default: %port% echo: echo Name echo Default: %name% echo: s1ave77s scripts How to use it? s1ave77s scripts set /p port=Set Port ^> set /p name=Set Name ^> for /F "tokens=5 delims= " %%P in ('netstat -a -n -o ^| findstr /RC:":%port%"') do set serverPid=%%P if "%serverPid%"=="" goto :NotUsedCP for /F "tokens=1 delims= " %%A in ('tasklist ^| findstr "%serverPid%"') do set servername=%%~nA if not "%serverPid%"=="" goto :UsedCP :NotUsedCP echo: echo Port %port% is currently not in use. call :FOOTER s1ave77s scripts How to use it? s1ave77s scripts CHOICE /C YN /M "Check for %name% [Y]es or [N]o : " if %errorlevel%==1 ( call :CheckInstall goto:MenuA ) if %errorlevel%==2 goto:MenuA :UsedCP echo: echo Port is used by: %servername% with PID: %serverPid% if "%servername%"=="%name%" goto :ChoiceCPU s1ave77s scripts How to get it? s1ave77s scripts call :FOOTER pause goto:MenuA :ChoiceCPU call :FOOTER CHOICE /C YN /M "Uninstall %servername% [Y]es or [N]o : " if %errorlevel%==1 ( call :Uninstall goto:MenuA ) s1ave77s scripts PasteShr s1ave77s scripts if %errorlevel%==2 goto:MenuA :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :RestartService cls call :HEADER "This option restarts KMS Server Service", " " echo: if /i "%name%"=="" set name=KMSServer echo Default: %name% echo Values: Servername s1ave77s scripts How to get it for free? s1ave77s scripts call :FOOTER set /p name=Set name ^> echo: sc query %name% >nul if errorlevel 1 ( call :NotInstalled goto:MenuA ) pushd "%~dp0" net stop %name% >nul s1ave77s scripts How to get it for free? s1ave77s scripts if %errorlevel% equ 0 echo Successfully started %name%. if %errorlevel% neq 0 echo Starting %name% Failed. echo: net start %name% >nul if %errorlevel% equ 0 echo Successfully started %name%. if %errorlevel% neq 0 echo Starting %name% Failed. call :FOOTER echo: timeout /t 5 goto:MenuA s1ave77s scripts How to dowload it? s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :HaltService cls call :HEADER "This option halts KMS Server Service", " " echo: if /i "%name%"=="" set name=KMSServer echo Default: %name% echo Values: Servername call :FOOTER s1ave77s scripts How to dowload it? s1ave77s scripts set /p name=Set name ^> echo: sc query %name% >nul if errorlevel 1 ( call :NotInstalled goto:MenuA ) net stop %name% >nul if %errorlevel% equ 0 echo Successfully started %name%. if %errorlevel% neq 0 echo Starting %name% Failed. s1ave77s scripts PasteShr s1ave77s scripts call :FOOTER timeout /t 5 goto:MenuA :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :StartService cls call :HEADER "This option starts KMS Server Service ", " " echo: if /i "%name%"=="" set name=KMSServer s1ave77s scripts How to get it for free? s1ave77s scripts echo Default: %name% echo: echo Values: Servername call :FOOTER set /p name=Set name ^> echo: sc query %name% >nul if errorlevel 1 ( call :NotInstalled goto:MenuA s1ave77s scripts PasteShr s1ave77s scripts ) echo: net start %name% >nul if %errorlevel% equ 0 echo Successfully started %name%. if %errorlevel% neq 0 echo Starting %name% Failed. call :FOOTER timeout /t 5 goto:Menu2 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it for free? s1ave77s scripts :ClearLogs cls call :HEADER "CLEARING LOGS", " " echo Clearing all Logs ... for /f "delims=," %%i in ( 'wevtutil el' ) do wevtutil cl "%%i" wevtutil.exe cl System call :FOOTER timeout /t 5 goto:MenuA :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts PasteShr s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::SYSTEM ACTIVATION SECTION :Activate cls call :CheckSPPSVC for /d %%a in (RETAIL, OEM, OEM_SLP, OEM_NONSLP, OEM_COA, OEM_DM, VOLUME_MAK, VOLUME_KMS) do if "%channel%"=="%%a" if "%status%"=="1" ( call :Detected %%a goto:Menu5 s1ave77s scripts How to get it for free? s1ave77s scripts ) call :ID call :HEADER "OS-Version: %ver% found %vera%", "ID: %id%" echo: if %win% lss 9200 set host=127.0.0.2 if /i "%port%"=="" set "port=1688" echo Default: %host% echo Value: Host Adress echo: echo Default: %port% s1ave77s scripts How to get it for free? s1ave77s scripts echo Value: Host Port call :FOOTER set /p host=Set host IP ^> set /p port=Set port ^> call :FOOTER pushd "%~dp0" wmic path %sls% where version='%version%' call SetKeyManagementServiceMachine MachineName="%host%" >nul if %errorlevel% equ 0 echo Successfully changed IP to %host%. if %errorlevel% neq 0 echo Setting IP to %host% Failed. wmic path %sls% where version='%version%' call SetKeyManagementServicePort %port% >nul s1ave77s scripts How to get it for free? s1ave77s scripts if %errorlevel% equ 0 echo Successfully changed Port to %port%. & echo: if %errorlevel% neq 0 echo Setting Port to %port% Failed. wmic path %slp% where ID='%id%' call Activate >nul if %errorlevel% equ 0 echo: & echo Successfully activated: %ver% %vera% if %errorlevel% neq 0 echo Activation Failed. No Host available. call :FOOTER wmic path %sls% where version='%version%' call ClearKeyManagementServiceMachine >nul wmic path %sls% where version='%version%' call ClearKeyManagementServicePort >nul wmic path %sls% where version='%version%' call DisableKeyManagementServiceDnsPublishing 1 >nul wmic path %sls% where version='%version%' call DisableKeyManagementServiceHostCaching 1 >nul s1ave77s scripts How to use it? s1ave77s scripts pause goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Detected call :HEADER "%~1 found...", " " echo: CHOICE /C AB /N /M "[A]ctivate Online or [B]ack ?" if %errorlevel%==1 ( call :ActivateOnline s1ave77s scripts How to get it for free? s1ave77s scripts goto:Menu5 ) if %errorlevel%==2 goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :ActivateOffice call :Office14 :ActivateOffice3 call :Office1464 :ActivateOffice4 s1ave77s scripts How to use it? s1ave77s scripts call :Office15 :ActivateOffice5 call :Office1564 :ActivateOffice6 call :Office16 :ActivateOffice7 call :Office1664 goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to dowload it? s1ave77s scripts :ConvertOffice call :Officex64 15, 2 call :Othersx64 15, 2, Project, project call :Othersx64 15, 2, Visio, visio if not defined office15present if not defined project15present if not defined visio15present goto:ConvertOffice2 call :HEADER "Office 2013 Professional Plus %vera% found", "in path: %officepath2%" CHOICE /C PB /M "[P]roceed or [B]ack ? :" if %errorlevel%==2 goto:Menu5 call :Office15ConversionLoop timeout /t 5 s1ave77s scripts How to get it for free? s1ave77s scripts :ConvertOffice2 cls call :Officex86 15, 2 call :Othersx86 15, 2, Project, project call :Othersx86 15, 2, Visio, visio if not defined office15present if not defined project15present if not defined visio15present goto:ConvertOffice3 call :HEADER "Office 2013 Professional Plus x86 found", "in path: %officepath2%" CHOICE /C PB /M "[P]roceed or [B]ack ? :" if %errorlevel%==2 goto:Menu5 call :Office15ConversionLoop s1ave77s scripts PasteShr s1ave77s scripts timeout /t 5 :ConvertOffice3 cls call :CheckC2ROx64 16, 3, Common, office call :CheckC2RPx64 16, 3, Project, project call :CheckC2RVx64 16, 3, Visio, visio if not defined office16present if not defined project16present if not defined visio16present goto:ConvertOffice4 call :HEADER "Office 2016 Professional Plus %vera% found", "in path: %officepath3%" CHOICE /C PB /M "[P]roceed or [B]ack ? :" if %errorlevel%==2 goto:Menu5 s1ave77s scripts PasteShr s1ave77s scripts call :Office16ConversionLoop "%ProgramFiles%" timeout /t 5 :ConvertOffice4 cls call :CheckC2ROx86 16, 3, Common, office call :CheckC2RPx86 16, 3, Project, project call :CheckC2RVx86 16, 3, Visio, visio if not defined office16present if not defined project16present if not defined visio16present goto:Menu5 call :HEADER "Office 2016 Professional Plus x86 found", "in path: %officepath3%" CHOICE /C PB /M "[P]roceed or [B]ack ? :" s1ave77s scripts PasteShr s1ave77s scripts if %errorlevel%==2 goto:Menu5 call :Office16ConversionLoop "%ProgramFiles(x86)%" timeout /t 5 goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :UninstallOffice call :Officex64 14, 1 call :Othersx64 14, 1, Project, project call :Othersx64 14, 1, Visio, visio s1ave77s scripts PasteShr s1ave77s scripts if not defined office14present if not defined project14present if not defined visio14present goto:UninstallOffice2 call :HEADER "Office 2010 Professional Plus %vera% found", "in path: %officepath1%" CHOICE /C PB /M "[P]roceed or [B]ack ? :" if %errorlevel%==2 goto:UninstallOffice2 start cmd /k cscript "%officepath1%\ospp.vbs" /dstatus echo Keypart^(s^): 'XXXXX' or 'XXXXX, XXXXX, XXXXX, ...' call :FOOTER set /p keypart=Set Keypart: cls call :HEADER " UNINSTALLING : %keypart%" s1ave77s scripts How to use it? s1ave77s scripts for /d %%a in (%keypart%) do csccript "%officepath1%\ospp.vbs" /unpkey:%%a call :FOOTER pause timeout /t 5 :UninstallOffice2 cls call :Officex86 14, 1 call :Othersx86 14, 1, Project, project call :Othersx86 14, 1, Visio, visio if not defined office14present if not defined project14present if not defined visio14present goto:UninstallOffice3 s1ave77s scripts How to use it? s1ave77s scripts call :HEADER "Office 2010 Professional Plus x86 found", "in path: %officepath1%" CHOICE /C PB /M "[P]roceed or [B]ack ? :" if %errorlevel%==2 goto:UninstallOffice3 start cmd /k cscript "%officepath1%\ospp.vbs" /dstatus echo Keypart^(s^): 'XXXXX' or 'XXXXX, XXXXX, XXXXX, ...' call :FOOTER set /p keypart=Set Keypart: cls call :HEADER " UNINSTALLING : %keypart%" for /d %%a in (%keypart%) do cscript "%officepath1%\ospp.vbs" /unpkey:%%a s1ave77s scripts How to dowload it? s1ave77s scripts call :FOOTER pause timeout /t 5 :UninstallOffice3 call :Officex64 15, 2 call :Othersx64 15, 2, Project, project call :Othersx64 15, 2, Visio, visio if not defined office15present if not defined project15present if not defined visio15present goto:UninstallOffice4 call :HEADER "Office 2013 Professional Plus %vera% found", "in path: %officepath2%" CHOICE /C AMB /M "[A]uto, [M]anual or [B]ack ? :" s1ave77s scripts How to get it? s1ave77s scripts if %errorlevel%==1 ( call :Uninstall15Auto call :FOOTER timeout /t 5 goto:UninstallOffice4 ) if %errorlevel%==3 goto:UninstallOffice4 start cmd /k cscript "%officepath2%\ospp.vbs" /dstatus echo Keypart^(s^): 'XXXXX' or 'XXXXX, XXXXX, XXXXX, ...' call :FOOTER s1ave77s scripts How to use it? s1ave77s scripts set /p keypart=Set Keypart: cls call :HEADER " UNINSTALLING : %keypart%" for /d %%a in (%keypart%) do cscript "%officepath2%\ospp.vbs" /unpkey:%%a call :FOOTER pause timeout /t 5 :UninstallOffice4 cls call :Officex86 15, 2 s1ave77s scripts How to dowload it? s1ave77s scripts call :Othersx86 15, 2, Project, project call :Othersx86 15, 2, Visio, visio if not defined office15present if not defined project15present if not defined visio15present goto:UninstallOffice5 call :HEADER "Office 2013 Professional Plus x86 found", "in path: %officepath2%" CHOICE /C AMB /M "[A]uto, [M]anual or [B]ack ? :" if %errorlevel%==1 ( call :Uninstall15Auto call :FOOTER timeout /t 5 goto:UninstallOffice5 s1ave77s scripts How to dowload it? s1ave77s scripts ) if %errorlevel%==3 goto:UninstallOffice5 start cmd /k cscript "%officepath2%\ospp.vbs" /dstatus echo Keypart^(s^): 'XXXXX' or 'XXXXX, XXXXX, XXXXX, ...' call :FOOTER set /p keypart=Set Keypart: cls call :HEADER " UNINSTALLING : %keypart%" for /d %%a in (%keypart%) do cscript "%officepath2%\ospp.vbs" /unpkey:%%a call :FOOTER s1ave77s scripts PasteShr s1ave77s scripts pause timeout /t 5 :UninstallOffice5 cls call :CheckC2ROx64 16, 3, Common, office call :CheckC2RPx64 16, 3, Project, project call :CheckC2RVx64 16, 3, Visio, visio if not defined office16present if not defined project16present if not defined visio16present goto:UninstallOffice6 call :HEADER "Office 2016 Professional Plus %vera% found", "in path: %officepath3%" if not exist "%officepath3%\ospp.vbs" ( s1ave77s scripts PasteShr s1ave77s scripts echo Office 365 Professional detected. Uninstall via Convert Option. echo: call :FOOTER goto :UninstallOffice6 ) CHOICE /C AMB /M "[A]uto, [M]anual or [B]ack ? :" if %errorlevel%==1 ( call :Uninstall16Auto call :FOOTER timeout /t 5 s1ave77s scripts How to get it for free? s1ave77s scripts goto:UninstallOffice6 ) if %errorlevel%==3 goto:UninstallOffice6 start cmd /k cscript "%officepath3%\ospp.vbs" /dstatus echo Keypart^(s^): 'XXXXX' or 'XXXXX, XXXXX, XXXXX, ...' call :FOOTER set /p keypart=Set Keypart: cls call :HEADER " UNINSTALLING : %keypart%" for /d %%a in (%keypart%) do cscript "%officepath3%\ospp.vbs" /unpkey:%%a s1ave77s scripts How to use it? s1ave77s scripts call :FOOTER pause timeout /t 5 :UninstallOffice6 cls call :CheckC2ROx86 16, 3, Common, office call :CheckC2RPx86 16, 3, Project, project call :CheckC2RVx86 16, 3, Visio, visio if not defined office16present if not defined project16present if not defined visio16present goto:Menu5 call :HEADER "Office 2016 Professional Plus x86 found", "in path: %officepath3%" s1ave77s scripts How to get it for free? s1ave77s scripts if not exist "%officepath3%\ospp.vbs" ( echo Office 365 Professional detected. Uninstall via Convert Option. echo: call :FOOTER goto :Menu5 ) CHOICE /C AMB /M "[A]uto, [M]anual or [B]ack ? :" if %errorlevel%==1 ( call :Uninstall16Auto call :FOOTER s1ave77s scripts How to use it? s1ave77s scripts timeout /t 5 goto:Menu5 ) if %errorlevel%==3 goto:Menu5 start cmd /k cscript "%officepath3%\ospp.vbs" /dstatus echo Keypart^(s^): 'XXXXX' or 'XXXXX, XXXXX, XXXXX, ...' call :FOOTER set /p keypart=Set Keypart: cls call :HEADER " UNINSTALLING : %keypart%" s1ave77s scripts How to get it? s1ave77s scripts for /d %%a in (%keypart%) do cscript "%officepath3%\ospp.vbs" /unpkey:%%a call :FOOTER pause timeout /t 5 goto:Menu5 :================================================================================================================ ::=============================================================================================================== :: OFFICE DOWNLOAD AND INSTALL :Office16VnextInstall cls s1ave77s scripts How to use it? s1ave77s scripts pushd %~dp0 call :Header "OFFICE DOWNLOAD AND INSTALL" echo [V] OPEN VNEXT PAGE echo [D] DOWNLOAD VNEXT OFFICE OFFLINE INSTALL echo [I] INSTALL VNEXT OFFICE echo: echo [O] CREATE OFFICE ONLINE INSTALLER LINK echo: echo [B] BACK call :Footer s1ave77s scripts PasteShr s1ave77s scripts CHOICE /C VDOIB /N /M "YOUR CHOICE ?" if %errorlevel%==1 goto :OpenVnext if %errorlevel%==2 goto :DownloadO16Offline if %errorlevel%==3 goto :DownloadO16Online if %errorlevel%==4 goto :InstallO16 if %errorlevel%==5 goto:Menu5 ::=============================================================================================================== :: OFFICE DOWNLOAD :OpenVnext cls s1ave77s scripts PasteShr s1ave77s scripts set "wget=files\wget\wget.exe" set "vnext=" pushd %~dp0 call :Header "DOWNLOAD OFFICE 16 OFFLINE SETUP" echo This opens Vnext page in your Browser. echo: echo Make your choice, 'Generate' the link and copy. echo: echo Open (D)and paste link into the opening TXT, save/close. call :FOOTER s1ave77s scripts How to dowload it? s1ave77s scripts pause start "" "http://ms-vnext.net/OfficeDownloader/" goto:Office16VnextInstall :DownloadO16Offline cls set "wget=files\wget\wget.exe" set "vnext=" pushd %~dp0 call :Header "DOWNLOAD OFFICE 16 OFFLINE SETUP" echo Download Path?: %downpath% s1ave77s scripts How to use it? s1ave77s scripts call :FOOTER set /p downpath=Set Downloadpath ^> echo:>"%downpath%\VNEXT_DOWNLOAD.TXT" start "" "%downpath%\VNEXT_DOWNLOAD.TXT" cls pushd %~dp0 call :Header "DOWNLOAD OFFICE 16 OFFLINE SETUP" echo Paste link into the appeared TXT and save. echo: echo PRESS ANY KEY TO START THE DOWNLOAD. s1ave77s scripts How to get it? s1ave77s scripts call :FOOTER pause for /f "usebackq delims=" %%a in ("%downpath%\VNEXT_DOWNLOAD.TXT") do set "vnext=%%a" if not defined vnext ( call :FOOTER echo Path to Vnext TXT?: %vnexttxt% call :FOOTER set /p vnexttxt=Enter Path to Vnext TXT ^> for /f "usebackq delims=" %%a in ("%downpath%\VNEXT_DOWNLOAD.TXT") do set "vnext=%%a" ) s1ave77s scripts How to get it for free? s1ave77s scripts cls call :Header "DOWNLOADING OFFICE 16 OFFLINE SETUP" xcopy "%wget%" /s /q "%downpath%\" /y >nul set "wgetlive=%downpath%\wget.exe" cd /d "%downpath%\" start "Office 16 Download" cmd /k %wgetlive% %vnext:~18% pushd %~dp0 call :FOOTER timeout /t 5 goto:Office16VnextInstall s1ave77s scripts How to get it for free? s1ave77s scripts :DownloadO16Online cls pushd %~dp0 call :Header "DOWNLOAD OFFICE 16 ONLINE INSTALLER" if "%o16version%"=="" set "o16version=ProPlusRetail" if "%o16arch%"=="" set "o16arch=x86" if "%o16lang%"=="" set "o16lang=en-us" echo Download Version?: %o16version% echo VALUES: ProPlusRetail, ProfessionalRetail, ProjectProRetail, VisioProRetail echo: s1ave77s scripts How to use it? s1ave77s scripts echo Download Architecture?: %o16arch% echo: echo Download Language?: %o16lang% call :FOOTER set /p o16version=Set Download Version ^> set /p o16arch=Set Install Architecture ^> set /p o16lang=Set Install Language ^> if "%o16version%"=="ProPlusRetail" set "o16gvlk=XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99" if "%o16version%"=="ProfessionalRetail" set "o16gvlk=XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99" if "%o16version%"=="ProjectProRetail" set "o16gvlk=YG9NW-3K39V-2T3HJ-93F3Q-G83KT" s1ave77s scripts How to dowload it? s1ave77s scripts if "%o16version%"=="VisioProRetail" set "o16gvlk=PD3PC-RHNGV-FXJ29-8JK7D-RJRJK" cls call :Header "DOWNLOAD OFFICE 16 ONLINE INSTALLER" echo Sending generated link to your browser. echo: echo Save the Setup.exe and run it to start the process. start "" "https://c2rsetup.officeapps.live.com/c2r/download.aspx?ProductreleaseID=%o16version%&language=%o16lang%&platform=%o16arch%&token=%o16gvlk%&version=O16GA&act=1" call :FOOTER timeout /t 5 pause s1ave77s scripts How to use it? s1ave77s scripts goto:Office16VnextInstall ::=============================================================================================================== :: OFFICE INSTALL :InstallO16 cls set "o16install=1" set "p16install=0" set "v16install=0" pushd %~dp0 call :Header "INSTALL VNEXT OFFICE 16" s1ave77s scripts How to get it? s1ave77s scripts if "%o16install%"=="1" (set "o16=YES") else (set "o16=NO") if "%p16install%"=="1" (set "o16=YES") else (set "p16=NO") if "%v16install%"=="1" (set "o16=YES") else (set "v16=NO") if "%o16arch%"=="" set "o16arch=x86" if "%o16lang%"=="" set "o16lang=en-us" if "%installtrigger%"=="" set "installtrigger=1" for /f "tokens=*" %%a in ('dir "%downpath%" /ad /b ^| findstr /i "16.0"') do set sub=%%a for /f "tokens=2,3 delims=_ " %%a in ("%sub%") do (set "o16lang=%%a")&&(set "o16arch=%%b") if defined sub set "installpath=%downpath%\%sub%" echo Office Setup Path?: %installpath% s1ave77s scripts How to use it? s1ave77s scripts echo: echo Install Offic (1/0)?: %o16install% = %o16% echo VALUES: 1=YES 0=NO echo: echo Install Project (1/0)?: %p16install% = %p16% echo VALUES: 1=YES 0=NO echo: echo Install Visio (1/0)?: %v16install% = %v16% echo VALUES: 1=YES 0=NO echo: s1ave77s scripts How to get it? s1ave77s scripts echo Install Architecture?: %o16arch% echo: echo Install Language?: %o16lang% echo: echo Start install now (1/0)?: %installtrigger% call :FOOTER set /p installpath=Location of downloaded vnext-package ^> set /p o16install=Set Office Install (1/0) ^> set /p p16install=Set Project Install (1/0) ^> set /p v16install=Set Visio Install (1/0) ^> s1ave77s scripts PasteShr s1ave77s scripts set /p o16arch=Set Install Architecture ^> set /p o16lang=Set Install Language ^> set /p installtrigger=Start install now (1/0) ? ^> if "%installtrigger%"=="0" goto:InstallO16 xcopy "files\officefixes\16\setup.exe" /s /q "%installpath%\" /y >nul ::=============================================================================================================== :: OFFICE INSTALL XML if "%o16arch%"=="x64" (set "o16a=64") else (set "o16a=32") set "oxml=%installpath%\configure%o16a%.xml" if exist "%oxml%" del /s /q "%oxml%" s1ave77s scripts How to get it for free? s1ave77s scripts echo ^ >%oxml% echo ^ >>%oxml% echo: >>%oxml% if not "%o16install%"=="0" ( echo ^ >>%oxml% echo ^ >>%oxml% echo ^ >>%oxml% echo: >>%oxml% ) if not "%p16install%"=="0" ( s1ave77s scripts How to get it for free? s1ave77s scripts echo ^ >>%oxml% echo ^ >>%oxml% echo ^ >>%oxml% echo: >>%oxml% ) if not "%v16install%"=="0" ( echo ^ >>%oxml% echo ^ >>%oxml% echo ^ >>%oxml% echo: >>%oxml% s1ave77s scripts How to get it? s1ave77s scripts ) echo ^ >>%oxml% echo ^ >>%oxml% echo ^ >>%oxml% cls timeout /t 5 >nul call :Header "INSTALL OFFICE 16" start "" "%installpath%\setup.exe" /configure "%oxml%" call :FOOTER timeout /t 5 s1ave77s scripts How to dowload it? s1ave77s scripts goto:Office16VnextInstall :================================================================================================================ ::=============================================================================================================== :: OFFICE FIXITs :OfficeFixit cls pushd %~dp0 call :Header "UNINSTALL OFFICE" echo [4] OFFICE 14 echo: s1ave77s scripts How to dowload it? s1ave77s scripts echo [5] OFFICE 15 echo: echo [6] OFFICE 16 echo: echo [B] BACK call :Footer CHOICE /C 456B /N /M "YOUR CHOICE ?" if %errorlevel%==1 goto :Fixit14 if %errorlevel%==2 goto :Fixit15 if %errorlevel%==3 goto :Fixit16 s1ave77s scripts How to get it? s1ave77s scripts if %errorlevel%==4 goto:Menu5 ::=============================================================================================================== :: OFFICE FIXITs :Fixit16 cls pushd %~dp0 call :Header "UNINSTALL OFFICE 16" CHOICE /C NF /N /M "[N]ormal or [F]orced ?" if %errorlevel%==1 goto :Fixit16Normal if %errorlevel%==2 goto :Fixit16Forced s1ave77s scripts How to use it? s1ave77s scripts :Fixit16Forced start files\officefixes\16\Uninstall\Troubleshoot\OffScrubC2R.vbs goto:Menu5 :Fixit16Normal start files\officefixes\16\setup.exe /configure "%cd%\files\fixit\16\Uninstall\RemoveAll.xml" goto:Menu5 :================================================================================================================ ::=============================================================================================================== :Fixit14 pushd %~dp0 s1ave77s scripts PasteShr s1ave77s scripts start files\officefixes\MicrosoftFixit50450.msi goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Fixit15 pushd %~dp0 start files\officefixes\O15CTRRemove.diagcab goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts PasteShr s1ave77s scripts :QuickAndDirtyQAD cls pushd "%~dp0" call :HEADER "QUICK AND DIRTY I", " " echo: echo CAUTION: THIS WILL ACTIVATE WINDOWS IN BRUTE FORCE MODE ^! echo: call :FOOTER CHOICE /C PB /M "[P]roceed now or [B]ack ? :" if %errorlevel%==1 goto :DoIT s1ave77s scripts How to use it? s1ave77s scripts if %errorlevel%==2 goto:Menu5 :DoIT if %win% GEQ 9200 ( goto :qd1 ) else ( goto :qd2 ) :qd1 echo: call :QADAutoInstall goto :DoIT1 :qd2 call :CodyInstallAuto :DoIT1 s1ave77s scripts How to get it? s1ave77s scripts for /d %%a in (RETAIL, OEM, OEM_SLP, OEM_NONSLP, OEM_COA, OEM_DM, VOLUME_MAK, VOLUME_KMS) do if "%channel%"=="%%a" ( if "%status%"=="1" ( call :HEADER "QUICK AND DIRTY I", " " echo Licensed %channel% version found. call :FOOTER CHOICE /C AS /N /M "[A]ctivate or [S]ip ?" if !errorlevel!==2 goto:ActivationCommandQD )) call :AutoKeyInstall call :AutoActivate s1ave77s scripts How to dowload it? s1ave77s scripts :ActivationCommandQD call :AutoactivateOffice14 call :AutoactivateOffice1464 call :AutoactivateOffice15 call :AutoactivateOffice1564 call :AutoactivateOffice16 call :AutoactivateOffice1664 :goIT2 if %win% GEQ 9200 (goto :DoIT4) else (goto :goIT5) :DoIT4 s1ave77s scripts How to use it? s1ave77s scripts call :QADAutoUnInstall goto:Menu5 :goIT5 echo: call :CodyUnInstallAuto goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :InstantActivation set "hSpp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" s1ave77s scripts PasteShr s1ave77s scripts set "hOspp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" cls CD /D "%~dp0" set Directory=%~dp0 if %win% lss 9200 set host=127.0.0.2 set "port=1688" set pid=RandomKMSPID set sai=120 set sri=10080 echo: s1ave77s scripts How to get it? s1ave77s scripts :ServerInstall if %win% GEQ 9200 (goto :ia1) else (goto :ia2) :ia2 call :CodyInstallAuto goto :ActivateWindows :ia1 call :QADAutoInstall :ActivateWindows cls pushd "%~dp0" s1ave77s scripts PasteShr s1ave77s scripts call :HEADER "INSTANT ACTIVATION I", "OS-Version: %ver% found %vera%" echo: CHOICE /C AS /M "[A]ctivate %ver% or [S]kip ? :" if %errorlevel%==1 goto :ActivateWindowsIA1 if %errorlevel%==2 goto :ActivateOfficeIA1 :ActivateWindowsIA1 for /d %%a in (RETAIL, OEM, OEM_SLP, OEM_NONSLP, OEM_COA, OEM_DM, VOLUME_MAK, VOLUME_KMS) do if "%channel%"=="%%a" ( if "%status%"=="1" ( call :HEADER "QUICK AND DIRTY I", " " echo Licensed %channel% version found. s1ave77s scripts PasteShr s1ave77s scripts call :FOOTER CHOICE /C AS /N /M "[A]ctivate or [S]ip ?" if !errorlevel!==2 goto:ActivateOfficeIA1 )) call :AutoKeyInstall call :AutoActivate :ActivateOfficeIA1 call :Office14 call :Office1464 call :Office15 s1ave77s scripts How to get it? s1ave77s scripts call :Office1564 call :Office16 call :Office1664 :ServerUninstall if %win% GEQ 9200 (goto :ui1) else (goto :ui2) :ui1 call :QADAutoUnInstall goto:Menu5 :ui2 call :CodyUnInstallAuto s1ave77s scripts How to dowload it? s1ave77s scripts goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :ReactivationTasks cls schtasks /query /TN "Reactivate Service DAILY" >nul 2>&1 if %errorlevel%==0 goto :TaskDeleteRT if %win% lss 9200 set host=127.0.0.2 set name=KMSServer set "port=1688" s1ave77s scripts How to use it? s1ave77s scripts set pid=RandomKMSPID set sai=120 set sri=10080 call :HEADER "RE-ACTIVATION TASK", "" :ServerInstall if %win% GEQ 9200 (goto :Task8) else (goto :Task7) :Task7 CHOICE /C IB /M "[I]nstall or [B]ack ? :" if %errorlevel%==2 goto :Menu5 call :CodyEmuAutoInstall s1ave77s scripts How to get it for free? s1ave77s scripts set "trigger=1" goto :TaskActivateWindows :Task8 CHOICE /C HEB /M "[H]ooked, [E]mulator and Hook or [B]ack ? :" if %errorlevel%==1 goto :HookedTask if %errorlevel%==2 goto :EmuAndHookTask if %errorlevel%==3 goto :Menu5 :HookedTask call :QADAutoInstall set "trigger=" s1ave77s scripts How to dowload it? s1ave77s scripts goto :TaskActivateWindows :EmuAndHookTask call :CodyEmuAutoInstall call :AutoSppExtComObjPatch set "trigger=1" :TaskActivateWindows cls pushd "%~dp0" call :HEADER "ACTIVATION", "OS-Version: %ver% found %vera%" echo: s1ave77s scripts PasteShr s1ave77s scripts CHOICE /C AS /M "[A]ctivate %ver% or [S]kip ? :" if %errorlevel%==1 goto :TaskActivateWindows1 if %errorlevel%==2 goto :TaskActivateOffice1 :TaskActivateWindows1 for /d %%a in (RETAIL, OEM, OEM_SLP, OEM_NONSLP, OEM_COA, OEM_DM, VOLUME_MAK, VOLUME_KMS) do if "%channel%"=="%%a" ( if "%status%"=="1" ( call :HEADER "QUICK AND DIRTY I", " " echo Licensed %channel% version found. call :FOOTER CHOICE /C AS /N /M "[A]ctivate or [S]ip ?" s1ave77s scripts PasteShr s1ave77s scripts if !errorlevel!==2 goto:TaskActivateOffice1 )) call :AutoKeyInstall call :AutoActivate :TaskActivateOffice1 call :Office14 call :Office1464 call :Office15 call :Office1564 call :Office16 s1ave77s scripts How to dowload it? s1ave77s scripts call :Office1664 cls pushd "%~dp0" call :HEADER "TASK CREATION", "" echo: if not exist "%windir%\%name%" md "%windir%\%name%" call :TaskCreate call :WriteA call :FOOTER CHOICE /C CS /M "[C]reate %ver% or [S]kip ? :" s1ave77s scripts How to get it for free? s1ave77s scripts if !errorlevel!==1 call :WriteWindows call :FOOTER call :Officex64 14, 1 call :Othersx64 14, 1, Project, project call :Othersx64 14, 1, Visio, visio if defined officepath1 ( CHOICE /C CS /M "[C]reate Office 14 or [S]kip ? :" if !errorlevel!==1 call :WriteOffice14 call :FOOTER ) s1ave77s scripts How to use it? s1ave77s scripts call :Officex86 14, 1 call :Othersx86 14, 1, Project, project call :Othersx86 14, 1, Visio, visio if defined officepath1 ( CHOICE /C CS /M "[C]reate Office 14 or [S]kip ? :" if !errorlevel!==1 call :WriteOffice14 call :FOOTER ) call :Officex64 15, 2 call :Othersx64 15, 2, Project, project s1ave77s scripts How to get it for free? s1ave77s scripts call :Othersx64 15, 2, Visio, visio if defined officepath2 ( CHOICE /C CS /M "[C]reate Office 15 or [S]kip ? :" if !errorlevel!==1 call :WriteOffice15 call :FOOTER ) call :Officex86 15, 2 call :Othersx86 15, 2, Project, project call :Othersx86 15, 2, Visio, visio if defined officepath2 ( s1ave77s scripts How to use it? s1ave77s scripts CHOICE /C CS /M "[C]reate Office 15 or [S]kip ? :" if !errorlevel!==1 call :WriteOffice15 call :FOOTER ) call :CheckC2ROx64 16, 3, Common, office call :CheckC2RPx64 16, 3, Project, project call :CheckC2RVx64 16, 3, Visio, visio if defined officepath3 ( CHOICE /C CS /M "[C]reate Office 16 or [S]kip ? :" if !errorlevel!==1 call :WriteOffice16 s1ave77s scripts How to get it? s1ave77s scripts call :FOOTER ) call :CheckC2ROx86 16, 3, Common, office call :CheckC2RPx86 16, 3, Project, project call :CheckC2RVx86 16, 3, Visio, visio if defined officepath3 ( CHOICE /C CS /M "[C]reate Office 16 or [S]kip ? :" if !errorlevel!==1 call :WriteOffice16 call :FOOTER ) s1ave77s scripts How to use it? s1ave77s scripts call :WriteOthersCleanup call :WriteZ tasklist /FI "IMAGENAME eq KMSServer.exe" 2>NUL | find /I /N "KMSServer.exe">NUL if "%ERRORLEVEL%"=="0" TASKKILL /F /IM "KMSServer.exe" >nul pause goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :TaskDeleteRT cls s1ave77s scripts How to use it? s1ave77s scripts set name=KMSServer call :HEADER "TASK DELETION", "" SchTasks /Delete /TN "Reactivate Service DAILY" /F SchTasks /Delete /TN "Reactivate Service ONLOGON" /F SchTasks /Delete /TN "Reactivate Service ONSTART" /F call :FOOTER timeout /t 5 if exist "%SystemRoot%\System32\KMS-QADhooker.*" call :QADAutoUnInstall if exist "%windir%\%name%\%name%.exe" call :CodyEmuAutoUninstall if exist "%SystemRoot%\System32\SppExtComObjPatcher.*" call :AutoSppExtComObjPatch s1ave77s scripts How to dowload it? s1ave77s scripts if exist "%windir%\%name%" rd /s /q "%windir%\%name%" >nul call :FOOTER timeout /t 5 goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :RearmOffice reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot" >nul 2>&1 if errorlevel 1 goto :RearmOffice1532 FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot" /v "Path"') do (SET officepath=%%b) >nul 2>&1 s1ave77s scripts How to get it for free? s1ave77s scripts cls call :HEADER "Office 2013 Professional Plus %vera% found", "in path: %officepath%" echo: CHOICE /C RS /M " [R]earm or [S]kip ? : " if %errorlevel%==1 goto :RO3 if %errorlevel%==2 goto :Menu5 :RO3 echo: "%officepath%\ospprearm.exe" call :FOOTER s1ave77s scripts How to get it? s1ave77s scripts timeout /t 5 goto:Menu5 :RearmOffice1532 reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot" >nul 2>&1 if errorlevel 1 goto:Menu5 FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot" /v "Path"') do (SET officepath=%%b) >nul 2>&1 cls call :HEADER "Office 2013 Professional Plus x86 found", "in path: %officepath%" echo: CHOICE /C RS /M " [R]earm or [S]kip ? : " s1ave77s scripts PasteShr s1ave77s scripts if %errorlevel%==1 goto :RO4 if %errorlevel%==2 goto:Menu5 :RO4 echo: "%officepath%\ospprearm.exe" call :FOOTER timeout /t 5 goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts :KeyInstall pushd "%~dp0" cls call :HEADER "OS-Version: %ver% found %vera%", " " if %win% geq 10240 ( echo Windows 10 %edition% detected. Install generic Retail Key? call :FOOTER CHOICE /C IS /M " [I]nstall or [S]kip ? : " if !errorlevel!==1 (if "%edition%"=="Professional" set "key=VK7JG-NPHTM-C97JM-9MPGT-3V66T")&&(if "%edition%"=="Core" set "key=YTMG3-N6DKC-DKB77-7M9GH-8HVX7")&&(if "%edition%"=="CoreSingleLanguage" set "key=BT79Q-G7N6G-PGBYW-4YWX6-6F4BT")&&(if "%edition%"=="Enterprise" set "key=TX9XD-98N7V-6WMQ6-BX7FG-H8Q99")&&(goto :InstallOrder) ) s1ave77s scripts How to dowload it? s1ave77s scripts call :KeyCheck echo (Value: XXXXX-XXXXX-XXXXX-XXXXX-XXXXX) echo: echo: echo Version: %ver% %vera% echo Default GVLK: %key% %comment% echo: echo: echo If key is shown, simply hit ENTER. call :FOOTER s1ave77s scripts PasteShr s1ave77s scripts set /p key=Set key ^> :InstallOrder call :FOOTER wmic path %sls% where version='%version%' call InstallProductKey ProductKey="%key%" >nul if %errorlevel% equ 0 echo Successfully installed Product Key & echo: & echo For: %ver% %vera% & echo: & echo KEY: %key% if %errorlevel% neq 0 echo Installing Product Key Failed. call :FOOTER timeout /t 5 goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to dowload it? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CallMS start cmd /c "%windir%\system32\slui.exe 4" goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Validate if %win% NEQ 7601 call :NotSupported if %win% NEQ 7601 goto:Menu5 cls s1ave77s scripts How to get it for free? s1ave77s scripts echo: set url=https://www.microsoft.com/genuine/downloads/FailureScenarios.aspx call :HEADER " This will open Internet Explorer to Validate the System", " " echo: start "%ProgramFiles%\Internet Explorer\iexplore.exe" "%url%" call :FOOTER timeout /t 5 goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to use it? s1ave77s scripts :BlockCheck cls call :HEADER "This Blocks the MS KMS-Check", " " echo: netsh advfirewall firewall add rule name="Key Management Services 1" protocol=TCP dir=out localport=443 remoteip=65.52.98.231 action=block >nul if %errorlevel%==0 echo Successfully blocked Key Management Services 1. & echo: if %errorlevel%==1 echo Blocking Key Management Services 1 failed. & echo: netsh advfirewall firewall add rule name="Key Management Services 2" protocol=TCP dir=out localport=443 remoteip=65.52.98.232 action=block >nul if %errorlevel%==0 echo Successfully blocked Key Management Services 2. & echo: if %errorlevel%==1 echo Blocking Key Management Services 2 failed. & echo: s1ave77s scripts How to use it? s1ave77s scripts netsh advfirewall firewall add rule name="Key Management Services 3" protocol=TCP dir=out localport=443 remoteip=65.52.98.233 action=block >nul if %errorlevel%==0 echo Successfully blocked Key Management Services 3. & echo: if %errorlevel%==1 echo Blocking Key Management Services 3 failed. & echo: call :FOOTER timeout /t 5 goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :UnBlockCheck cls s1ave77s scripts How to use it? s1ave77s scripts call :HEADER "This Unblocks the MS KMS-Check", " " echo: netsh advfirewall firewall add rule name="Key Management Services 1" protocol=TCP dir=out localport=443 remoteip=65.52.98.231 action=allow >nul if %errorlevel%==0 echo Successfully unblocked Key Management Services 1. & echo: if %errorlevel%==1 echo Unblocking Key Management Services 1 failed. & echo: netsh advfirewall firewall add rule name="Key Management Services 2" protocol=TCP dir=out localport=443 remoteip=65.52.98.232 action=allow >nul if %errorlevel%==0 echo Successfully unblocked Key Management Services 2. & echo: if %errorlevel%==1 echo Unblocking Key Management Services 2 failed. & echo: netsh advfirewall firewall add rule name="Key Management Services 3" protocol=TCP dir=out localport=443 remoteip=65.52.98.233 action=allow >nul if %errorlevel%==0 echo Successfully unblocked Key Management Services 3. & echo: s1ave77s scripts How to use it? s1ave77s scripts if %errorlevel%==1 echo Unblocking Key Management Services 3 failed. & echo: call :FOOTER timeout /t 5 goto:Menu5 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :ExportTokens cls echo: set "tokenpath=%userprofile%\desktop" s1ave77s scripts PasteShr s1ave77s scripts call :HEADER "This will export Activation Tokens to a folder.", " " echo: echo Standard Path: %tokenpath% echo: set /p tokenpath=Set Path : ^> echo: Licensingdiag -report %tokenpath%\Licensingdiag.xml -log %tokenpath%\Licensingdiag.cab call :FOOTER timeout /t 5 goto:Menu5 s1ave77s scripts PasteShr s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :RebuildLicense cls call :HEADER "Restoring License", " " echo: cscript %windir%\system32\slmgr.vbs /rilc call :FOOTER pause goto:Menu5 s1ave77s scripts How to get it? s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::SYSTEM TOOLS SECTION :CommandPrompt pushd %windir%\system32 start "Elevated CMD" cmd /k cmd goto:Menu1 ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :StartSysInternal files\sysinternal.cmd goto:Menu1 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :StartTools files\tools.cmd goto:Menu1 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it for free? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :StartSystemTools files\systemtools.cmd goto:Menu1 :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Reboot start shutdown.exe /r /t 0 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it for free? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::EMULATOR CHECK LOOPS :SetEmulatorData set "hSpp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" set "hOspp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" echo: echo ...Checking for Server Emulator instances: echo: s1ave77s scripts How to dowload it? s1ave77s scripts wmic process where "name='KMSServer.exe'" | findstr /i /c:"KMSServer.exe" >nul if %errorlevel%==0 ( call :ServerRunning goto:MenuC ) set "port=1688" set pid=RandomKMSPID set sai=43200 set sri=43200 if /i "%hwid%"=="" set hwid=364F463A8863D35F s1ave77s scripts How to get it for free? s1ave77s scripts if /i "%kpop%"=="" set kpop=1 if /i "%loglevel%"=="" set loglevel=1 call :FOOTER echo Port echo Default: %port% echo: echo Interval for unactivated Client in Minutes (15 - 43200) echo Default: %sai% echo: echo Interval for Reactivation in Minutes (15 - 43200) s1ave77s scripts How to get it for free? s1ave77s scripts echo Default: %sri% echo: echo Hardware ID echo Default: %hwid% echo Values: KMS Server Hardware ID echo: echo LogLevel echo Default: %loglevel% echo Values: KMS Server Loglevel 1 / 2 echo: s1ave77s scripts How to get it? s1ave77s scripts echo Kill Process On Port echo Default: %kpop% echo Values: 0 = Off / 1 = On call :FOOTER set /p port=Set port ^> set /p sai=Set sai ^> set /p sri=Set sri ^> set /p hwid=Set Hardware ID ^> set /p loglevel=Set LogLevel ^> set /p kpop=Set Kill process On Start ^> s1ave77s scripts How to get it? s1ave77s scripts goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :ServerRunning echo: echo ...Server is already running. call :FOOTER timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it for free? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CodyPID cls call :FOOTER echo [A] Enter specific ePID for each product separately echo: echo [B] Server 2008 R2 KMS_C (kms.creighton.edu) echo 55041-00206-152-174451-03-1033-7601.0000-2442012 echo [C] Server 2008 R2 KMS_C (kms.cc.columbia.edu) echo 05426-00206-152-103094-03-1033-9200.0000-2842012 s1ave77s scripts How to use it? s1ave77s scripts echo: echo [D] DefaultKMSPID by MTK echo 55041-00168-305-246209-03-1033-7600.0000-0522010 echo: echo [E] RandomKMSPID echo: echo [F] 55041-00172-037-340769-03-1049-7601.0000-3532012 echo [G] 55041-00096-199-128989-03-1033-7601.0000-3502012 echo [H] 55041-00172-037-340769-03-1049-7601.0000-3532012 echo: s1ave77s scripts How to get it? s1ave77s scripts echo [K] Enter Custom KMS Extended PID call :FOOTER CHOICE /C ABCDEFGHK /M "Choose ePID :" if %errorlevel%==1 set pid=" " & goto :InputPID if %errorlevel%==2 set pid=55041-00206-152-174451-03-1033-7601.0000-2442012 & goto :eof if %errorlevel%==3 set pid=05426-00206-152-103094-03-1033-9200.0000-2842012 & goto :eof if %errorlevel%==4 set pid=DefaultKMSPID & goto :eof if %errorlevel%==5 set pid=RandomKMSPID & goto :eof if %errorlevel%==6 set pid=55041-00172-037-340769-03-1049-7601.0000-3532012 & goto :eof if %errorlevel%==7 set pid=55041-00096-199-128989-03-1033-7601.0000-3502012 & goto :eof s1ave77s scripts How to get it for free? s1ave77s scripts if %errorlevel%==8 set pid=55041-00172-037-340769-03-1049-7601.0000-3532012 & goto :eof if %errorlevel%==9 set /p "pid=Set Custom ePID: ^>" & goto :eof :InputPID set WindowsPid="05426-00206-152-251264-03-1031-9200.0000-0902013" set Office2010Pid="05426-00206-234-251264-03-1031-9200.0000-0902013" set Office2013Pid="55041-00096-199-251264-03-1031-9200.0000-0902013" echo: echo Windows ePID %WindowsPid% echo Office 2010 ePID %Office2010Pid% echo Office 2013 ePID %Office2013Pid% s1ave77s scripts How to get it for free? s1ave77s scripts call :FOOTER set /p WindowsPid=Set WindowsPid ^> set /p Office2010Pid=Set Office2010Pid ^> set /p Office2013Pid=Set Office2013Pid ^> call :RegCODYS echo: goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :UnRegOffice s1ave77s scripts How to use it? s1ave77s scripts set "hSpp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" set "hOspp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" reg delete "%hSpp%" /f /v "KeyManagementServiceName" >nul 2>&1 reg delete "%hSpp%" /f /v "KeyManagementServicePort" >nul 2>&1 reg delete "%hSpp%" /f /v "VLActivationType" >nul 2>&1 reg delete "%hSpp%" /f /v "UserOperations" >nul 2>&1 reg delete "%hOspp%" /f /v "KeyManagementServiceName" >nul 2>&1 reg delete "%hOspp%" /f /v "KeyManagementServicePort" >nul 2>&1 reg delete "%hOspp%" /f /v "VLActivationType" >nul 2>&1 reg delete "%hOspp%" /f /v "UserOperations" >nul 2>&1 s1ave77s scripts How to get it for free? s1ave77s scripts goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :RegOffice set "hSpp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" set "hOspp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" reg delete %hOspp%\59A52881-A989-479D-AF46-F275C6370663 /f >nul 2>&1 reg delete %hSpp%\0ff1ce15-a989-479d-af46-f275c6370663 /f >nul 2>&1 reg add "%hSpp%" /f /v "KeyManagementServiceName" /d %host% /t "REG_SZ" >nul reg add "%hSpp%" /f /v "KeyManagementServicePort" /d %port% /t "REG_SZ" >nul s1ave77s scripts How to get it for free? s1ave77s scripts reg add "%hSpp%" /f /v "VLActivationType" /d "2" /t "REG_DWORD" >nul reg add "%hSpp%" /f /v "UserOperations" /d "1" /t "REG_DWORD" >nul reg delete %hSpp%\55C92734-D682-4D71-983E-D6EC3F16059F /f >nul 2>&1 reg delete %hOspp%\0ff1ce15-a989-479d-af46-f275c6370663 /f >nul 2>&1 reg add "%hOspp%" /f /v "KeyManagementServiceName" /d %host% /t "REG_SZ" >nul reg add "%hOspp%" /f /v "KeyManagementServicePort" /d %port% /t "REG_SZ" >nul reg add "%hOspp%" /f /v "VLActivationType" /d "2" /t "REG_DWORD" >nul reg add "%hOspp%" /f /v "UserOperations" /d "1" /t "REG_DWORD" >nul goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to dowload it? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :RegCODY REG ADD "HKLM\SYSTEM\CurrentControlSet\services\KMSServer" /v Description /t REG_SZ /d "Windows Service that emulates a Key Management Service (KMS) Server" /f >nul REG ADD "HKLM\SYSTEM\CurrentControlSet\services\KMSServer\Parameters" /f /v "KMSPort" /d %port% /t "REG_SZ" >nul REG ADD "HKLM\SYSTEM\CurrentControlSet\services\KMSServer\Parameters" /f /v "KMSPID" /d %pid% /t "REG_SZ" >nul REG ADD "HKLM\SYSTEM\CurrentControlSet\services\KMSServer\Parameters" /f /v "KMSHWID" /d %hwid% /t "REG_SZ" >nul REG ADD "HKLM\SYSTEM\CurrentControlSet\services\KMSServer\Parameters" /f /v "VLActivationInterval" /d %sai% /t "REG_DWORD" >nul REG ADD "HKLM\SYSTEM\CurrentControlSet\services\KMSServer\Parameters" /f /v "VLRenewalInterval" /d %sri% /t "REG_DWORD" >nul REG ADD "HKLM\SYSTEM\CurrentControlSet\services\KMSServer\Parameters" /f /v "KillProcessOnPort" /d %kpop% /t "REG_DWORD" >nul goto:eof s1ave77s scripts How to get it? s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :RegCODYS REG ADD "HKLM\SYSTEM\CurrentControlSet\services\KMSServer\Parameters\KMSPID" /f /v "55c92734-d682-4d71-983e-d6ec3f16059f" /d %WindowsPid% /t "REG_SZ" >nul REG ADD "HKLM\SYSTEM\CurrentControlSet\services\KMSServer\Parameters\KMSPID" /f /v "59a52881-a989-479d-af46-f275c6370663" /d %Office2010Pid% /t "REG_SZ" >nul REG ADD "HKLM\SYSTEM\CurrentControlSet\services\KMSServer\Parameters\KMSPID" /f /v "0ff1ce15-a989-479d-af46-f275c6370663" /d %Office2013Pid% /t "REG_SZ" >nul goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :UnRegCODY s1ave77s scripts PasteShr s1ave77s scripts REG DELETE "HKLM\SYSTEM\CurrentControlSet\services\KMSServer" /f >nul goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :RegDH set hService="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\KMSServerService\Parameters" REG ADD HKLM\SYSTEM\CurrentControlSet\services\%name% /v Description /t REG_SZ /d "Windows Service that emulates a Key Management Service (KMS) Server" /f >nul reg add "%hService%" /f /v "Windows" /d %WindowsPid% /t "REG_SZ" >nul reg add "%hService%" /f /v "Office2010" /d %Office2010Pid% /t "REG_SZ" >nul reg add "%hService%" /f /v "Office2013" /d %Office2013Pid% /t "REG_SZ" >nul s1ave77s scripts How to use it? s1ave77s scripts reg add "%hService%" /f /v "Port" /d %port% /t "REG_SZ" >nul reg add "%hService%" /f /v "ActivatedMachines" /d "50" /t "REG_DWORD" >nul reg add "%hService%" /f /v "KMSHWID" /d %hwid% /t "REG_SZ" >nul reg add "%hService%" /f /v "LogLevel" /d %loglevel% /t "REG_DWORD" >nul reg add "%hService%" /f /v "KillProcessOnPort" /d %kpop% /t "REG_DWORD" >nul reg add "%hService%" /f /v "ActivationInterval" /d %sai% /t "REG_DWORD" >nul reg add "%hService%" /f /v "RenewalInterval" /d %sri% /t "REG_DWORD" >nul goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to use it? s1ave77s scripts :Initiate pushd %~dp0 set "port=1688" if exist "%windir%\%name%\%name% %vera%.exe" del /s /q "%windir%\%name%\%name% %vera%.exe" >nul xcopy "files\KMS Server Service %vera%.exe" "%windir%\%name%\" /Q /Y >nul ren "%windir%\%name%\KMS Server Service %vera%.exe" %name%.exe netsh advfirewall firewall add rule name="%name% %port%" dir=in program="%windir%\%name%\%name%.exe" localport=%port% protocol=TCP action=allow remoteip=any netsh advfirewall firewall add rule name="%name% %port%" dir=in program="%windir%\%name%\%name%.exe" localport=%port% protocol=TCP action=allow remoteip=localsubnet goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to use it? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :FirewallInstall2 cls call :HEADER "This option opens Firewall for KMS Server Emulator", " " echo: echo Checking for Server Emulator instances: echo: wmic process where "name='KMSServer.exe'" | findstr /i /c:"KMSServer.exe" >nul if %errorlevel%==1 call :ServerNotRunning if %errorlevel%==1 goto:MenuC s1ave77s scripts How to use it? s1ave77s scripts echo: netsh advfirewall firewall add rule name="KMS Server Emulator" dir=in program="%windir%\KMSServer\KMSServer.exe" localport=%port% protocol=TCP action=allow remoteip=any netsh advfirewall firewall add rule name="KMS Server Emulator" dir=in program="%windir%\KMSServer\KMSServer.exe" localport=%port% protocol=TCP action=allow remoteip=localsubnet call :FOOTER timeout /t 5 goto:MenuC :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :FirewallDelete2 cls s1ave77s scripts PasteShr s1ave77s scripts call :HEADER "This option deletes Rule for KMS Server Emulator", " " echo: echo Checking for Server Emulator instances: echo: wmic process where "name='KMSServer.exe'" | findstr /i /c:"KMSServer.exe" >nul if %errorlevel%==1 call :ServerNotRunning if %errorlevel%==1 goto:MenuC echo: netsh advfirewall firewall delete rule name="KMS Server Emulator" call :FOOTER s1ave77s scripts PasteShr s1ave77s scripts timeout /t 5 goto:MenuC :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::SERVICES INSTALL LOOPS :SetServiceData pushd "%~dp0" if /i "%name%"=="" set name=KMSServer s1ave77s scripts How to get it for free? s1ave77s scripts echo Default: %name% echo Values: Servername echo: set /p name=Set name ^> echo: if "%triggerS%"=="4" goto :furtherSSD5 sc query %name% >NUL if errorlevel 1 goto :furtherSSD5 if errorlevel 0 echo ..Service is already installed. timeout /t 5 s1ave77s scripts How to use it? s1ave77s scripts goto :Menu2 :furtherSSD5 if /i "%host%"=="" set host=127.0.0.2 if /i "%port%"=="" set "port=1688" if /i "%sai%"=="" set sai=43200 if /i "%sri%"=="" set sri=43200 if /i "%start%"=="" set start=auto if /i "%hwid%"=="" set hwid=364F463A8863D35F if /i "%kpop%"=="" set kpop=1 if /i "%loglevel%"=="" set loglevel=1 s1ave77s scripts How to dowload it? s1ave77s scripts call :FOOTER echo Port echo Default: %port% echo: echo Interval for unactivated Client in Minutes (15 - 43200) echo Default: %sai% echo: echo Interval for Reactivation in Minutes (15 - 43200) echo Default: %sri% echo: s1ave77s scripts How to dowload it? s1ave77s scripts echo Service Start Type echo Default: %start% echo Values: boot, system, auto, demand, disabled, delayed-auto echo: echo Hardware ID echo Default: %hwid% echo Values: KMS Server Hardware ID echo: echo Kill Process On Port echo Default: %kpop% s1ave77s scripts How to get it for free? s1ave77s scripts echo Values: 0 = Off / 1 = On echo: echo LogLevel echo Default: %loglevel% echo Values: KMS Server Loglevel 1 / 2 call :FOOTER set /p port= Set port ^> set /p sai= Set sai ^> set /p sri=Set sri ^> set /p start=Set start type ^> s1ave77s scripts How to get it? s1ave77s scripts set /p hwid=Set Hardware ID ^> set /p kpop=Set Kill Process Status ^> set /p loglevel=Set LogLevel ^> goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::CLIENT EMULATOR LOOPS :SetClientData s1ave77s scripts How to get it? s1ave77s scripts cls set ver2=Office2010 call :HEADER "This option sets the adress and port on which the Client searches for response", " " echo: if /i "%host%"=="" set "host=127.0.0.2" if /i "%port%"=="" set "port=1688" if /i "%ver1%"=="" set "ver1=Windows8" if /i "%ver3%"=="" set "ver3=Office2013V5" echo Mode to run Client Emulator: call :FOOTER s1ave77s scripts How to dowload it? s1ave77s scripts CHOICE /C AM /M "[A]uto or [M]anual : " if %errorlevel%==1 goto :Repeat if %errorlevel%==2 goto :Manual :Manual call :FOOTER echo Default: %host% echo Values: IP Adress or Hostname echo: echo Default: %port% echo Values: Host Port s1ave77s scripts How to use it? s1ave77s scripts echo: echo Default: %ver1% echo Values: WindowsVista, Windows7 and Windows8 echo: echo Default: %ver3% echo Values: Office2013V4 and Office2013V5 call :FOOTER set /p host=Set host ^> set /p port=Set port ^> set /p ver1=Set Windows version ^> s1ave77s scripts PasteShr s1ave77s scripts set /p ver3=Set Office 2013 version ^> :Repeat cls call :HEADER "KMS Client Emulator at: [%host%] : [%port%]", " " echo Starting online test: %date% at: %time% echo: echo ---- KMS Host for: %ver1% ---------------- echo: %k% %port% %host% %ver1% echo: s1ave77s scripts How to get it for free? s1ave77s scripts echo ---- KMS Host for: %ver2% -------------- echo: %k% %port% %host% %ver2% echo: echo ---- KMS Host for: %ver3% ------------ echo: %k% %port% %host% %ver3% call :FOOTER CHOICE /C ARB /M " [A]gain, [R]epeat or [B]ack : " if %errorlevel%==1 goto :Repeat s1ave77s scripts PasteShr s1ave77s scripts if %errorlevel%==2 goto :SetClientData if %errorlevel%==3 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::STATUS CHECK LOOPS :CheckStatusWindows set "slp=SoftwareLicensingProduct" if %win% GEQ 9200 for /f %%A in ('cscript files\PID8.vbs') do set "productkey=%%A" s1ave77s scripts How to get it? s1ave77s scripts if %win% LSS 9200 for /f %%A in ('cscript files\PID7.vbs') do set "productkey=%%A" for /f "tokens=2 delims==" %%A in ('"wmic path %slp% where (Description LIKE '%%Windows%%') get KeyManagementServiceProductKeyID /format:list" ^| findstr /i 0000') do set "kmsepid=%%A" for /f "tokens=2 delims==" %%A in ('"wmic path %slp% where LicenseStatus='%status%' get Description /format:list /translate:NoComma" ^| findstr /i Windows') do set "windescription=%%A" for /f "tokens=2 delims==" %%A in ('"wmic path %slp% where LicenseStatus='%status%' get Name /format:list /translate:NoComma" ^| findstr /i Windows') do set "winname=%%A" for /f "tokens=2 delims==" %%A in ('"wmic path %slp% where (Description LIKE '%%Windows%%') get KeyManagementServicePort /format:list"') do if %%A geq 1 set "kmsport=%%A" for /f "tokens=2 delims==" %%A in ('"wmic path %slp% where (Description LIKE '%%Windows%%') get KeyManagementServiceMachine /format:list"') do if %%A geq 1 set "kmsIP=%%A" for /f "tokens=2 delims== " %%A in ('"wmic path %slp% where (Name LIKE '%%Windows%%') get GracePeriodRemaining /format:list"') do (set "grace1=%%A")&&(if %%A geq 1 goto:CheckNext) :CheckNext for /f "tokens=3 delims==: " %%G in ('"DISM /online /english /Get-CurrentEdition" ^| findstr /i Version') do set currentversion=%%G goto:eof s1ave77s scripts PasteShr s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CheckStatusOffice set "slp=SoftwareLicensingProduct" set "sls=SoftwareLicensingService" set "spp=SoftwareProtectionProduct" set "ospp=OfficeSoftwareProtectionProduct" set "osps=OfficeSoftwareProtectionService" for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where (Name LIKE '%%%~2%%') get LicenseStatus /format:list"') do if %%A geq 1 set "officestatus=%%A" if %win% GEQ 9200 if %~2 equ 15 for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where (Description LIKE '%%%~2%%') get RemainingAppReArmCount /format:list"') do set "orearm=%%A" s1ave77s scripts How to dowload it? s1ave77s scripts for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where (Name LIKE '%%%~2%%') get KeyManagementServiceProductKeyID /format:list" ^| findstr /i 0000') do if %%A geq 0 set "HostNa%~3=%%A" for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where LicenseStatus='%officestatus%' get Name /format:list /translate:NoComma" ^| findstr /i %~2') do set "NA%~3=%%A" for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where (Name LIKE '%%%~2%%') get KeyManagementServicePort /format:list"') do if %%A geq 1 set "KP%~3=%%A" for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where (Name LIKE '%%%~2%%') get KeyManagementServiceMachine /format:list"') do if %%A geq 1 set "KIP%~3=%%A" for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where (Name LIKE '%%%~2%%') get GracePeriodRemaining /format:list"') do if %%A geq 1 set "GraPe%~3=%%A" for /f "tokens=2 delims== " %%A in ('"wmic path %~1 where (Name LIKE '%%%~2%%') get PartialProductKey /format:list"') do if %%A geq 1 set "PaKey%~3=%%A" goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CheckStatusOthers s1ave77s scripts How to get it? s1ave77s scripts set "slp=SoftwareLicensingProduct" set "sls=SoftwareLicensingService" set "spp=SoftwareProtectionProduct" set "ospp=OfficeSoftwareProtectionProduct" set "osps=OfficeSoftwareProtectionService" for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where (Name LIKE '%%%~2%%') get LicenseStatus /format:list"') do if %%A geq 1 set "otherstatus=%%A" if %win% GEQ 9200 if %~2 equ 15 for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where (Name LIKE '%%%~2%%') get RemainingAppReArmCount /format:list"') do set "orearm=%%A" for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where (Name LIKE '%%%~2%%') get KeyManagementServiceProductKeyID /format:list" ^| findstr /i 0000') do if %%A geq 0 set "HostNa%~3=%%A" for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where LicenseStatus='%otherstatus%' get Name /format:list /translate:NoComma" ^| findstr /i %~2*') do set "NA%~3=%%A" for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where (Name LIKE '%%%~2%%') get KeyManagementServicePort /format:list"') do if %%A geq 1 set "KP%~3=%%A" s1ave77s scripts How to use it? s1ave77s scripts for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where (Name LIKE '%%%~2%%') get KeyManagementServiceMachine /format:list"') do if %%A geq 1 set "KIP%~3=%%A" for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where (Name LIKE '%%%~2%%') get GracePeriodRemaining /format:list"') do if %%A geq 1 set "GraPe%~3=%%A" for /f "tokens=2 delims== " %%A in ('"wmic path %~1 where (Name LIKE '%%%~2%%') get PartialProductKey /format:list"') do if %%A geq 1 set "PaKey%~3=%%A" goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::ACTIVATION LOOPS :AutoActivate s1ave77s scripts How to dowload it? s1ave77s scripts cls call :CheckSPPSVC call :ID if %win% lss 9200 set host=127.0.0.2 set "port=1688" call :HEADER "OS-Version: %ver% found %vera%", "ID: %id%" wmic path %sls% where version='%version%' call SetKeyManagementServiceMachine MachineName="%host%" >nul if %errorlevel% equ 0 echo Successfully changed IP to %host%. if %errorlevel% neq 0 echo Setting IP to %host% Failed. wmic path %sls% where version='%version%' call SetKeyManagementServicePort %port% >nul s1ave77s scripts How to dowload it? s1ave77s scripts if %errorlevel% equ 0 echo Successfully changed Port to %port%. & echo: if %errorlevel% neq 0 echo Setting Port to %port% Failed. wmic path %slp% where ID='%id%' call Activate >nul if %errorlevel% equ 0 echo: & echo Successfully activated: %ver% %vera% if %errorlevel% neq 0 echo Activation Failed. No Host available. call :FOOTER wmic path %sls% where version='%version%' call ClearKeyManagementServiceMachine >nul wmic path %sls% where version='%version%' call ClearKeyManagementServicePort >nul wmic path %sls% where version='%version%' call DisableKeyManagementServiceDnsPublishing 1 >nul wmic path %sls% where version='%version%' call DisableKeyManagementServiceHostCaching 1 >nul s1ave77s scripts PasteShr s1ave77s scripts timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :AutoKeyInstall pushd "%~dp0" cls call :HEADER "OS-Version: %ver% found %vera%", " " echo: call :KeyCheck s1ave77s scripts How to dowload it? s1ave77s scripts wmic path %sls% where version='%version%' call InstallProductKey ProductKey="%key%" >nul if %errorlevel% equ 0 echo Successfully installed Product Key & echo: & echo For: %ver% %vera% & echo: & echo KEY: %key% if %errorlevel% neq 0 echo Installing Product Key Failed. call :FOOTER timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :ActivateOnline cls s1ave77s scripts How to get it? s1ave77s scripts call :ID call :HEADER "OS-Version: %ver% found %vera%", "Activation-ID: %id%" echo: wmic path %slp% where ID='%id%' call Activate >nul if %errorlevel% equ 0 echo: & echo Successfully activated: %ver% %vera% if %errorlevel% neq 0 echo Activation Failed. call :FOOTER pause goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::OFFICE AUTO :AutoactivateOffice14 call :Officex64 14, 1 call :Othersx64 14, 1, Project, project call :Othersx64 14, 1, Visio, visio if not defined office14present if not defined project14present if not defined visio14present goto:eof cls call :HEADER "Office 2010 Professional Plus %vera% found", "in path: %officepath1%" s1ave77s scripts How to use it? s1ave77s scripts echo: set "port=1688" call :Office14Activate call :FOOTER timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :AutoactivateOffice1464 call :Officex86 14, 1 s1ave77s scripts How to use it? s1ave77s scripts call :Othersx86 14, 1, Project, project call :Othersx86 14, 1, Visio, visio if not defined office14present if not defined project14present if not defined visio14present goto:eof cls call :HEADER "Office 2010 Professional Plus x86 found", "in path: %officepath1%" echo: set "port=1688" call :Office14Activate call :FOOTER timeout /t 5 s1ave77s scripts How to dowload it? s1ave77s scripts goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :AutoactivateOffice15 call :Officex64 15, 2 call :Othersx64 15, 2, Project, project call :Othersx64 15, 2, Visio, visio if not defined office15present if not defined project15present if not defined visio15present goto:eof cls call :HEADER "Office 2013 Professional Plus %vera% found", "in path: %officepath2%" s1ave77s scripts How to use it? s1ave77s scripts echo: set "port=1688" call :Office15Activate "YC7DK-G2NP3-2QQC3-J6H88-GVGXT", 2013, 15 call :FOOTER timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :AutoactivateOffice1564 call :Officex86 15, 2 s1ave77s scripts How to dowload it? s1ave77s scripts call :Othersx86 15, 2, Project, project call :Othersx86 15, 2, Visio, visio if not defined office15present if not defined project15present if not defined visio15present goto:eof cls call :HEADER "Office 2013 Professional Plus x86 found", "in path: %officepath2%" echo: set "port=1688" call :Office15Activate "YC7DK-G2NP3-2QQC3-J6H88-GVGXT", 2013, 15 call :FOOTER timeout /t 5 s1ave77s scripts PasteShr s1ave77s scripts goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :AutoactivateOffice16 call :CheckC2ROx64 16, 3, Common, office call :CheckC2RPx64 16, 3, Project, project call :CheckC2RVx64 16, 3, Visio, visio if not defined office16present if not defined project16present if not defined visio16present goto:eof cls call :HEADER "Office 2016 Professional Plus %vera% found", "in path: %officepath3%" s1ave77s scripts How to dowload it? s1ave77s scripts echo: set "port=1688" call :Office15Activate "XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99", 2016, 16 call :FOOTER timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :AutoactivateOffice1664 call :CheckC2ROx86 16, 3, Common, office s1ave77s scripts How to get it? s1ave77s scripts call :CheckC2RPx86 16, 3, Project, project call :CheckC2RVx86 16, 3, Visio, visio if not defined office16present if not defined project16present if not defined visio16present goto:eof cls call :HEADER "Office 2016 Professional Plus x86 found", "in path: %officepath3%" echo: set "port=1688" call :Office15Activate "XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99", 2016, 16 call :FOOTER timeout /t 5 s1ave77s scripts How to get it? s1ave77s scripts goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::OFFICE MANUAL :Office14 call :Officex64 14, 1 call :Othersx64 14, 1, Project, project call :Othersx64 14, 1, Visio, visio if not defined office14present if not defined project14present if not defined visio14present goto:eof s1ave77s scripts How to dowload it? s1ave77s scripts cls call :HEADER "Office 2010 Professional Plus %vera% found", "in path: %officepath1%" call :OfficeInputMask if "%trigger%"=="2" goto:eof call :Office14Activate call :FOOTER timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to dowload it? s1ave77s scripts :Office1464 call :Officex86 14, 1 call :Othersx86 14, 1, Project, project call :Othersx86 14, 1, Visio, visio if not defined office14present if not defined project14present if not defined visio14present goto:eof cls call :HEADER "Office 2010 Professional Plus x86 found", "in path: %officepath1%" call :OfficeInputMask if "%trigger%"=="2" goto:eof call :Office14Activate s1ave77s scripts How to use it? s1ave77s scripts call :FOOTER timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Office15 call :Officex64 15, 2 call :Othersx64 15, 2, Project, project call :Othersx64 15, 2, Visio, visio if not defined office15present if not defined project15present if not defined visio15present goto:eof s1ave77s scripts How to use it? s1ave77s scripts cls call :HEADER "Office 2013 Professional Plus %vera% found", "in path: %officepath2%" call :OfficeInputMask if "%trigger%"=="2" goto:eof call :Office15Activate "YC7DK-G2NP3-2QQC3-J6H88-GVGXT", 2013, 15 call :FOOTER timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts PasteShr s1ave77s scripts :Office1564 call :Officex86 15, 2 call :Othersx86 15, 2, Project, project call :Othersx86 15, 2, Visio, visio if not defined office15present if not defined project15present if not defined visio15present goto:eof cls call :HEADER "Office 2013 Professional Plus x86 found", "in path: %officepath2%" call :OfficeInputMask if "%trigger%"=="2" goto:eof call :Office15Activate "YC7DK-G2NP3-2QQC3-J6H88-GVGXT", 2013, 15 s1ave77s scripts PasteShr s1ave77s scripts call :FOOTER timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Office16 call :CheckC2ROx64 16, 3, Common, office call :CheckC2RPx64 16, 3, Project, project call :CheckC2RVx64 16, 3, Visio, visio if not defined office16present if not defined project16present if not defined visio16present goto:eof s1ave77s scripts PasteShr s1ave77s scripts cls call :HEADER "Office 2016 Professional Plus %vera% found", "in path: %officepath3%" call :OfficeInputMask if "%trigger%"=="2" goto:eof call :Office15Activate "XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99", 2016, 16 call :FOOTER timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts :Office1664 call :CheckC2ROx86 16, 3, Common, office call :CheckC2RPx86 16, 3, Project, project call :CheckC2RVx86 16, 3, Visio, visio if not defined office16present if not defined project16present if not defined visio16present goto:eof cls call :HEADER "Office 2016 Professional Plus x86 found", "in path: %officepath3%" call :OfficeInputMask if "%trigger%"=="2" goto:eof call :Office15Activate "XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99", 2016, 16 s1ave77s scripts How to get it? s1ave77s scripts call :FOOTER timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::=============================================================================================================== ::C2R CHECK :CheckC2ROx64 set "officepath%~2=" set "%~416arch=" s1ave77s scripts How to use it? s1ave77s scripts set "office16present=" reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun" >nul 2>&1 if errorlevel 1 goto:eof reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Microsoft\Office\%~1.0\%~3\InstallRoot" >nul 2>&1 if errorlevel 1 goto:eof FOR /F "tokens=2*" %%a IN ('reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun" /v "InstallPath"') do set "officepathshort=%%b" >nul 2>&1 set "officepath%~2=%officepathshort%\Office%~1" FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs" /v "ActiveConfiguration"') do set "prodrelid=%%b" >nul 2>&1 if exist "%officepath3%\ospp.vbs" ( reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs\%prodrelid%\ProplusRetail.16" >nul 2>&1 s1ave77s scripts How to dowload it? s1ave77s scripts if "%errorlevel%"=="0" set "office16present=positive" ) if not exist "%officepath3%\ospp.vbs" ( reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs\%prodrelid%\ProfessionalRetail.16" >nul 2>&1 if "%errorlevel%"=="0" set "office16present=positive" ) FOR /F "tokens=2*" %%a IN ('reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Microsoft\Office\%~1.0\%~3\InstallRoot" /v "Path"') do set "%~416arch=x64" >nul 2>&1 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts PasteShr s1ave77s scripts :CheckC2RPx64 set "%~416arch=" set "project16present=" reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun" >nul 2>&1 if errorlevel 1 goto:eof reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Microsoft\Office\%~1.0\%~3\InstallRoot" >nul 2>&1 if errorlevel 1 goto:eof FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs" /v "ActiveConfiguration"') do set "prodrelid=%%b" >nul 2>&1 reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs\%prodrelid%\ProjectProRetail.16" >nul 2>&1 if "%errorlevel%"=="0" set "project16present=positive" s1ave77s scripts How to get it? s1ave77s scripts FOR /F "tokens=2*" %%a IN ('reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun" /v "InstallPath"') do set "officepathshort=%%b" >nul 2>&1 set "officepath%~2=%officepathshort%\Office%~1" FOR /F "tokens=2*" %%a IN ('reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Microsoft\Office\%~1.0\%~3\InstallRoot" /v "Path"') do set "%~416arch=x64" >nul 2>&1 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CheckC2RVx64 set "%~416arch=" set "visio16present=" reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun" >nul 2>&1 s1ave77s scripts How to use it? s1ave77s scripts if errorlevel 1 goto:eof reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Microsoft\Office\%~1.0\%~3\InstallRoot" >nul 2>&1 if errorlevel 1 goto:eof FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs" /v "ActiveConfiguration"') do set "prodrelid=%%b" >nul 2>&1 reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs\%prodrelid%\VisioProRetail.16" >nul 2>&1 if "%errorlevel%"=="0" set "visio16present=positive" FOR /F "tokens=2*" %%a IN ('reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun" /v "InstallPath"') do set "officepathshort=%%b" >nul 2>&1 set "officepath%~2=%officepathshort%\Office%~1" FOR /F "tokens=2*" %%a IN ('reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Microsoft\Office\%~1.0\%~3\InstallRoot" /v "Path"') do set "%~416arch=x64" >nul 2>&1 goto:eof s1ave77s scripts How to get it? s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CheckC2ROx86 set "officepath%~2=" set "%~416arch=" set "office16present=" reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun" >nul 2>&1 if errorlevel 1 goto:eof reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Wow6432Node\Microsoft\Office\%~1.0\%~3\InstallRoot" >nul 2>&1 if errorlevel 1 goto:eof s1ave77s scripts PasteShr s1ave77s scripts FOR /F "tokens=2*" %%a IN ('reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun" /v "InstallPath"') do set "officepathshort=%%b" >nul 2>&1 set "officepath%~2=%officepathshort%\Office%~1" FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs" /v "ActiveConfiguration"') do set "prodrelid=%%b" >nul 2>&1 if exist "%officepath3%\ospp.vbs" ( reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs\%prodrelid%\ProplusRetail.16" >nul 2>&1 if "%errorlevel%"=="0" set "office16present=positive" ) if not exist "%officepath3%\ospp.vbs" ( reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs\%prodrelid%\ProfessionalRetail.16" >nul 2>&1 if "%errorlevel%"=="0" set "office16present=positive" s1ave77s scripts How to get it? s1ave77s scripts ) FOR /F "tokens=2*" %%a IN ('reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Wow6432Node\Microsoft\Office\%~1.0\%~3\InstallRoot" /v "Path"') do set "%~416arch=x64" >nul 2>&1 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CheckC2RPx86 set "%~416arch=" set "project16present=" reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun" >nul 2>&1 if errorlevel 1 goto:eof s1ave77s scripts PasteShr s1ave77s scripts reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Wow6432Node\Microsoft\Office\%~1.0\%~3\InstallRoot" >nul 2>&1 if errorlevel 1 goto:eof FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs" /v "ActiveConfiguration"') do set "prodrelid=%%b" >nul 2>&1 reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs\%prodrelid%\ProjectProRetail.16" >nul 2>&1 if "%errorlevel%"=="0" set "project16present=positive" FOR /F "tokens=2*" %%a IN ('reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun" /v "InstallPath"') do set "officepathshort=%%b" >nul 2>&1 set "officepath%~2=%officepathshort%\Office%~1" FOR /F "tokens=2*" %%a IN ('reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Wow6432Node\Microsoft\Office\%~1.0\%~3\InstallRoot" /v "Path"') do set "%~416arch=x86" >nul 2>&1 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it for free? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CheckC2RVx86 set "%~416arch=" set "visio16present=" reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun" >nul 2>&1 if errorlevel 1 goto:eof reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Wow6432Node\Microsoft\Office\%~1.0\%~3\InstallRoot" >nul 2>&1 if errorlevel 1 goto:eof FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs" /v "ActiveConfiguration"') do set "prodrelid=%%b" >nul 2>&1 reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs\%prodrelid%\VisioProRetail.16" >nul 2>&1 s1ave77s scripts How to get it? s1ave77s scripts if "%errorlevel%"=="0" set "visio16present=positive" FOR /F "tokens=2*" %%a IN ('reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun" /v "InstallPath"') do set "officepathshort=%%b" >nul 2>&1 set "officepath%~2=%officepathshort%\Office%~1" FOR /F "tokens=2*" %%a IN ('reg query "HKLM\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Wow6432Node\Microsoft\Office\%~1.0\%~3\InstallRoot" /v "Path"') do set "%~416arch=x86" >nul 2>&1 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Officex64 set "officepath%~2=" set "office%~1present=" s1ave77s scripts How to get it for free? s1ave77s scripts set "visio%~1present=" set "project%~1present=" if %~1 equ 14 set "ostring=90140000-0011-0000-1000-0000000FF1CE" if %~1 equ 14 set "pstring=90140000-003B-0000-1000-0000000FF1CE" if %~1 equ 14 set "vstring=90140000-0057-0000-1000-0000000FF1CE" if %~1 equ 15 set "ostring=90150000-0011-0000-1000-0000000FF1CE" if %~1 equ 15 set "pstring=91150000-003B-0000-1000-0000000FF1CE" if %~1 equ 15 set "vstring=91150000-0051-0000-1000-0000000FF1CE" reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\%~1.0\Common\InstallRoot" >nul 2>&1 if errorlevel 1 goto:eof s1ave77s scripts PasteShr s1ave77s scripts reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\%~1.0\Common\Config\{%ostring%}" >nul 2>&1 if "%errorlevel%"=="0" set "office%~1present=positive" reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\%~1.0\Common\Config\{%pstring%}" >nul 2>&1 if "%errorlevel%"=="0" set "project%~1present=positive" reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\%~1.0\Common\Config\{%vstring%}" >nul 2>&1 if "%errorlevel%"=="0" set "visio%~1present=positive" FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\%~1.0\Common\InstallRoot" /v "Path"') do (SET officepath%~2=%%b) >nul 2>&1 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it for free? s1ave77s scripts :Officex86 set "officepath%~2=" set "office%~1present=" set "visio%~1present=" set "project%~1present=" if %~1 equ 14 set "ostring=90140000-0011-0000-0000-0000000FF1CE" if %~1 equ 14 set "pstring=90140000-003B-0000-0000-0000000FF1CE" if %~1 equ 14 set "vstring=90140000-0057-0000-0000-0000000FF1CE" if %~1 equ 15 set "ostring=90150000-0011-0000-0000-0000000FF1CE" if %~1 equ 15 set "pstring=91150000-003B-0000-0000-0000000FF1CE" s1ave77s scripts How to use it? s1ave77s scripts if %~1 equ 15 set "vstring=91150000-0051-0000-0000-0000000FF1CE" reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\%~1.0\Common\InstallRoot" >nul 2>&1 if errorlevel 1 goto:eof reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\%~1.0\Common\Config\{%ostring%}" >nul 2>&1 if "%errorlevel%"=="0" set "office%~1present=positive" reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\%~1.0\Common\Config\{%pstring%}" >nul 2>&1 if "%errorlevel%"=="0" set "project%~1present=positive" reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\%~1.0\Common\Config\{%vstring%}" >nul 2>&1 if "%errorlevel%"=="0" set "visio%~1present=positive" FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\%~1.0\Common\InstallRoot" /v "Path"') do (SET officepath%~2=%%b) >nul 2>&1 s1ave77s scripts How to get it? s1ave77s scripts goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Othersx86 set "%~4%~1path=" reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\%~1.0\%~3\InstallRoot" >nul 2>&1 if errorlevel 1 goto:eof FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\%~1.0\%~3\InstallRoot" /v "Path"') do (SET %~4%~1path=%%b) >nul 2>&1 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Othersx64 set "%~4%~1path=" reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\%~1.0\%~3\InstallRoot" >nul 2>&1 if errorlevel 1 goto:eof FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\%~1.0\%~3\InstallRoot" /v "Path"') do (SET %~4%~1path=%%b) >nul 2>&1 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :OfficeInputMask s1ave77s scripts How to dowload it? s1ave77s scripts echo: CHOICE /C AS /M " [A]ctivate or [S]kip ? : " if %errorlevel%==1 (set trigger=1)&&(goto :AOfurther) if %errorlevel%==2 (set trigger=2)&&(goto :eof) :AOfurther call :FOOTER if %win% lss 9200 if /i "%host%"=="" set "host=127.0.0.2" set "port=1688" echo Default: %host% echo Default: %port% s1ave77s scripts How to dowload it? s1ave77s scripts call :FOOTER set /p host=Set host ^> set /p port=Set port ^> cls call :HEADER "ACTIVATING ...", "" :AOInputEnd goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Office15Activate s1ave77s scripts How to use it? s1ave77s scripts set ospp=OfficeSoftwareProtectionProduct set osps=OfficeSoftwareProtectionService set slp=SoftwareLicensingProduct set sls=SoftwareLicensingService set spp=SoftwareProtectionProduct if %win% geq 9200 (call :OID "%slp%", %~3) else (call :OID "%ospp%", %~3) if %win% GEQ 9200 if defined office%~3present call :OfficeGVLKInstall "%sls%", "%~1" if %win% lss 9200 if defined office%~3present call :OfficeGVLKInstall "%osps%", "%~1" if %win% GEQ 9200 if defined visio15present call :OfficeGVLKInstall "%sls%", "C2FG9-N6J68-H8BTJ-BW3QX-RM3B3" if %win% lss 9200 if defined visio15present call :OfficeGVLKInstall "%osps%", "C2FG9-N6J68-H8BTJ-BW3QX-RM3B3" s1ave77s scripts How to get it for free? s1ave77s scripts if %win% GEQ 9200 if defined project15present call :OfficeGVLKInstall "%sls%", "FN8TT-7WMH6-2D4X9-M337T-2342K" if %win% lss 9200 if defined project15present call :OfficeGVLKInstall "%osps%", "FN8TT-7WMH6-2D4X9-M337T-2342K" if %win% GEQ 9200 if defined visio16present call :OfficeGVLKInstall "%sls%", "PD3PC-RHNGV-FXJ29-8JK7D-RJRJK" if %win% lss 9200 if defined visio16present call :OfficeGVLKInstall "%osps%", "PD3PC-RHNGV-FXJ29-8JK7D-RJRJK" if %win% GEQ 9200 if defined project16present call :OfficeGVLKInstall "%sls%", "YG9NW-3K39V-2T3HJ-93F3Q-G83KT" if %win% lss 9200 if defined project16present call :OfficeGVLKInstall "%osps%", "YG9NW-3K39V-2T3HJ-93F3Q-G83KT" call :FOOTER if %win% GEQ 9200 call :OfficeHostAndPort "%sls%" if %win% lss 9200 call :OfficeHostAndPort "%osps%" call :FOOTER s1ave77s scripts How to get it? s1ave77s scripts if %win% GEQ 9200 if defined office%~3present call :OfficeActLoop "%slp%", %~2 if %win% LSS 9200 if defined office%~3present call :OfficeActLoop "%ospp%", %~2 if %win% GEQ 9200 if defined visio15present call :OthersActLoop "%slp%", "e13ac10e-75d0-4aff-a0cd-764982cf541c", Visio, 20%~3 if %win% LSS 9200 if defined visio15present call :OthersActLoop "%ospp%", "e13ac10e-75d0-4aff-a0cd-764982cf541c", Visio, 20%~3 if %win% GEQ 9200 if defined project15present call :OthersActLoop "%slp%", "4a5d124a-e620-44ba-b6ff-658961b33b9a", Project, 20%~3 if %win% LSS 9200 if defined project15present call :OthersActLoop "%ospp%", "4a5d124a-e620-44ba-b6ff-658961b33b9a", Project, 20%~3 if %win% GEQ 9200 if defined visio16present call :OthersActLoop "%slp%", "6bf301c1-b94a-43e9-ba31-d494598c47fb", Visio, 20%~3 if %win% LSS 9200 if defined visio16present call :OthersActLoop "%ospp%", "6bf301c1-b94a-43e9-ba31-d494598c47fb", Visio, 20%~3 if %win% GEQ 9200 if defined project16present call :OthersActLoop "%slp%", "4f414197-0fc2-4c01-b68a-86cbb9ac254c", Project, 20%~3 if %win% LSS 9200 if defined project16present call :OthersActLoop "%ospp%", "4f414197-0fc2-4c01-b68a-86cbb9ac254c", Project, 20%~3 s1ave77s scripts How to dowload it? s1ave77s scripts if %win% GEQ 9200 call :OfficeActivateCleanup "%sls%", "%oid2%" if %win% LSS 9200 call :OfficeActivateCleanup "%osps%", "%oid2%" goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Office14Activate set ospp=OfficeSoftwareProtectionProduct set osps=OfficeSoftwareProtectionService call :OID "%ospp%", OfficeProPlus call :OfficeGVLKInstall "%osps%", "VYBBJ-TRJPB-QFQRF-QFT4D-H3GVB" s1ave77s scripts How to dowload it? s1ave77s scripts if defined project14present call :OfficeGVLKInstall "%osps%", "GX6F-PGV49-PGW3J-9BTGG-VHKC6" if defined visio14present call :OfficeGVLKInstall "%osps%", "7MCW8-VRQVK-G677T-PDJCM-Q8TCP" call :FOOTER call :OfficeHostAndPort "%osps%" call :OfficeActLoop "%ospp%", 2010 call :FOOTER if defined project14present call :OthersActLoop "%ospp%", "df133ff7-bf14-4f95-afe3-7b48e7e331ef", Project, 2010 if defined visio14present call :OthersActLoop "%ospp%", "e558389c-83c3-4b29-adfe-5e4d7f46c358", Visio, 2010 call :OfficeActivateCleanup "%osps%", "%oid1%" goto:eof s1ave77s scripts PasteShr s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :OfficeGVLKInstall wmic path %~1 where version='%version%' call InstallProductKey ProductKey="%~2" >nul 2>&1 if %errorlevel% equ 0 echo: & echo Successfully installed %~2. & echo: if %errorlevel% neq 0 echo: & echo Installing %~2 Failed. & echo: goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :OfficeHostAndPort s1ave77s scripts How to dowload it? s1ave77s scripts wmic path %~1 where version='%version%' call SetKeyManagementServiceMachine MachineName="%host%" >nul 2>&1 if %errorlevel% equ 0 echo: & echo Successfully changed IP to %host%. & echo: if %errorlevel% neq 0 echo: & echo Setting IP to %host% Failed. wmic path %~1 where version='%version%' call SetKeyManagementServicePort %port% >nul 2>&1 if %errorlevel% equ 0 echo: & echo Successfully changed Port to %port%. & echo: if %errorlevel% neq 0 echo: & echo Setting Port to %port% Failed. & echo: goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :OfficeActLoop s1ave77s scripts How to use it? s1ave77s scripts wmic path %~1 where ID='%oid%' call Activate >nul 2>&1 if %errorlevel% equ 0 echo: & echo Successfully activated: Office %~2 Professional Plus. if %errorlevel% neq 0 echo: & echo Activation Failed. goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :OthersActLoop wmic path %~1 where ID='%~2' call Activate >nul 2>&1 if %errorlevel% equ 0 echo: & echo Successfully activated: %~3 %~4 Professional Plus. if %errorlevel% neq 0 echo: & echo Activation Failed. s1ave77s scripts PasteShr s1ave77s scripts goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :OfficeActivateCleanup wmic path %~1 where ID='%~2' call ClearKeyManagementServiceMachine >nul 2>&1 wmic path %~1 where ID='%~2' call ClearKeyManagementServicePort >nul 2>&1 wmic path %~1 where ID='%~2' call DisableKeyManagementServiceDnsPublishing 1 >nul 2>&1 wmic path %~1 where ID='%~2 call DisableKeyManagementServiceHostCaching 1 >nul 2>&1 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to dowload it? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Office15ConversionLoop set slp=SoftwareLicensingProduct set sls=SoftwareLicensingService set spp=SoftwareProtectionProduct if defined office15present call :ConvertOffice15 proplus if defined project15present call :ConvertOffice15 project if defined visio15present call :ConvertOffice15 visio call :HEADER " INSTALLING GVLK" if defined office15present call :OfficeGVLKInstall "%sls%", "YC7DK-G2NP3-2QQC3-J6H88-GVGXT" s1ave77s scripts PasteShr s1ave77s scripts if defined project15present call :OfficeGVLKInstall "%sls%", "FN8TT-7WMH6-2D4X9-M337T-2342K" if defined visio15present call :OfficeGVLKInstall "%sls%", "C2FG9-N6J68-H8BTJ-BW3QX-RM3B3" call :FOOTER timeout /t 5 if %win% geq 9200 call :Uninstall15Auto goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Office16ConversionLoop set ospp=OfficeSoftwareProtectionProduct s1ave77s scripts How to use it? s1ave77s scripts set osps=OfficeSoftwareProtectionService set slp=SoftwareLicensingProduct set sls=SoftwareLicensingService set spp=SoftwareProtectionProduct if defined office16present call :ConvertOffice16 "%~1" if defined project16present call :ConvertProject16 "%~1" if defined visio16present call :ConvertVisio16 "%~1" if defined office16present call :ConvertGeneral16 "%~1" cls call :HEADER "INSTALLING GVLK" s1ave77s scripts How to get it? s1ave77s scripts if %win% GEQ 9200 if defined office16present call :OfficeGVLKInstall "%sls%", "XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99" if %win% LSS 9200 if defined office16present call :OfficeGVLKInstall "%osps%", "XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99" if %win% GEQ 9200 if defined project16present call :OfficeGVLKInstall "%sls%", "YG9NW-3K39V-2T3HJ-93F3Q-G83KT" if %win% LSS 9200 if defined project16present call :OfficeGVLKInstall "%osps%", "YG9NW-3K39V-2T3HJ-93F3Q-G83KT" if %win% GEQ 9200 if defined visio16present call :OfficeGVLKInstall "%sls%", "PD3PC-RHNGV-FXJ29-8JK7D-RJRJK" if %win% LSS 9200 if defined visio16present call :OfficeGVLKInstall "%osps%", "PD3PC-RHNGV-FXJ29-8JK7D-RJRJK" call :FOOTER timeout /t 5 if %win% geq 9200 call :Uninstall16Auto goto:eof s1ave77s scripts How to get it for free? s1ave77s scripts :================================================================================================================ ::=============================================================================================================== ::CONVERT 15 :Uninstall15Auto cls call :HEADER "UNINSTALLING RETAIL LICENSES" if defined office15present cscript "%windir%\system32\slmgr.vbs" /upk 1b686580-9fb1-4b88-bfba-eae7c0da31ad | findstr /i /c:":" >nul 2>&1 if "%errorlevel%"=="1" (echo Successfully uninstalled OfficeProPlusR_Grace)&&(echo:) if defined office15present cscript "%windir%\system32\slmgr.vbs" /upk db56dec3-34f2-4bc5-a7b9-ecc3cc51c12a | findstr /i /c:":" >nul 2>&1 if "%errorlevel%"=="1" (echo Successfully uninstalled OfficeProPlusR_Trial)&&(echo:) s1ave77s scripts How to dowload it? s1ave77s scripts if defined project15present cscript "%windir%\system32\slmgr.vbs" /upk 41937580-5ddd-4806-9089-5266d567219f | findstr /i /c:":" >nul 2>&1 if "%errorlevel%"=="1" (echo Successfully uninstalled OfficeProjectProR_Trial)&&(echo:) if defined project15present cscript "%windir%\system32\slmgr.vbs" /upk ae7b1e26-3aee-4fe3-9c5b-88f05e36cd34 | findstr /i /c:":" >nul 2>&1 if "%errorlevel%"=="1" (echo Successfully uninstalled OfficeProjectProR_Grace)&&(echo:) if defined visio15present cscript "%windir%\system32\slmgr.vbs" /upk 024ea285-2685-48bc-87ef-79b48cc8c027 | findstr /i /c:":" >nul 2>&1 if "%errorlevel%"=="1" (echo Successfully uninstalled OfficeVisioProR_Grace)&&(echo:) if defined visio15present cscript "%windir%\system32\slmgr.vbs" /upk f35e39c1-a41f-47c9-a204-2ca3c4b13548 | findstr /i /c:":" >nul 2>&1 if "%errorlevel%"=="1" (echo Successfully uninstalled OfficeVisioProR_Trial)&&(echo:) call :FOOTER goto:eof s1ave77s scripts How to get it? s1ave77s scripts :================================================================================================================ ::=============================================================================================================== ::CONVERT 16 :Uninstall16Auto cls call :HEADER "UNINSTALLING RETAIL LICENSES" if defined office16present cscript "%windir%\system32\slmgr.vbs" /upk 7a0560c5-21ed-4518-ad41-b7f870b9fd1a | findstr /i /c:":" >nul 2>&1 if "%errorlevel%"=="1" (echo Successfully uninstalled Office16ProfessionalR_Grace)&&(echo:) if defined office16present cscript "%windir%\system32\slmgr.vbs" /upk 39a1be8c-9e7f-4a75-81f4-21cfac7cbecb | findstr /i /c:":" >nul 2>&1 if "%errorlevel%"=="1" (echo Successfully uninstalled Office16ProfessionalR_Trial)&&(echo:) s1ave77s scripts How to get it? s1ave77s scripts if defined office16present cscript "%windir%\system32\slmgr.vbs" /upk 70d9ceb6-6dfa-4da4-b413-18c1c3c76e2e | findstr /i /c:":" >nul 2>&1 if "%errorlevel%"=="1" (echo Successfully uninstalled Office16ProPlusR_Grace)&&(echo:) if defined office16present cscript "%windir%\system32\slmgr.vbs" /upk c8ce6adc-ede7-4ce2-8e7b-c49f462ab8c3 | findstr /i /c:":" >nul 2>&1 if "%errorlevel%"=="1" (echo Successfully uninstalled Office16ProPlusR_Trial)&&(echo:) if defined project16present cscript "%windir%\system32\slmgr.vbs" /upk aeedf8f7-8832-41b1-a9c8-13f2991a371c | findstr /i /c:":" >nul 2>&1 if "%errorlevel%"=="1" (echo Successfully uninstalled Office16ProjectProR_Trial)&&(echo:) if defined project16present cscript "%windir%\system32\slmgr.vbs" /upk ca5b3eea-c055-4acf-bc78-187db21c7db5 | findstr /i /c:":" >nul 2>&1 if "%errorlevel%"=="1" (echo Successfully uninstalled Office16ProjectProR_Grace)&&(echo:) if defined visio16present cscript "%windir%\system32\slmgr.vbs" /upk 5821ec16-77a9-4404-99c8-2756dc6d4c3c | findstr /i /c:":" >nul 2>&1 if "%errorlevel%"=="1" (echo Successfully uninstalled Office16VisioProR_Grace&&(echo:) s1ave77s scripts How to dowload it? s1ave77s scripts if defined visio16present cscript "%windir%\system32\slmgr.vbs" /upk a17f9ed0-c3d4-4873-b3b8-d7e049b459ec | findstr /i /c:":" >nul 2>&1 if "%errorlevel%"=="1" (echo Successfully uninstalled Office16VisioProR_Trial)&&(echo:) call :FOOTER goto:eof :================================================================================================================ ::=============================================================================================================== ::CONVERT 15 :ConvertOffice15 pushd %~dp0 for /r "files\officefixes\15\%~1" %%x in (*.xrm-ms) do cscript "%windir%\system32\slmgr.vbs" /ilc "%%x" s1ave77s scripts How to get it for free? s1ave77s scripts call :HEADER "REGISTRATING" reg import "files\officefixes\15\%~1\%~1.reg" echo: goto:eof :================================================================================================================ ::=============================================================================================================== ::CONVERT 16 :ConvertOffice16 cls call :HEADER "Office 2016 Professional Plus x86 found", "" s1ave77s scripts How to use it? s1ave77s scripts cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\ProPlusVL_KMS_Client-ppd.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\ProPlusVL_KMS_Client-ul.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\ProPlusVL_KMS_Client-ul-oob.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\ProPlusVL_MAK-pl.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\ProPlusVL_MAK-ppd.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\ProPlusVL_MAK-ul-oob.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\ProPlusVL_MAK-ul-phn.xrm-ms" call :FOOTER timeout /t 3 goto:eof s1ave77s scripts How to dowload it? s1ave77s scripts ::=============================================================================================================== :ConvertProject16 cls call :HEADER "Project 2016 Professional Plus x86 found", "" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\ProjectProVL_KMS_Client-ppd.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\ProjectProVL_KMS_Client-ul-oob.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\ProjectProVL_KMS_Client-ul.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\ProjectProVL_MAK-pl.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\ProjectProVL_MAK-ppd.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\ProjectProVL_MAK-ul-oob.xrm-ms" s1ave77s scripts How to get it? s1ave77s scripts cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\ProjectProVL_MAK-ul-phn.xrm-ms" call :FOOTER timeout /t 3 goto:eof ::=============================================================================================================== :ConvertVisio16 cls call :HEADER "Visio 2016 Professional Plus x86 found", "" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\VisioProVL_KMS_Client-ppd.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\VisioProVL_KMS_Client-ul-oob.xrm-ms" s1ave77s scripts How to dowload it? s1ave77s scripts cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\VisioProVL_KMS_Client-ul.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\VisioProVL_MAK-pl.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\VisioProVL_MAK-ppd.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\VisioProVL_MAK-ul-oob.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\VisioProVL_MAK-ul-phn.xrm-ms" call :FOOTER timeout /t 3 goto:eof ::=============================================================================================================== :ConvertGeneral16 s1ave77s scripts How to use it? s1ave77s scripts cls call :HEADER "Office 2016 Professional Plus x86 found", "" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\client-issuance-bridge-office.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\client-issuance-root.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\client-issuance-root-bridge-test.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\client-issuance-stil.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\client-issuance-ul.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\client-issuance-ul-oob.xrm-ms" cscript "%windir%\system32\slmgr.vbs" /ilc "%~1\Microsoft Office\root\Licenses16\pkeyconfig-office.xrm-ms" call :FOOTER s1ave77s scripts PasteShr s1ave77s scripts timeout /t 3 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :TaskCreate SCHTASKS /Create /TN "Reactivate Service DAILY" /TR "%windir%\%name%\reactivate.cmd" /SC DAILY /MO 1 /RU SYSTEM /RL Highest /F SCHTASKS /Create /TN "Reactivate Service ONLOGON" /TR "%windir%\%name%\reactivate.cmd" /SC ONLOGON /RU SYSTEM /RL Highest /F SCHTASKS /Create /TN "Reactivate Service ONSTART" /TR "%windir%\%name%\reactivate.cmd" /SC ONSTART /RU SYSTEM /RL Highest /F goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :WriteA set ospp=OfficeSoftwareProtectionProduct set osps=OfficeSoftwareProtectionService set slp=SoftwareLicensingProduct set sls=SoftwareLicensingService >%windir%\%name%\reactivate.cmd ( echo @echo off echo ::------------------------------------------------------------------------------- echo :: Code by s1ave77 s1ave77s scripts How to get it for free? s1ave77s scripts echo :: Re-activation Task script created: %date% at %time% echo ::------------------------------------------------------------------------------- echo ::HOST AND PORT SET if exist "%SystemRoot%\%name%\%name%.exe" echo start /min cmd /c "%windir%\KMSServer\KMSServer.exe" echo wmic path %sls% where version='%version%' call SetKeyManagementServiceMachine MachineName="%host%" ^>nul echo wmic path %sls% where version='%version%' call SetKeyManagementServicePort %port% ^>nul ) goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to use it? s1ave77s scripts :WriteWindows call :ID >>%windir%\%name%\reactivate.cmd ( echo ::------------------------------------------------------------------------------- echo ::WINDOWS ACTIVATION echo wmic path %slp% where ID='%id%' call Activate ^>nul ) goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it for free? s1ave77s scripts :WriteOffice14 if defined office14present call :OID "%ospp%", OfficeProPlus >>"%windir%\%name%\reactivate.cmd" ( echo ::------------------------------------------------------------------------------- echo ::OFFICE 14 ACTIVATION if defined office14present echo wmic path %ospp% where ID='%oid%' call Activate ^>nul ) goto:WriteOthers :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to use it? s1ave77s scripts :WriteOffice15 if %win% GEQ 9200 if defined office15present call :OID "%slp%", OfficeProPlus if %win% LSS 9200 if defined office15present call :OID "%ospp%", OfficeProPlus >>"%windir%\%name%\reactivate.cmd" ( echo ::------------------------------------------------------------------------------- echo ::OFFICE 15 ACTIVATION if defined office15present if %win% GEQ 9200 echo wmic path %slp% where ID='%oid%' call Activate ^>nul if defined office15present if %win% LSS 9200 echo wmic path %ospp% where ID='%oid%' call Activate ^>nul ) goto:WriteOthers s1ave77s scripts PasteShr s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :WriteOffice16 if defined office16present if %win% GEQ 9200 call :OID "%slp%", Office16ProPlus if defined office16present if %win% LSS 9200 call :OID "%ospp%", Office16ProPlus >>"%windir%\%name%\reactivate.cmd" ( echo ::------------------------------------------------------------------------------- echo ::OFFICE 16 ACTIVATION if defined office16present if %win% GEQ 9200 echo wmic path %slp% where ID='%oid%' call Activate ^>nul if defined office16present if %win% LSS 9200 echo wmic path %ospp% where ID='%oid%' call Activate ^>nul s1ave77s scripts How to use it? s1ave77s scripts ) goto:WriteOthers :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :WriteOthers set "p14=df133ff7-bf14-4f95-afe3-7b48e7e331ef" set "v14=e558389c-83c3-4b29-adfe-5e4d7f46c358" set "p15=4a5d124a-e620-44ba-b6ff-658961b33b9a" set "v15=e13ac10e-75d0-4aff-a0cd-764982cf541c" set "p16=4f414197-0fc2-4c01-b68a-86cbb9ac254c" s1ave77s scripts How to dowload it? s1ave77s scripts set "v16=6bf301c1-b94a-43e9-ba31-d494598c47fb" >>"%windir%\%name%\reactivate.cmd" ( echo ::------------------------------------------------------------------------------- echo ::PROJECT AND VISIO ACTIVATION if %win% GEQ 9200 if defined project14present echo wmic path %slp% where ID='%p14%' call Activate ^>nul if %win% LSS 9200 if defined project14present echo wmic path %ospp% where ID='%p14%' call Activate ^>nul if %win% GEQ 9200 if defined project15present echo wmic path %slp% where ID='%p15%' call Activate ^>nul if %win% LSS 9200 if defined project15present echo wmic path %ospp% where ID='%p15%' call Activate ^>nul if %win% GEQ 9200 if defined project16present echo wmic path %slp% where ID='%p16%' call Activate ^>nul if %win% LSS 9200 if defined project16present echo wmic path %ospp% where ID='%p16%' call Activate ^>nul s1ave77s scripts How to use it? s1ave77s scripts if %win% GEQ 9200 if defined visio14present echo wmic path %slp% where ID='%v14%' call Activate ^>nul if %win% LSS 9200 if defined visio14present echo wmic path %ospp% where ID='%v14%' call Activate ^>nul if %win% GEQ 9200 if defined visio15present echo wmic path %slp% where ID='%v15%' call Activate ^>nul if %win% LSS 9200 if defined visio15present echo wmic path %ospp% where ID='%v15%' call Activate ^>nul if %win% GEQ 9200 if defined visio16present echo wmic path %slp% where ID='%v16%' call Activate ^>nul if %win% LSS 9200 if defined visio16present echo wmic path %ospp% where ID='%v16%' call Activate ^>nul ) goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it for free? s1ave77s scripts :WriteOthersCleanup >>"%windir%\%name%\reactivate.cmd" ( echo ::------------------------------------------------------------------------------- echo ::HOST AND PORT CLEANSING echo wmic path %sls% where version='%version%' call ClearKeyManagementServiceMachine ^>nul 2^>^&1 echo wmic path %sls% where version='%version%' call ClearKeyManagementServicePort ^>nul 2^>^&1 echo wmic path %sls% where version='%version%' call DisableKeyManagementServiceDnsPublishing 1 ^>nul 2^>^&1 echo wmic path %sls% where version='%version%' call DisableKeyManagementServiceHostCaching 1 ^>nul 2^>^&1 ) goto:eof s1ave77s scripts How to get it for free? s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :WriteZ >>"%windir%\%name%\reactivate.cmd" ( echo ::------------------------------------------------------------------------------- if exist "%SystemRoot%\%name%\%name%.exe" echo TASKKILL /F /IM "%name%.exe" ^>nul echo exit ) goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to dowload it? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::SERVICE AUTO INSTALLS :QADAutoInstall if not %win% GEQ 9200 call :NotSupported if not %win% GEQ 9200 goto:eof cls call :HEADER "This option installs the Hook and Server by QAD", " " echo: set Kms1Name=KMS-QADhooker s1ave77s scripts How to get it for free? s1ave77s scripts if exist "%SystemRoot%\System32\%Kms1Name%.*" call :FoundHAuto if exist "%SystemRoot%\System32\%Kms1Name%.*" goto:eof call "files\hook\install.cmd" pushd "%~dp0" goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :QADAutoUnInstall cls call :HEADER "This option uninstalls the Hook and Server by QAD", " " s1ave77s scripts How to get it? s1ave77s scripts echo: set Kms1Name=KMS-QADhooker if not exist "%SystemRoot%\System32\%Kms1Name1%.*" call :NotFoundHAuto if not exist "%SystemRoot%\System32\%Kms1Name%.*" goto:eof call "files\hook\uninstall.cmd" pushd "%~dp0" goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :FoundHAuto s1ave77s scripts How to use it? s1ave77s scripts echo %Kms1Name% is already installed. call :FOOTER timeout /t 3 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :NotFoundHAuto echo %Kms1Name% not installed. call :FOOTER timeout /t 3 s1ave77s scripts How to get it for free? s1ave77s scripts goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :AutoSppExtComObjPatch cls call :HEADER "This option installs the SppExtComObjPatcher Hook", " " echo: wmic path OfficeSoftwareProtectionService get version >nul 2>&1 || set OsppHook=0 if %win% GEQ 9200 ( s1ave77s scripts PasteShr s1ave77s scripts set OSType=Win8 ) else if %win% GEQ 7600 ( set OSType=Win7 ) else ( goto :UnsupportedVersion ) echo. echo Microsoft (R) Windows Software Licensing. echo Copyright (C) Microsoft Corporation. All rights reserved. call :FOOTER s1ave77s scripts PasteShr s1ave77s scripts IF EXIST "%SystemRoot%\system32\SppExtComObjPatcher.exe" goto :uninst :inst echo SppExtComObjPatcher will be installed on your computer. call :FOOTER :run1 call :StopService sppsvc if not "%OsppHook%"=="0" call :StopService osppsvc IF ERRORLEVEL 1 echo status: Error echo. echo Copying Files... s1ave77s scripts How to use it? s1ave77s scripts copy /y "files\SppExtComObjPatcher\%vera%\SppExtComObjPatcher.exe" "%SystemRoot%\system32" >nul echo status: OK IF ERRORLEVEL 1 echo status: Error copy /y "files\SppExtComObjPatcher\%vera%\SppExtComObjHook.dll" "%SystemRoot%\system32" >nul echo status: OK IF ERRORLEVEL 1 echo status: Error echo Creating Registry Entries... if %OSType% EQU Win8 ( echo Creating Registry Entry for SppExtComObj.exe of Windows 8/8.1 call :CreateIFEOEntry "SppExtComObj.exe" s1ave77s scripts PasteShr s1ave77s scripts ) if %OSType% EQU Win7 ( echo Creating Registry Entry for sppsvc.exe of Windows 7 call :CreateIFEOEntry "sppsvc.exe" ) if not "%OsppHook%"=="0" ( echo Creating Registry Entry for osppsvc.exe of Office 2010/2013 call :CreateIFEOEntry "osppsvc.exe" ) goto :end s1ave77s scripts How to use it? s1ave77s scripts :uninst echo SppExtComObjPatcher will be removed from your computer. call :FOOTER :run2 call :StopService2 sppsvc if not "%OsppHook%"=="0" call :StopService2 osppsvc echo Removing Installed Files... if exist "%SystemRoot%\system32\SppExtComObjPatcher.exe" ( echo SppExtComObjPatcher.exe Found. Removing... del /f /q "%SystemRoot%\system32\SppExtComObjPatcher.exe" s1ave77s scripts PasteShr s1ave77s scripts ) if exist "%SystemRoot%\system32\SppExtComObjHook.dll" ( echo SppExtComObjHook.dll Found. Removing... del /f /q "%SystemRoot%\system32\SppExtComObjHook.dll" ) echo Removing Registry Entries... if %OSType% EQU Win8 ( echo Removing Registry Entry for SppExtComObj.exe of Windows 8/8.1 call :RemoveIFEOEntry "SppExtComObj.exe" ) s1ave77s scripts PasteShr s1ave77s scripts if %OSType% EQU Win7 ( echo Removing Registry Entry for sppsvc.exe of Windows 7 call :RemoveIFEOEntry "sppsvc.exe" ) if not "%OsppHook%"=="0" ( echo Removing Registry Entry for osppsvc.exe of Office 2010/2013 call :RemoveIFEOEntry "osppsvc.exe" ) schtasks /delete /f /tn "\Microsoft\Windows\SoftwareProtectionPlatform\SvcTrigger" >nul 2>&1 goto :end s1ave77s scripts How to dowload it? s1ave77s scripts :CreateIFEOEntry reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "Debugger" /t REG_SZ /d "SppExtComObjPatcher.exe" >nul 2>&1 reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "KMS_Emulation" /t REG_DWORD /d %KMS_Emulation% >nul 2>&1 reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "KMS_ActivationInterval" /t REG_DWORD /d %KMS_ActivationInterval% >nul 2>&1 reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "KMS_RenewalInterval" /t REG_DWORD /d %KMS_RenewalInterval% >nul 2>&1 reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "Office2013" /t REG_SZ /d "%Office2013%" >nul 2>&1 if %~1 NEQ osppsvc.exe ( reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "Windows" /t REG_SZ /d "%Windows%" >nul 2>&1 ) if %~1 EQU osppsvc.exe ( s1ave77s scripts How to get it? s1ave77s scripts reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "Office2010" /t REG_SZ /d "%Office2010%" >nul 2>&1 ) goto:eof :RemoveIFEOEntry if %~1 NEQ osppsvc.exe ( reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f >nul 2>&1 ) if %~1 EQU osppsvc.exe ( reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "Debugger" >nul 2>&1 reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "KMS_Emulation" >nul 2>&1 s1ave77s scripts PasteShr s1ave77s scripts reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "KMS_ActivationInterval" >nul 2>&1 reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "KMS_RenewalInterval" >nul 2>&1 reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "Office2010" >nul 2>&1 reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%~1" /f /v "Office2013" >nul 2>&1 ) goto:eof :StopService sc query %~1 | find /i "STOPPED" >nul 2>&1 if not "%ERRORLEVEL%"=="0" net stop %~1 /y >nul 2>&1 sc query %~1 | find /i "STOPPED" >nul 2>&1 s1ave77s scripts How to get it? s1ave77s scripts if not "%ERRORLEVEL%"=="0" sc stop %~1 >nul 2>&1 goto:eof :StopService2 sc query %~1 | find /i "RUNNING" >nul 2>&1 if "%ERRORLEVEL%"=="0" net stop %~1 /y >nul 2>&1 sc query %~1 | find /i "RUNNING" >nul 2>&1 if "%ERRORLEVEL%"=="0" sc stop %~1 >nul 2>&1 goto:eof :UnsupportedVersion echo ==== ERROR ==== s1ave77s scripts How to dowload it? s1ave77s scripts echo Unsupported OS version Detected. echo This project is only supported for Windows 7/8/8.1 call :FOOTER timeout /t 5 goto:eof :end echo. echo Done. call :FOOTER timeout /t 5 s1ave77s scripts How to dowload it? s1ave77s scripts goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CodyInstallAuto cls call :HEADER "This option installs the KMS Server Service by CODYQX4", " " if %win% lss 9200 set host=127.0.0.2 set sai=43200 set sri=43200 set start=demand s1ave77s scripts How to get it? s1ave77s scripts set hwid=364F463A8863D35F set kpop=1 set name=KMSServer set kpop=1 set loglevel=1 call :FOOTER call :RegCody call :RegOffice set pid=Random call :Initiate s1ave77s scripts How to get it? s1ave77s scripts sc create %name% binPath= "%windir%\%name%\%name%.exe" type= own error= normal obj= "NT AUTHORITY\NetworkService" start= demand DisplayName= %name% call :FOOTER net start %name% >nul if %errorlevel% equ 0 echo Successfully started %name%. if %errorlevel% neq 0 echo Starting %name% Failed. call :FOOTER timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts :CodyUnInstallAuto set "hSpp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" set "hOspp=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" set "hService=HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\KMS" set "hService2=HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\%name%" if /i "%name%"=="" set name=KMSServer if /i "%port%"=="" set "port=1688" cls call :HEADER "This option uninstalls KMS Server Service", " " sc query %name% >nul s1ave77s scripts PasteShr s1ave77s scripts if errorlevel 1 goto :NotInstalledA net stop %name% >nul if %errorlevel% equ 0 echo Successfully stopped %name%. if %errorlevel% neq 0 echo Stopping %name% Failed. sc delete %name% reg delete %hService% /f >nul 2>&1 reg delete %hService2% /f >nul 2>&1 call :FOOTER call :UnRegOffice SchTasks /Delete /TN "Reactivate Service MINUTE" /F >nul 2>&1 s1ave77s scripts How to dowload it? s1ave77s scripts SchTasks /Delete /TN "Reactivate Service HOURLY" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Service DAILY" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Service WEEKLY" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Service MONTHLY" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Service ONSTART" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Service ONLOGON" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Instant MINUTE" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Instant HOURLY" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Instant DAILY" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Instant WEEKLY" /F >nul 2>&1 s1ave77s scripts How to dowload it? s1ave77s scripts SchTasks /Delete /TN "Reactivate Instant MONTHLY" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Instant ONSTART" /F >nul 2>&1 SchTasks /Delete /TN "Reactivate Instant ONLOGON" /F >nul 2>&1 netsh advfirewall firewall delete rule name="%name% %port%" if exist "%windir%\%name%" rd /s /q "%windir%\%name%" >nul call :FOOTER timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts PasteShr s1ave77s scripts :NotInstalledA echo: echo ...Service is not installed. echo: echo: timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CodyEmuAutoInstall s1ave77s scripts How to get it for free? s1ave77s scripts pushd %~dp0 set sai=120 set sri=10080 set start=demand set hwid=364F463A8863D35F set kpop=1 set name=KMSServer set kpop=1 set loglevel=1 if exist "%windir%\KMSServer\KMSServer.exe" del /s /q "%windir%\KMSServer\KMSServer.exe" >nul s1ave77s scripts How to get it for free? s1ave77s scripts xcopy "files\KMS Server %vera%.exe" "%windir%\KMSServer\" /Q /Y >nul ren "%windir%\KMSServer\KMS Server %vera%.exe" "KMSServer.exe" netsh advfirewall firewall add rule name="KMS Server Emulator" dir=in program="%windir%\KMSServer\KMSServer.exe" localport=%port% protocol=TCP action=allow remoteip=any netsh advfirewall firewall add rule name="KMS Server Emulator" dir=in program="%windir%\KMSServer\KMSServer.exe" localport=%port% protocol=TCP action=allow remoteip=localsubnet call:RegOffice call:RegCODY start /min cmd /c "%windir%\KMSServer\KMSServer.exe" goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts :CodyEmuAutoUninstall set "port=1688" set pid=RandomKMSPID set sai=120 set sri=10080 netsh advfirewall firewall delete rule name="KMS Server Emulator" call:UnRegOffice call:UnRegCODY if exist "%windir%\KMSServer\" rd /s /q "%windir%\KMSServer\" >nul goto:eof s1ave77s scripts How to dowload it? s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :KeyCheck cls call :HEADER "This option sets the Client Key", "FOR %ver% %vera%" echo: if "%ver%"=="Windows Vista (TM) Business" (set key=YFKBB-PQJJV-G996G-VWGXY-2V3X8) if "%ver%"=="Windows 7 Professional" (set key=FJ82H-XT6CR-J8D7P-XQJJ2-GPDD4) if "%ver%"=="Windows 7 Professional N" (set key=MRPKT-YTG23-K7D7T-X2JMM-QY7MG) s1ave77s scripts How to dowload it? s1ave77s scripts if "%ver%"=="Windows 7 Professional E" (set key=W82YF-2Q76Y-63HXB-FGJG9-GF7QX) if "%ver%"=="Windows 7 Enterprise" (set key=33PXH-7Y6KF-2VJC9-XBBR8-HVTHH) if "%ver%"=="Windows 7 Enterprise N" (set key=YDRBP-3D83W-TY26F-D46B2-XCKRJ) if "%ver%"=="Windows 7 Enterprise E" (set key=C29WB-22CC8-VJ326-GHFJW-H9DH4) if "%ver%"=="Windows Embedded Standard" (set key=F94KQ-WJBTW-YR6MK-K7TGX-69F4C) if "%ver%"=="Windows Web Server 2008 R2" (set key=6TPJF-RBVHG-WBW2R-86QPH-6RTM4) if "%ver%"=="Windows Server 2008 R2 HPC" (set key=6TPJF-TT8MH-CG224-D3D7Q-498W2-9QCTX) if "%ver%"=="Windows Server 2008 R2 Standard" (set key=NG4HW-YC6KT-GKW9T-YTKYR-T4X34-R7VHC) if "%ver%"=="Windows Server 2008 R2 Enterprise" (set key=489J6-VHDMP-X63PK-3K798-CPX3Y) if "%ver%"=="Windows Server 2008 R2 Datacenter" (set key=74YFP-3QFB3-KQT8W-PMXWJ-7M648) s1ave77s scripts PasteShr s1ave77s scripts if "%ver%"=="Windows Server 2008 R2 for Itanium-based" (set key=GT63C-RJFQ3-4GMB6-BRFB9-CB83V) if "%ver%"=="Windows 8" (set key=BN3D2-R7TKB-3YPBD-8DRP2-27GG4) if "%ver%"=="Windows 8 N" (set key=8N2M2-HWPGY-7PGT9-HGDD8-GVGGY) if "%ver%"=="Windows 8 Pro" (set key=NG4HW-VH26C-733KW-K6F98-J8CK4) if "%ver%"=="Windows 8 Pro with Media Center" (set key=GNBB8-YVD74-QJHX6-27H4K-8QHDG) if "%ver%"=="Windows 8 Pro N" (set key=XCVCF-2NXM9-723PB-MHCB7-2RYQQ) if "%ver%"=="Windows 8 Enterprise" (set key=32JNW-9KQ84-P47T8-D8GGY-CWCK7) if "%ver%"=="Windows 8 Enterprise N" (set key=JMNMF-RHW7P-DMY6X-RF3DR-X2BQT) if "%ver%"=="Windows Server 2012 Standard" (set key=XC9B7-NBPP2-83J2H-RHMBY-92BT4) if "%ver%"=="Windows Server 2012 Standard Core" (set key=XC9B7-NBPP2-83J2H-RHMBY-92BT4) s1ave77s scripts How to get it for free? s1ave77s scripts if "%ver%"=="Windows Server 2012 Datacenter" (set key=48HP8-DN98B-MYWDG-T2DCC-8W83P) if "%ver%"=="Windows Server 2012 Datacenter Core" (set key=48HP8-DN98B-MYWDG-T2DCC-8W83P) if "%ver%"=="Windows 8.1" (set key=M9Q9P-WNJJT-6PXPY-DWX8H-6XWKK) if "%ver%"=="Windows 8.1 Single Language" (set key=BB6NG-PQ82V-VRDPW-8XVD2-V8P66) if "%ver%"=="Windows 8.1 Country Specific" (set key=NCTT7-2RGK8-WMHRF-RY7YQ-JTXG3) if "%ver%"=="Windows 8.1 with Bing" (set key=RJQCD-NFWFV-GT876-2T9JY-8FF29) if "%ver%"=="Windows 8.1 with Bing N" (set key=Q6HTR-N24GM-PMJFP-69CD8-2GXKR) if "%ver%"=="Windows 8.1 with Bing Single Language" (set key=KF37N-VDV38-GRRTV-XH8X6-6F3BB) if "%ver%"=="Windows 8.1 with Bing Country Specific" (set key=R962J-37N87-9VVK2-WJ74P-XTMHR) if "%ver%"=="Windows 8.1 N" (set key=7B9N3-D94CG-YTVHR-QBPX3-RJP64) s1ave77s scripts How to dowload it? s1ave77s scripts if "%ver%"=="Windows 8.1 Pro" (set key=GCRJD-8NW9H-F2CDX-CCM8D-9D6T9) if "%ver%"=="Windows 8.1 Pro Student" (set key=NQHYK-WGWJH-DQJT7-XB68G-BPYG9) if "%ver%"=="Windows 8.1 Pro N" (set key=HMCNV-VVBFX-7HMBH-CTY9B-B4FXY) if "%ver%"=="Windows 8.1 Pro Student N" (set key=TNFGH-2R6PB-8XM3K-QYHX2-J4296) if "%ver%"=="Windows 8.1 Pro with Media Center" (set key=789NJ-TQK6T-6XTH8-J39CJ-J8D3P) if "%ver%"=="Windows 8.1 Enterprise" (set key=MHF9N-XY6XB-WVXMC-BTDCT-MKKG7) if "%ver%"=="Windows 8.1 Enterprise N" (set key=TT4HM-HN7YT-62K67-RGRQJ-JFFXW) if "%ver%"=="Windows 8.1 Embedded Industry" (set key=NMMPB-38DD4-R2823-62W8D-VXKJB) if "%ver%"=="Windows 8.1 Embedded Industry Enterprise" (set key=FNFKF-PWTVT-9RC8H-32HB2-JB34X) if "%ver%"=="Windows 8.1 Embedded Industry Automotive" (set key=VHXM3-NR6FT-RY6RT-CK882-KW2CJ) s1ave77s scripts How to use it? s1ave77s scripts if "%ver%"=="Windows Server 2012 R2 Essentials" (set key=KNC87-3J2TX-XB4WP-VCPJV-M4FWM) if "%ver%"=="Windows Server 2012 R2 Datacenter" (set key=W3GGN-FT8W3-Y4M27-J84CP-Q3VJ9) if "%ver%"=="Windows Server 2012 R2 Datacenter Core" (set key=W3GGN-FT8W3-Y4M27-J84CP-Q3VJ9) if "%ver%"=="Windows Server 2012 R2 Standard" (set key=D2N9P-3P6X9-2R39C-7RTCD-MDVJX) if "%ver%"=="Windows Server 2012 R2 Standard Core" (set key=D2N9P-3P6X9-2R39C-7RTCD-MDVJX) if "%ver%"=="Windows Server 2012 R2 Cloud Storage" (set key=3NPTF-33KPT-GGBPR-YX76B-39KDD) if "%ver%"=="Windows 10 Home" (set key=TX9XD-98N7V-6WMQ6-BX7FG-H8Q99) if "%ver%"=="Windows 10 Home N" (set key=3KHY7-WNT83-DGQKR-F7HPR-844BM) if "%ver%"=="Windows 10 Home Single Language" (set key=7HNRX-D7KGG-3K4RQ-4WPJ4-YTDFH) if "%ver%"=="Windows 10 Home Country Connected" (set key=PVMJN-6DFY6-9CCP6-7BKTT-D3WVR) s1ave77s scripts How to use it? s1ave77s scripts if "%ver%"=="Windows 10 Pro" (set key=W269N-WFGWX-YVC9B-4J6C9-T83GX) if "%ver%"=="Windows 10 Pro N" (set key=MH37W-N47XK-V7XM9-C7227-GCQG9) if "%ver%"=="Windows 10 Education" (set key=NW6C2-QMPVW-D7KKK-3GKT6-VCFB2) if "%ver%"=="Windows 10 Education N" (set key=2WH4N-8QGBV-H22JP-CT43Q-MDWWJ) if "%ver%"=="Windows 10 Enterprise" (set key=NPPR9-FWDCX-D2C8J-H872K-2YT43) if "%ver%"=="Windows 10 Enterprise N" (set key=DPH2V-TTNVB-4X9Q3-TJR4H-KHJW4) if "%ver%"=="Windows 10 Enterprise 2015 LTSB" (set key=WNMTR-4C88C-JK8YV-HQ7T2-76DF9) if "%ver%"=="Windows 10 Enterprise 2015 LTSB N" (set key=2F77B-TNFGY-69QQF-B8YKP-D69TJ) goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CheckToolStart set slp=SoftwareLicensingProduct set sls=SoftwareLicensingService set spp=SoftwareProtectionProduct set sps=SoftwareProtectionService set ospp=OfficeSoftwareProtectionProduct for /f "tokens=2 delims==" %%A IN ('"wmic path %sls% get version /format:list"') do set version=%%A s1ave77s scripts How to use it? s1ave77s scripts FOR /F "tokens=3* delims= " %%I IN ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" ^| findstr ProductName') DO SET ver=%%I %%J for /f "tokens=2* delims= " %%a in ('reg query "HKLM\System\CurrentControlSet\Control\Session Manager\Environment" /v "PROCESSOR_ARCHITECTURE"') do if "%%b"=="AMD64" (set vera=x64) else (set vera=x86) for /f "tokens=6 delims=[]. " %%G in ('ver') do set win=%%G for /f "tokens=2,3 delims=.=" %%A IN ('"wmic path %sls% get version /format:list"') do set build=%%A.%%B FOR /F "tokens=3,4 delims=. " %%I IN ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" ^| findstr BuildLabEx') DO (SET build1=%%I.%%J) FOR /F "tokens=3* delims= " %%I IN ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" ^| findstr EditionID') DO (SET edition=%%I) for /d %%a in (Ultimate, UltimateN, UltimateE, HomeBasic, HomeBasicN, HomeBasicE, HomePremium, HomePremiumN, HomePremiumE) do if "%edition%"=="%%a" set "comment=^< NOT SUPPORTED ^>" goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to dowload it? s1ave77s scripts :ID set slp=SoftwareLicensingProduct for /f "tokens=2 delims==" %%G in ('"wmic path %slp% where (Name like '%%Windows%%' and LicenseStatus='%status%') get ID /format:list"') do set id=%%G goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :OID set ospp=OfficeSoftwareProtectionProduct set osps=OfficeSoftwareProtectionService set slp=SoftwareLicensingProduct s1ave77s scripts How to use it? s1ave77s scripts for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where (Name LIKE '%%%~2%%') get LicenseStatus /format:list"') do if %%A geq 1 set officestatus=%%A for /f "tokens=2 delims==" %%G in ('"wmic path %~1 where (Name like '%%%~2%%' and LicenseStatus='%officestatus%') get ID /format:list"') do set oid=%%G goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :POID set ospp=OfficeSoftwareProtectionProduct set osps=OfficeSoftwareProtectionService set slp=SoftwareLicensingProduct for /f "tokens=2 delims==" %%A in ('"wmic path %~1 where (Name like '%%%~2%%') get LicenseStatus /format:list"') do if %%A geq 1 set othersstatus=%%A s1ave77s scripts How to use it? s1ave77s scripts for /f "tokens=2 delims==" %%G in ('"wmic path %~1 where (Name like '%%%~2%%' and LicenseStatus='%othersstatus%') get ID /format:list"') do set poid=%%G goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :CheckSPPSVC set slp=SoftwareLicensingProduct if %win% GEQ 9200 for /f %%A in ('cscript files\PID8.vbs') do set productkey=%%A if %win% LSS 9200 for /f %%A in ('cscript files\PID7.vbs') do set productkey=%%A for /f "tokens=2 delims== " %%A in ('"wmic path %slp% where (Name LIKE '%%Windows%%') get GracePeriodRemaining /format:list"') do (set grace=%%A)&&(if %%A geq 1 goto:Status) :Status s1ave77s scripts How to get it for free? s1ave77s scripts for /f "usebackq tokens=2 delims==" %%n in (`"%SystemRoot%\System32\wbem\WMIC.exe" /namespace:\\root\cimv2 path %sls% get RemainingWindowsReArmCount /format:list`) do set r=%%n for /f "tokens=2 delims== " %%A in ('"wmic path %slp% where (Name LIKE '%%Windows%%') get LicenseStatus /format:list"') do (set status=%%A)&&(if !status! geq 1 goto:License) :License set /a grace=grace/60/24 if %status% EQU 6 set "license=^< EXTENDED GRACE Left: %grace% days ^>" & color 1F if %status% EQU 5 set "license=^< NOTIFICATION ^>" & color 4F if %status% EQU 4 set "license=^< NON GENUINE GRACE Left: %grace% days ^>" & color 1F if %status% EQU 3 set "license=^< OOT GRACE Left: %grace% days ^>" & color 1F if %status% EQU 2 set "license=^< OOB GRACE Left: %grace% days ^>" & color 1F if %status% EQU 1 set "license=^< LICENSED ^>" s1ave77s scripts How to get it for free? s1ave77s scripts if %status% EQU 0 set "license=^< UNLICENSED ^>"& color 1F if %win% GEQ 9200 ( set "tok=6" ) else ( set "tok=9" ) for /f "tokens=%tok% delims==,() " %%G in ('"wmic path %slp% where LicenseStatus='%status%' get Description /format:list"') do set channel=%%G goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Layout set "permanent=" set "left=" for /d %%a in (RETAIL, OEM, OEM_SLP, OEM_NONSLP, OEM_COA, OEM_DM, VOLUME_MAK, VOLUME_KMS) do if "%channel%"=="%%a" if "%status%"=="1" set "permanent=PERMANENTLY " s1ave77s scripts How to use it? s1ave77s scripts if "%channel%"=="VOLUME_KMSCLIENT" set "left=(Left: %grace% days)" for /d %%a in (2, 3, 4, 6) do if "%channel%"=="VOLUME_KMSCLIENT" if %status% EQU %%a set "left=" echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ echo Û -==Emulators: CODYQX4, mikmik38, deagles, SirWest, Hotbird64, qad ^& CyNecx==- Û echo Û --==Code: s1ave77, ColdZero, ms-7, MasterDisaster==-- Û echo Û --==forums.mydigitallife.info==-- Û echo ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ echo: echo User...: %username% ^| at: %computername% echo Version: %ver% %comment% s1ave77s scripts How to use it? s1ave77s scripts echo Edition: %build%.%build1% %edition% echo Channel: %channel% ^| Arch: %vera% echo Act.ID.: %id% echo: PID....: %productkey% echo Status.: %status% = %permanent%%license% %left% echo: goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to get it? s1ave77s scripts :NotInstalled echo: echo ...Service is not installed. call :FOOTER timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :NotSupported s1ave77s scripts How to get it? s1ave77s scripts cls call :HEADER "Not supported: %ver% %vera% found!", " " echo: echo Operating System is not supported. call :FOOTER timeout /t 5 goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts PasteShr s1ave77s scripts :HEADER echo: echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ echo %~1 echo:%~2 echo ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß echo: goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts How to use it? s1ave77s scripts ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :FOOTER echo: echo ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß echo: goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :SHORTFOOTER s1ave77s scripts PasteShr s1ave77s scripts echo: echo ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß echo: goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :TITLE title s1ave77s ₫ S-M-R-T JATDevice ₫ vXXVI goto:eof s1ave77s scripts How to get it for free? s1ave77s scripts :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :Exit endlocal exit goto:eof :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ :++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ s1ave77s scripts