@ -1,5 +1,5 @@
@@ -1,5 +1,5 @@
@: :de62hd8 -random
@ set masver = 3.1
@: :7f8jhe -random
@ set masver = 3.2
@ setlocal DisableDelayedExpansion
@ echo off
@ -153,15 +153,15 @@ echo Upgrade to Windows Vista SP1 or SP2.
@@ -153,15 +153,15 @@ echo Upgrade to Windows Vista SP1 or SP2.
goto dk_done
)
if not exist %ps% (
if %winbuild% LSS 7600 if not exist " %SysPath% \WindowsPowerShell\v1.0\Modules " (
%nceline%
if not exist %ps% (
echo PowerShell is not installed in your system.
if %winbuild% LSS 7600 (
echo Install PowerShell using the following URL.
)
echo Install PowerShell 2.0 using the following URL.
echo :
echo https://www.catalog.update.microsoft.com/Search.aspx?q=KB968930
if %_unattended% == 0 start https://www.catalog.update.microsoft.com/Search.aspx?q=KB968930
)
goto dk_done
)
@ -662,11 +662,13 @@ if not exist %SysPath%\%%# (
@@ -662,11 +662,13 @@ if not exist %SysPath%\%%# (
%eline%
echo [%SysPath% \%% #] file is missing, aborting...
echo :
if not defined results (
call : dk_color %Blue% " Go back to Main Menu, select Troubleshoot and run DISM Restore and SFC Scan options. "
call : dk_color %Blue% " After that, restart system and try activation again. "
echo :
set fixes = %fixes% %mas% troubleshoot
call : dk_color2 %Blue% " Check this webpage for help - " %_Yellow% " %mas% troubleshoot "
)
goto dk_done
)
)
@ -1400,7 +1402,7 @@ exit /b
@@ -1400,7 +1402,7 @@ exit /b
: dk_product
set d1 = %ref% $meth = $TypeBuilder.DefinePInvokeMethod('BrandingFormatString', 'winbrand.dll', 'Public, Static', 1, [String], @([String]), 1, 3);
set d1 = %d1% $meth.SetImplementationFlags(128); $TypeBuilder.CreateType()::BrandingFormatString('%% WINDOWS_LONG%% ') -replace [string][char]0xa9, '(C) ' -replace [string][char]0xae, '(R) ' -replace [string][char]0x2122, '(TM) '
set d1 = %d1% $meth.SetImplementationFlags(128); $TypeBuilder.CreateType()::BrandingFormatString('%% WINDOWS_LONG%% ') -replace [string][char]0xa9, '' -replace [string][char]0xae, '' -replace [string][char]0x2122, ''
set winos =
for /f " delims= " %% s in ( '" %psc% %d1% "' ) do if not errorlevel 1 ( set winos = %% s)
@ -1676,10 +1678,12 @@ call :dk_color %Red% "Checking License Files [Not Found] [%osed
@@ -1676,10 +1678,12 @@ call :dk_color %Red% "Checking License Files [Not Found] [%osed
)
if not exist " %SystemRoot% \Servicing\Packages\Microsoft-Windows-*- %osedition% -*.mum " (
if not exist " %SystemRoot% \Servicing\Packages\Microsoft-Windows- %osedition% Edition*.mum " (
call : dk_color %Red% " Checking Package Files [Not Found] [ %osedition% ] "
)
)
)
)
if %_wmic% EQU 1 wmic path %sps% get Version %nul%
@ -1999,6 +2003,7 @@ if defined fixes (
@@ -1999,6 +2003,7 @@ if defined fixes (
call : dk_color %White% " Follow ALL the ABOVE blue lines. "
call : dk_color2 %Blue% " Press [1] to Open Support Webpage " %Gray% " Press [0] to Ignore "
choice /C:10 /N
if !errorlevel! == 2 exit /b
if !errorlevel! == 1 ( for %% # in ( %fixes% ) do ( start %% #) )
)
@ -2164,32 +2169,6 @@ for %%A in (%_act% %_rem%) do (if "%%A"=="1" set _unattended=1)
@@ -2164,32 +2169,6 @@ for %%A in (%_act% %_rem%) do (if "%%A"=="1" set _unattended=1)
: :========================================================================================================================================
if %winbuild% LSS 6001 (
%nceline%
echo Unsupported OS version detected [%winbuild% ].
echo MAS only supports Windows Vista/7/8/8.1/10/11 and their Server equivalents.
if %winbuild% EQU 6000 (
echo :
echo Windows Vista RTM is not supported because Powershell cannot be installed.
echo Upgrade to Windows Vista SP1 or SP2.
)
goto dk_done
)
if not exist %ps% (
%nceline%
echo PowerShell is not installed in your system.
if %winbuild% LSS 7600 (
echo Install PowerShell using the following URL.
echo :
echo https://www.catalog.update.microsoft.com/Search.aspx?q=KB968930
if %_unattended% == 0 start https://www.catalog.update.microsoft.com/Search.aspx?q=KB968930
)
goto dk_done
)
: :========================================================================================================================================
if %_rem% == 1 goto : oh_uninstall
: oh_menu
@ -2246,11 +2225,13 @@ if not exist %SysPath%\%_slexe% (
@@ -2246,11 +2225,13 @@ if not exist %SysPath%\%_slexe% (
%eline%
echo [%SysPath% \%_slexe% ] file is missing, aborting...
echo :
if not defined results (
call : dk_color %Blue% " Go back to Main Menu, select Troubleshoot and run DISM Restore and SFC Scan options. "
call : dk_color %Blue% " After that, restart system and try activation again. "
echo :
set fixes = %fixes% %mas% troubleshoot
call : dk_color2 %Blue% " Check this webpage for help - " %_Yellow% " %mas% troubleshoot "
)
goto dk_done
)
@ -2294,8 +2275,8 @@ set o16uwp=
@@ -2294,8 +2275,8 @@ set o16uwp=
set _68 = HKLM\SOFTWARE\Microsoft\Office
set _86 = HKLM\SOFTWARE\Wow6432Node\Microsoft\Office
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set o14msi = Office 2010 MSI )
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set o14msi = Office 2010 MSI )
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set o14msi = Office 2010 MSI )
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set o14msi = Office 2010 MSI )
%nul% reg query %_68% \14.0\CVH /f Click2run /k && set o14c2r = Office 2010 C2R
%nul% reg query %_86% \14.0\CVH /f Click2run /k && set o14c2r = Office 2010 C2R
@ -2728,12 +2709,12 @@ for /f "skip=2 tokens=2*" %%a in ('"reg query %_68%\ClickToRun /v InstallPath" %
@@ -2728,12 +2709,12 @@ for /f "skip=2 tokens=2*" %%a in ('"reg query %_68%\ClickToRun /v InstallPath" %
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \15.0\ClickToRun /v InstallPath" %nul6% ' ) do if exist " %% b\root\Licenses\ProPlus*.xrm-ms " ( set o15c2r = 1& set o15c2r_reg = %_86% \15.0\ClickToRun)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \15.0\ClickToRun /v InstallPath" %nul6% ' ) do if exist " %% b\root\Licenses\ProPlus*.xrm-ms " ( set o15c2r = 1& set o15c2r_reg = %_68% \15.0\ClickToRun)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \16.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set o16msi = 1& set o16msi_reg = %_86% \16.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \16.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set o16msi = 1& set o16msi_reg = %_68% \16.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \15.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set o15msi = 1& set o15msi_reg = %_86% \15.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \15.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set o15msi = 1& set o15msi_reg = %_68% \15.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set o14msi = 1& set o14msi_reg = %_86% \14.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set o14msi = 1& set o14msi_reg = %_68% \14.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \16.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set o16msi = 1& set o16msi_reg = %_86% \16.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \16.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set o16msi = 1& set o16msi_reg = %_68% \16.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \15.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set o15msi = 1& set o15msi_reg = %_86% \15.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \15.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set o15msi = 1& set o15msi_reg = %_68% \15.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set o14msi = 1& set o14msi_reg = %_86% \14.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set o14msi = 1& set o14msi_reg = %_68% \14.0)
exit /b
@ -3420,7 +3401,6 @@ exit /b
@@ -3420,7 +3401,6 @@ exit /b
14_7004b7f0-6407-4f45-8eac-966e5f868bde_Retail________GrooveR
14_fbf4ac36-31c8-4340-8666-79873129cf40_Retail________OutlookR
14_133c8359-4e93-4241-8118-30bb18737ea0_Retail________PowerPointR_[HSPowerPointR]
14_98677603-a668-4fa4-9980-3f1f05f78f69_Retail________PublisherR
14_db3bbc9c-ce52-41d1-a46f-1a1d68059119_Retail________WordR_[HSWordR]
14_dbe3aee0-5183-4ff7-8142-66050173cb01_Retail________SmallBusBasicsR_[SmallBusBasicsMSDNR]
@ -3458,6 +3438,7 @@ for %%# in (
@@ -3458,6 +3438,7 @@ for %%# in (
14_11b39439-6b93-4642-9570-f2eb81be2238_4DTT4-D4MKX-23KFH-JKR6T-YK%f% G2J_MAK___________ProjectStdVL
14_71af7e84-93e6-4363-9b69-699e04e74071_2J9H6-H4D3G-PCXD2-96XVM-TR%f% R73_Retail________ProPlusR_[ProPlusAcadR,ProPlusMSDNR,Sub4R]
14_fdf3ecb9-b56f-43b2-a9b8-1b48b6bae1a7_6CD6C-9R8PB-T2D9Y-8RKKX-W7%f% DFK_MAK___________ProPlusVL_[ProPlusAcadVL]
14_98677603-a668-4fa4-9980-3f1f05f78f69_CTRJP-P72VV-JBF8Y-4W6WW-HX%f% HVG_Retail________PublisherR
14_3d014759-b128-4466-9018-e80f6320d9d0_32YG9-3VX77-YXJVV-PRVFW-TT%f% 8BV_MAK___________PublisherVL
14_8090771e-d41a-4482-929e-de87f1f47e46_7VKXH-9BWCG-RPTBB-JBRV3-GR%f% HYC_MAK___________SmallBusBasicsVL
14_b78df69e-0966-40b1-ae85-30a5134dedd0_H48K6-FB4Y6-P83GH-9J7XG-HD%f% KKX_ByPass________SPDR
@ -3522,6 +3503,7 @@ for %%# in (
@@ -3522,6 +3503,7 @@ for %%# in (
15_e3dacc06-3bc2-4e13-8e59-8e05f3232325_H8DN8-Y2YP3-CR9JT-DHDR9-C7%f% GP3_Subscription2_O365ProPlusRetail
15_0bc1dae4-6158-4a1c-a893-807665b934b2_2QCNB-RMDKJ-GC8PB-7QGQV-7Q%f% TQJ_Subscription2_O365SmallBusPremRetail
: : Office 365 - 16.0 version
16_dabaa1f2-109b-496d-bf49-1536cc862900_3HYJN-9KG99-F8VG9-V3DT8-JF%f% MHV_Subscription__O365AppsBasicRetail
16_742178ed-6b28-42dd-b3d7-b7c0ea78741b_Y9NF9-M2QWD-FF6RJ-QJW36-RR%f% F2T_SubTest_______O365BusinessRetail
16_2f5c71b4-5b7a-4005-bb68-f9fac26f2ea3_W62NQ-267QR-RTF74-PF2MH-JQ%f% MTH_Subscription__O365EduCloudRetail
16_a96f8dae-da54-4fad-bdc6-108da592707a_3NMDC-G7C3W-68RGP-CB4MH-4C%f% XCH_SubTest1______O365HomePremRetail
@ -4107,11 +4089,13 @@ if not exist %SysPath%\%_slexe% (
@@ -4107,11 +4089,13 @@ if not exist %SysPath%\%_slexe% (
%eline%
echo [%SysPath% \%_slexe% ] file is missing, aborting...
echo :
if not defined results (
call : dk_color %Blue% " Go back to Main Menu, select Troubleshoot and run DISM Restore and SFC Scan options. "
call : dk_color %Blue% " After that, restart system and try activation again. "
echo :
set fixes = %fixes% %mas% troubleshoot
call : dk_color2 %Blue% " Check this webpage for help - " %_Yellow% " %mas% troubleshoot "
)
goto dk_done
)
@ -4511,7 +4495,8 @@ goto :ts_off
@@ -4511,7 +4495,8 @@ goto :ts_off
if defined esuexistsup (
echo " %tsids% " | find /i " 4220f546-f522-46df-8202-4d07afd26454 " %nul1% && (
echo " %tsids% " | find /i " 7e94be23-b161-4956-a682-146ab291774c " %nul1% || (
call : dk_color %Gray% " Now update Windows to get Client-ESU-Year6[4-6y] license and activate that using this script. "
call : dk_color %Gray% " To get Client-ESU-Year6[4-6y] license, install updates from the below URL. "
call : dk_color %Blue% " %mas% tsforge#windows-esu "
)
)
goto : ts_off
@ -4586,8 +4571,8 @@ set o14c2r=
@@ -4586,8 +4571,8 @@ set o14c2r=
set _68 = HKLM\SOFTWARE\Microsoft\Office
set _86 = HKLM\SOFTWARE\Wow6432Node\Microsoft\Office
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set o14msi = Office 2010 MSI )
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set o14msi = Office 2010 MSI )
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set o14msi = Office 2010 MSI )
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set o14msi = Office 2010 MSI )
%nul% reg query %_68% \14.0\CVH /f Click2run /k && set o14c2r = Office 2010 C2R
%nul% reg query %_86% \14.0\CVH /f Click2run /k && set o14c2r = Office 2010 C2R
@ -5301,10 +5286,10 @@ for /f "skip=2 tokens=2*" %%a in ('"reg query %_68%\ClickToRun /v InstallPath" %
@@ -5301,10 +5286,10 @@ for /f "skip=2 tokens=2*" %%a in ('"reg query %_68%\ClickToRun /v InstallPath" %
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \15.0\ClickToRun /v InstallPath" %nul6% ' ) do if exist " %% b\root\Licenses\ProPlus*.xrm-ms " ( set o15c2r = 1& set o15c2r_reg = %_86% \15.0\ClickToRun)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \15.0\ClickToRun /v InstallPath" %nul6% ' ) do if exist " %% b\root\Licenses\ProPlus*.xrm-ms " ( set o15c2r = 1& set o15c2r_reg = %_68% \15.0\ClickToRun)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \16.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set o16msi = 1& set o16msi_reg = %_86% \16.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \16.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set o16msi = 1& set o16msi_reg = %_68% \16.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \15.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set o15msi = 1& set o15msi_reg = %_86% \15.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \15.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set o15msi = 1& set o15msi_reg = %_68% \15.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \16.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set o16msi = 1& set o16msi_reg = %_86% \16.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \16.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set o16msi = 1& set o16msi_reg = %_68% \16.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \15.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set o15msi = 1& set o15msi_reg = %_86% \15.0)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \15.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set o15msi = 1& set o15msi_reg = %_68% \15.0)
exit /b
@ -10960,11 +10945,13 @@ if defined _fmiss (
@@ -10960,11 +10945,13 @@ if defined _fmiss (
%eline%
echo [%_fmiss% ] file is missing, aborting...
echo :
if not defined results (
call : dk_color %Blue% " Go back to Main Menu, select Troubleshoot and run DISM Restore and SFC Scan options. "
call : dk_color %Blue% " After that, restart system and try activation again. "
echo :
set fixes = %fixes% %mas% troubleshoot
call : dk_color2 %Blue% " Check this webpage for help - " %_Yellow% " %mas% troubleshoot "
)
goto dk_done
)
@ -11790,11 +11777,13 @@ if not exist %SysPath%\%_slexe% (
@@ -11790,11 +11777,13 @@ if not exist %SysPath%\%_slexe% (
%eline%
echo [%SysPath% \%_slexe% ] file is missing, aborting...
echo :
if not defined results (
call : dk_color %Blue% " Go back to Main Menu, select Troubleshoot and run DISM Restore and SFC Scan options. "
call : dk_color %Blue% " After that, restart system and try activation again. "
echo :
set fixes = %fixes% %mas% troubleshoot
call : dk_color2 %Blue% " Check this webpage for help - " %_Yellow% " %mas% troubleshoot "
)
goto dk_done
)
@ -12467,7 +12456,7 @@ call :dk_color %Red% "Checking Product In Script [Office %oVer%.0 !
@@ -12467,7 +12456,7 @@ call :dk_color %Red% "Checking Product In Script [Office %oVer%.0 !
call : dk_color %Blue% " Make sure you are using Latest MAS script. "
) else (
call : dk_color %Red% " Checking Product In Script [!_prod! MSI Retail is not supported] "
call : dk_color %Blue% " Use Ohook option to activate it. "
call : dk_color %Blue% " Use Ohook option to activate it. To activate with %KS% , you need to install Volume version of Office. "
)
set fixes = %fixes% %mas% genuine-installation-media
call : dk_color %_Yellow% " %mas% genuine-installation-media "
@ -13848,7 +13837,7 @@ d9f5b1c6-5386-495a-88f9-9ad6b41ac9b3_6Q7VD-NX8JD-WJ2VH-88V73-4G%f%BJ7__15_WordVo
@@ -13848,7 +13837,7 @@ d9f5b1c6-5386-495a-88f9-9ad6b41ac9b3_6Q7VD-NX8JD-WJ2VH-88V73-4G%f%BJ7__15_WordVo
67c0fc0c-deba-401b-bf8b-9c8ad8395804_GNH9Y-D2J4T-FJHGG-QRVH7-QP%f% FDW__16_AccessVolume_-AccessRetail-
c3e65d36-141f-4d2f-a303-a842ee756a29_9C2PK-NWTVB-JMPW8-BFT28-7F%f% TBF__16_ExcelVolume_-ExcelRetail-
e914ea6e-a5fa-4439-a394-a9bb3293ca09_DMTCJ-KNRKX-26982-JYCKT-P7%f% KB6__16_MondoRetail
9caabccb-61b1-4b4b-8bec-d10a3c3ac2ce_HFTND-W9MK4-8B7MJ-B6C4G-XQ%f% BR2__16_MondoVolume_-O365BusinessRetail-O365EduCloudRetail-O365HomePremRetail-O365ProPlusRetail-O365SmallBusPremRetail-
9caabccb-61b1-4b4b-8bec-d10a3c3ac2ce_HFTND-W9MK4-8B7MJ-B6C4G-XQ%f% BR2__16_MondoVolume_-O365AppsBasicRetail-O365 BusinessRetail-O365EduCloudRetail-O365HomePremRetail-O365ProPlusRetail-O365SmallBusPremRetail-
436366de-5579-4f24-96db-3893e4400030_XYNTG-R96FY-369HX-YFPHY-F9%f% CPM__16_OneNoteFreeRetail_[Bypass]
d8cace59-33d2-4ac7-9b1b-9b72339c51c8_DR92N-9HTF2-97XKM-XW2WJ-XW%f% 3J6__16_OneNoteVolume_-OneNoteRetail-OneNote2021Retail-
ec9d9265-9d1e-4ed0-838a-cdc20f2551a1_R69KK-NTPKF-7M3Q4-QYBHW-6M%f% T9B__16_OutlookVolume_-OutlookRetail-
@ -14985,8 +14974,8 @@ function PrintLicensesInformation
@@ -14985,8 +14974,8 @@ function PrintLicensesInformation
function vNextDiagRun
{
$fNUL = ([IO.Directory]::Exists(" ${env:LOCALAPPDATA}\Microsoft\Office\Licenses " )) -and ([IO.Directory]::GetFiles(" ${env:LOCALAPPDATA}\Microsoft\Office\Licenses " , " * " , 1).Length -GE 0)
$fDev = ([IO.Directory]::Exists(" ${env:PROGRAMDATA}\Microsoft\Office\Licenses " )) -and ([IO.Directory]::GetFiles(" ${env:PROGRAMDATA}\Microsoft\Office\Licenses " , " * " , 1).Length -GE 0)
$fNUL = ([IO.Directory]::Exists(" ${env:LOCALAPPDATA}\Microsoft\Office\Licenses " )) -and ([IO.Directory]::GetFiles(" ${env:LOCALAPPDATA}\Microsoft\Office\Licenses " , " * " , 1).Length -GT 0)
$fDev = ([IO.Directory]::Exists(" ${env:PROGRAMDATA}\Microsoft\Office\Licenses " )) -and ([IO.Directory]::GetFiles(" ${env:PROGRAMDATA}\Microsoft\Office\Licenses " , " * " , 1).Length -GT 0)
$rPID = $null -NE (GP " HKCU:\SOFTWARE\Microsoft\Office\16.0\Common\Licensing\LicensingNext " -EA 0 | select -Expand 'property' -EA 0 | where -Filter {$_.ToLower() -like " *retail " -or $_.ToLower() -like " *volume " })
$rSCA = $null -NE (GP " HKLM:\SOFTWARE\Microsoft\Office\ClickToRun\Configuration " -EA 0 | select -Expand " SharedComputerLicensing " -EA 0)
$rSCL = $null -NE (GP " HKLM:\SOFTWARE\Microsoft\Office\16.0\Common\Licensing " -EA 0 | select -Expand " SharedComputerLicensing " -EA 0)
@ -15253,7 +15242,7 @@ function clcGetExpireSys
@@ -15253,7 +15242,7 @@ function clcGetExpireSys
return $null
}
$rData = [DateTime]::FromFileTimeUTC ($kuser).ToString('yyyy/MM/dd:HH:mm:ss')
$rData = [DateTime]::FromFileTimeUtc ($kuser).ToString('yyyy/MM/dd:HH:mm:ss')
return $rData
}
@ -16022,12 +16011,12 @@ set _86=HKLM\SOFTWARE\Wow6432Node\Microsoft\Office
@@ -16022,12 +16011,12 @@ set _86=HKLM\SOFTWARE\Wow6432Node\Microsoft\Office
reg query %_68% \14.0\CVH /f Click2run /k %nul% && ( set " c2r14_68=Office 14.0 C2R x86/x64 " & set " c2r14repair68= " )
reg query %_86% \14.0\CVH /f Click2run /k %nul% && ( set " c2r14_86=Office 14.0 C2R x86 " & set " c2r14repair86= " )
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set " msi14_86=Office 14.0 MSI x86 " & call : getrepairsetup msi14repair86 14)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set " msi14_68=Office 14.0 MSI x86/x64 " & call : getrepairsetup msi14repair68 14)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \15.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set " msi15_86=Office 15.0 MSI x86 " & call : getrepairsetup msi15repair86 15)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \15.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set " msi15_68=Office 15.0 MSI x86/x64 " & call : getrepairsetup msi15repair68 15)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \16.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set " msi16_86=Office 16.0 MSI x86 " & call : getrepairsetup msi16repair86 16)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \16.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\Entity Picker.dll " ( set " msi16_68=Office 16.0 MSI x86/x64 " & call : getrepairsetup msi16repair68 16)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set " msi14_86=Office 14.0 MSI x86 " & call : getrepairsetup msi14repair86 14)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \14.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set " msi14_68=Office 14.0 MSI x86/x64 " & call : getrepairsetup msi14repair68 14)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \15.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set " msi15_86=Office 15.0 MSI x86 " & call : getrepairsetup msi15repair86 15)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \15.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set " msi15_68=Office 15.0 MSI x86/x64 " & call : getrepairsetup msi15repair68 15)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \16.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set " msi16_86=Office 16.0 MSI x86 " & call : getrepairsetup msi16repair86 16)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \16.0\Common\InstallRoot /v Path" %nul6% ' ) do if exist " %% b\* Picker.dll " ( set " msi16_68=Office 16.0 MSI x86/x64 " & call : getrepairsetup msi16repair68 16)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_86% \15.0\ClickToRun /v InstallPath" %nul6% ' ) do if exist " %% b\root\Licenses\ProPlus*.xrm-ms " ( set " c2r15_86=Office 15.0 C2R x86 " & call : getc2rrepair c2r15repair86 integratedoffice.exe)
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_68% \15.0\ClickToRun /v InstallPath" %nul6% ' ) do if exist " %% b\root\Licenses\ProPlus*.xrm-ms " ( set " c2r15_68=Office 15.0 C2R x86/x64 " & call : getc2rrepair c2r15repair68 integratedoffice.exe)
@ -18253,6 +18242,7 @@ if defined fixes (
@@ -18253,6 +18242,7 @@ if defined fixes (
call : dk_color %White% " Follow ALL the ABOVE blue lines. "
call : dk_color2 %Blue% " Press [1] to Open Support Webpage " %Gray% " Press [0] to Ignore "
choice /C:10 /N
if !errorlevel! == 2 goto : oemenu
if !errorlevel! == 1 ( for %% # in ( %fixes% ) do ( start %% #) )
)