-
Notifications
You must be signed in to change notification settings - Fork 21
/
Copy pathActWinOfficeOnline.cmd
1411 lines (1308 loc) · 70.2 KB
/
ActWinOfficeOnline.cmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
@echo off
::===========================================================================
fsutil dirty query %systemdrive% >nul 2>&1 || (
echo ================================================================
echo ==== LOI ====
echo Script nay yeu cau quyen Quan tri he thong. De Script hoat dong.
echo Hay nhap chuot phai vao file .cmd va chon 'Run as administrator'
echo ================================================================
echo.
echo Nhan phim bat ky de thoat...
pause >nul
exit
)
::===========================================================================
color F0
mode con cols=98 lines=30
title Kich hoat Windows-Office online 6 thang. Tao tac vu tu dong gia han Vinh Vien
setlocal EnableExtensions EnableDelayedExpansion
:======================================================================================================================================================
:MAINMENU
cls
mode con cols=98 lines=30
for /f "tokens=2 delims==" %%a IN ('"wmic Path Win32_OperatingSystem Get Caption /format:LIST"')do (set NameOS=%%a) >nul 2>&1
for /f "tokens=2 delims==" %%a IN ('"wmic Path Win32_OperatingSystem Get CSDVersion /format:LIST"')do (set SP=%%a) >nul 2>&1
for /f "tokens=2 delims==" %%a in ('wmic path Win32_OperatingSystem get BuildNumber /value') do (set WinBuild=%%a) >nul 2>&1
echo. _________________________________________________________
echo.
echo %NameOS% %SP% %WinBuild%
echo. _________________________________________________________
echo. ^| https://github.com/BsNgChiThanh ^|
Echo. ^| ^|
Echo. ^| [1] Kich hoat Windows va Office. ^|
Echo. ^| ^|
Echo. ^| [2] Kiem tra trang thai Kich hoat Windows va Office. ^|
Echo. ^| ^|
Echo. ^| [3] _Thong tin ve Script Kich hoat_ ^|
Echo. ^| _______________ ^|
echo. ^| ^|
echo. ^| [4] Tao tac vu Gia han Kich hoat. ^|
echo. ^| ^|
echo. ^| [5] Xoa cac tep da tao khi Kich hoat. ^|
echo. ^| ^|
echo. ^| [6] Trich xuat Thu muc $OEM$ ra Desktop. ^|
Echo. ^| _______________ ^|
echo. ^| ^|
Echo. ^| [7] Kiem tra Cap nhat Script. ^|
Echo. ^| ^|
Echo. ^| [8] Thoat. ^|
Echo. ^|_________________________________________________________^|
ECHO.
choice /C:12345678 /N /M ". Nhap lua chon cua ban [1,2,3,4,5,6,7,8] : "
if errorlevel 8 goto:Exit
if errorlevel 7 goto:ScriptUpdates
if errorlevel 6 goto:Extract$OEM$
if errorlevel 5 goto:CompleteUninstall
if errorlevel 4 goto:CreateRenewalTask
if errorlevel 3 goto:ReadMe
if errorlevel 2 goto:CheckActivation
if errorlevel 1 goto:Activate
:======================================================================================================================================================
:ReadMe
cls
mode con cols=98 lines=135
call :create_file %0 "%TEMP%\ReadMe.txt" "REM ReadMe Start" "REM ReadMe End"
goto :TempReadMe
REM ReadMe Start
===============================================================================================
# Gioi thieu:
- Script CMD Kich hoat Windows va Office Online 6 thang
Kich hoat Windows va Office bang Key va May chu KMS truc tuyen.
[File sach 100% khi kiem tra bang Virus total]
===============================================================================================
# Chu y:
- Neu ban chi muon kich hoat trong 6 thang va khong muon bat ky phan con lai nao cua qua trinh
kich hoat ton tai tren may (Vi du: Ten may chu KMS), thi truoc tien ban nen chon tuy chon [1]
Kich hoat Windows va Office. va sau do su dung tuy chon [5] Xoa cac tep da tao khi Kich hoat.
- Neu ban muon kich hoat VINH VIEN, thi ban nen chon tuy chon [1] Kich hoat Windows va Office.
Sau do chon [4] Tao tac vu Gia han Kich hoat. Luu y rang he thong cua ban phai ket noi
internet mot lan trong khoang thoi gian 6 thang, de kich hoat VINH VIEN.
- Sau khi chon [1] Kich hoat hoac [4] Gia han Kich hoat, neu ban khong [5] Xoa cac tep da tao
khi Kich hoat. Ma cai luon Office 2013 hay 2016 (Volume) thi Office cua ban se tu dong duoc
Kich hoat ma ban khong can phai chay lai Script. Luu y rang qua trinh Kich hoat ngam nay se
chi dien ra khi ban cai Office tren Windows 8.1/10 va khong xay ra tren Windows 7.
- Neu ngay gio tren he thong cua ban khong chinh xac do 'Bad Bios Battery' hay sua chua Pin
Bios va dam bao he thong luon truc tuyen.
- Neu Windows hoac Office cua ban da duoc Kich hoat VINH VIEN, Script se bo qua ma khong tiep
tuc qua trinh Kich hoat.
- Doi voi hau het Windows va Office thoi gian Kich hoat se la 6 thang/lan. Nhung doi voi mot
so san pham thoi gian co the se ngan hon la 30 ngay/lan hoac 45 ngay/lan ...
- Scipt se Kich hoat cac ban Office VL (Volume), khong ho tro Kich hoat Office Retail (C2R).
Vi vay hoac ban convert Office Retail sang VL, hoac tai xuong Office VL tu lien ket nay:
https://pastebin.com/raw/Hk2RgYzF cua GezoeSloog (Thanh vien MDL).
Xac minh xem Office VL ban tai xuong co phai la Chinh hang hay khong voi tool nay:
https://genuineisoverifier.weebly.com/
- De tao file iso kich hoat tu dong khi cai Win hay thuc hien thao tac sau:
Su dung tuy chon [6] cua Script va trich xuat thu muc $OEM$ ra Desktop.
Tiep theo sao chep thu muc $OEM$ nay vao thu muc "sources" trong file iso goc.
Theo duong dan. iso/usb:\sources\$OEM$\
Cuoi cung su dung iso/usb nay de cai dat Windows va no se tu dong kich hoat khi
ban co ket noi Internet.
===============================================================================================
# Tip Fix Loi:
* Neu trong qua trinh kich hoat gap loi, Hay thu reset lai file Tokens.dat bang cach sau
Chay CMD (command prompt) voi Quyen quan tri (run as admin...). Copy-paste lenh duoi vao:
- Voi Windows 10, Server 2016/2019:
net stop sppsvc
ren %windir%\System32\spp\store\2.0\tokens.dat tokens.bar
net start sppsvc
cscript %windir%\system32\slmgr.vbs /rilc
- Voi Windows 8, Server 2012/R2:
net stop sppsvc
cd %windir%\ServiceProfiles\LocalService\AppData\Local\Microsoft\WSLicense
ren tokens.dat tokens.bar
net start sppsvc
cscript.exe %windir%\system32\slmgr.vbs /rilc
- Voi Windows 7, Server 2008 R2:
net stop sppsvc
cd %windir%\ServiceProfiles\NetworkService\AppData\Roaming\Microsoft\SoftwareProtectionPlatform
ren tokens.dat tokens.bar
net start sppsvc
cscript.exe %windir%\system32\slmgr.vbs /rilc
Doi qua trinh tren hoan tat, Reset may lai 2 lan.
Sau do hay chay Script de thu Kich hoat lai.
===============================================================================================
# Cac Phien ban duoc Ho tro:
Windows 7 Volume (Vi du: Pro, Enterprise)/8/8.1/10 [Khong ho tro Windows 7 Ultimate]
Windows Server 2008R2/2012/2012R2/2016/2019
Office (VL) 2010/2013/2016/2019
===============================================================================================
# Tac gia:
Abbodi1406 - Tao tep SppExtComObjPatcher-kms\2-Activate-Local.cmd duoc su dung lam co so
trong 'Script Kich hoat Windows va Office Online 6 thang' nay.
rpo, AR_Alex, - Len y tuong, de xuat, tro giup de cai tien Script nay,
Savio, tich hop ho tro may chu kms truc tuyen, dich,
WindowsAddict. kiem tra, quan ly, va xuat ban Script.
===============================================================================================
# Link huu ich:
- Script Kich hoat Win va Office Online 6 thang: https://bit.ly/KichHoatWindowsVaOfficeOnline
- Script kich hoat Windows 10 ban quyen Vinh Vien: https://bit.ly/KichHoatBanQuyenVinhVien
- Kich hoat Ban Quyen So Win10 Pro bang Key Win 7-8-8.1: https://bit.ly/KichHoatW10BangKeyW7W8
- Sao luu ban quyen Windows va Office: https://bit.ly/SaoLuuBanQuyen
- Link tai Windows va Office nguyen goc Microsoft: https://bit.ly/LinkTaiISO
- Link tai cac ban Win10 tu kich hoat ban quyen Vinh Vien: https://bit.ly/ActivateDigitalISO
- Key Windows 10 va Windows Server - Mac Dinh cua Microsoft: https://bit.ly/KeyGeneric
- Link tai Win10 Enterprise LTSB 2016 x64 nguyen goc: https://bit.ly/enterpriseLTSB2016x64
- Link tai Win10 Enterprise LTSB 2016 x32 nguyen goc: https://bit.ly/enterpriseLTSB2016x32
- Link tai Win10 Enterprise LTSC 2019 x64 nguyen goc: https://bit.ly/LTSC2019x64
- Link tai Win10 Enterprise LTSC 2019 x32 nguyen goc: https://bit.ly/LTSC2019x32
- Trang GetLink Fshare cua J2team: http://bit.ly/GetLinkFshare
- Huong dan toi uu, Fix loi Full Disk 100%: https://bit.ly/FullDisk
- Phan mem VPN, Fake IP: https://bit.ly/VPNGateClient
- Phan mem ho tro duyet tab trong Office nhu tren trinh duyet Web: https://bit.ly/OfficeTabver13
- Key Activate cac phan mem Adobe CS6 cho Windows va MAC: https://bit.ly/KeyCS6
- Key Eset ban quyen: https://bit.ly/KeyEset
- Key Kaspersky Internet Security 2019 han den 2020: http://bit.ly/KIS2019
- Thu thuat cai Win - Fix Loi - Toi Uu... : http://bit.ly/ThuThuatWin
===============================================================================================
REM ReadMe End
:TempReadMe
type "%temp%\ReadMe.txt"
echo.
echo Nhan phim bat ky de tiep tuc...
pause >nul
del /f /q "%temp%\ReadMe.txt"
goto:MAINMENU
:======================================================================================================================================================
:Activate
cls
mode con cols=98 lines=200
echo ============================================================================
echo Luu y: De Kich hoat thanh cong hay dam bao ban da ket noi voi Internet.
echo ============================================================================
echo.
choice /C:QT /N /M "[T] Tiep tuc Kich hoat [Q] Quay lai : "
if %errorlevel%==1 Goto:MainMenu
cls
call :create_file %0 "%TEMP%\Activation.cmd" "REM (Re)activate cmd Start" "REM (Re)activate cmd End"
goto :TempActivation
:TempActivation
call "%TEMP%\Activation.cmd"
del /f /q "%TEMP%\Activation.cmd"
goto:MAINMENU
:======================================================================================================================================================
:CheckActivation
cls
mode con cols=98 lines=200
ECHO ************************************************************
ECHO *** Trang thai Windows ***
ECHO ************************************************************
COPY /Y %systemroot%\System32\slmgr.vbs "%temp%\slmgr.vbs" >NUL 2>&1
cscript //nologo "%temp%\slmgr.vbs" /dli
cscript //nologo "%temp%\slmgr.vbs" /xpr
DEL /F /Q "%temp%\slmgr.vbs" >NUL 2>&1
ECHO ____________________________________________________________________________
:office2016
IF EXIST %systemroot%\SysWOW64\cmd.exe (SET bit=64&SET wow=1) ELSE (SET bit=32&SET wow=0)
SET office=
FOR /F "tokens=2*" %%a IN ('"REG QUERY HKLM\SOFTWARE\Microsoft\Office\16.0\Common\InstallRoot /v Path" 2^>NUL') DO (SET "office=%%b")
IF EXIST "%office%\OSPP.VBS" (
ECHO.
ECHO ************************************************************
ECHO *** Trang thai Office 2016 %bit%-bit ***
ECHO ************************************************************
cscript //nologo "%office%\OSPP.VBS" /dstatus
)
IF %wow%==0 GOTO :office2013
SET office=
FOR /F "tokens=2*" %%a IN ('"REG QUERY HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\16.0\Common\InstallRoot /v Path" 2^>NUL') DO (SET "office=%%b")
IF EXIST "%office%\OSPP.VBS" (
ECHO.
ECHO ************************************************************
ECHO *** Trang thai Office 2016 32-bit ***
ECHO ************************************************************
cscript //nologo "%office%\OSPP.VBS" /dstatus
)
:office2013
SET office=
FOR /F "tokens=2*" %%a IN ('"REG QUERY HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot /v Path" 2^>NUL') DO (SET "office=%%b")
IF EXIST "%office%\OSPP.VBS" (
ECHO.
ECHO ************************************************************
ECHO *** Trang thai Office 2013 %bit%-bit ***
ECHO ************************************************************
cscript //nologo "%office%\OSPP.VBS" /dstatus
)
IF %wow%==0 GOTO :office2010
SET office=
FOR /F "tokens=2*" %%a IN ('"REG QUERY HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot /v Path" 2^>NUL') DO (SET "office=%%b")
IF EXIST "%office%\OSPP.VBS" (
ECHO.
ECHO ************************************************************
ECHO *** Trang thai Office 2013 32-bit ***
ECHO ************************************************************
cscript //nologo "%office%\OSPP.VBS" /dstatus
)
:office2010
SET office=
FOR /F "tokens=2*" %%a IN ('"REG QUERY HKLM\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot /v Path" 2^>NUL') DO (SET "office=%%b")
IF EXIST "%office%\OSPP.VBS" (
ECHO.
ECHO ************************************************************
ECHO *** Trang thai Office 2010 %bit%-bit ***
ECHO ************************************************************
cscript //nologo "%office%\OSPP.VBS" /dstatus
)
IF %wow%==0 GOTO :office2016C2R
SET office=
FOR /F "tokens=2*" %%a IN ('"REG QUERY HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot /v Path" 2^>NUL') DO (SET "office=%%b")
IF EXIST "%office%\OSPP.VBS" (
ECHO.
ECHO ************************************************************
ECHO *** Trang thai Office 2010 32-bit ***
ECHO ************************************************************
cscript //nologo "%office%\OSPP.VBS" /dstatus
)
:office2016C2R
REG QUERY HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath >NUL 2>&1 || GOTO :office2013C2R
SET office=
for /f "tokens=2*" %%a IN ('"REG QUERY HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath" 2^>NUL') do (set "office=%%b\Office16")
IF EXIST "%office%\OSPP.VBS" (
ECHO.
ECHO ************************************************************
ECHO *** Trang thai Office 2016/2019 C2R ***
ECHO ************************************************************
cscript //nologo "%office%\OSPP.VBS" /dstatus
)
:office2013C2R
REG QUERY HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun /v InstallPath >NUL 2>&1 || GOTO :office2010C2R
SET office=
IF EXIST "%ProgramFiles%\Microsoft Office\Office15\OSPP.VBS" (
set "office=%ProgramFiles%\Microsoft Office\Office15"
) else IF EXIST "%ProgramFiles(x86)%\Microsoft Office\Office15\OSPP.VBS" (
set "office=%ProgramFiles(x86)%\Microsoft Office\Office15"
)
IF EXIST "%office%\OSPP.VBS" (
ECHO.
ECHO ************************************************************
ECHO *** Trang thai Office 2013 C2R ***
ECHO ************************************************************
cscript //nologo "%office%\OSPP.VBS" /dstatus
)
:office2010C2R
REG QUERY HKLM\SOFTWARE\Microsoft\Office\14.0\ClickToRun /v InstallPath >NUL 2>&1 || GOTO :End
SET office=
IF EXIST "%ProgramFiles%\Microsoft Office\Office14\OSPP.VBS" (
set "office=%ProgramFiles%\Microsoft Office\Office14"
) else IF EXIST "%ProgramFiles(x86)%\Microsoft Office\Office14\OSPP.VBS" (
set "office=%ProgramFiles(x86)%\Microsoft Office\Office14"
)
IF EXIST "%office%\OSPP.VBS" (
ECHO.
ECHO ************************************************************
ECHO *** Trang thai Office 2010 C2R ***
ECHO ************************************************************
cscript //nologo "%office%\OSPP.VBS" /dstatus
)
:End
Echo.
echo Nhan phim bat ky de tiep tuc...
pause>nul
GOTO:MAINMENU
:======================================================================================================================================================
:CreateRenewalTask
cls
mode con cols=98 lines=30
echo ============================================================================
echo Luu y: Tuy chon nay se tao Tac vu Gia han Kich hoat tu dong Hang tuan.
echo He thong cua ban phai ket noi Internet 1 lan trong khoang thoi gian
echo 6 thang, de Kich hoat Vinh Vien.
echo Tep tac vu se duoc tao trong C:\Windows\Online_KMS_Activation_Script
echo Va ban co the xem tac vu theo lich cua no trong Task Schedular.
echo ============================================================================
echo.
choice /C:QT /N /M "[T] Tao tac vu Gia han [Q] Quay lai : "
if %errorlevel%==1 Goto:MainMenu
cls
schtasks /delete /tn Online_KMS_Activation_Script-Renewal /f 1>nul 2>nul
schtasks /delete /tn Online_KMS_Activation_Script-Run_Once /f 1>nul 2>nul
@RD /s /q "%windir%\Online_KMS_Activation_Script" >nul 2>&1
md "%windir%\Online_KMS_Activation_Script"
call :create_file %0 "%temp%\temp_cmd_file" "REM (Re)activate cmd Start" "REM (Re)activate cmd End"
echo @echo off^&set "Renewal_Task=1">"%temp%\temp_echo_file"
copy /y "%temp%\temp_echo_file" + "%temp%\temp_cmd_file" "C:\Windows\Online_KMS_Activation_Script\Online_KMS_Activation_Script-Renewal.cmd" >nul
del /q "%temp%\temp_cmd_file" >nul & del /q "%temp%\temp_echo_file" >nul
call :create_file %0 "%temp%\Online_KMS_Activation_Script-Renewal.xml" "REM (Re)activate xml Start" "REM (Re)activate xml End"
call :create_file %0 "C:\Windows\Online_KMS_Activation_Script\Info.txt" "REM Info Start" "REM Info End"
goto :RenewalTaskCreated
:RenewalTaskCreated
schtasks /create /tn "Online_KMS_Activation_Script-Renewal" /ru "SYSTEM" /xml "%TEMP%\Online_KMS_Activation_Script-Renewal.xml" >nul 2>&1
del /f /q "%TEMP%\Online_KMS_Activation_Script-Renewal.xml" >nul 2>&1)
echo.
echo.
echo =========================================
echo Da tao Tac vu Gia han Hang tuan.
echo =========================================
echo.
echo Nhan phim bat ky de tiep tuc...
pause >nul
goto:MAINMENU
:======================================================================================================================================================
:CompleteUninstall
cls
mode con cols=98 lines=30
echo ================================================================================
echo Luu y: Tuy chon nay se xoa Tac vu Gia han tu dong, tep tac vu, xoa bo nho cache
echo va ten May chu KMS tren He thong.
echo ================================================================================
echo.
choice /C:QT /N /M "[T] Tiep tuc Xoa cac tep da tao [Q] Quay lai : "
if %errorlevel%==1 Goto:MainMenu
cls
echo Dang Xoa Tac vu Gia han Tu dong...
schtasks /delete /tn Online_KMS_Activation_Script-Renewal /f 1>nul 2>nul
schtasks /delete /tn Online_KMS_Activation_Script-Run_Once /f 1>nul 2>nul
echo Dang Xoa Tep Tac vu...
@RD /s /q "%windir%\Online_KMS_Activation_Script" >nul 2>&1
setlocal EnableExtensions EnableDelayedExpansion
set "OSPP=HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform"
set "SPPk=SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform"
wmic path SoftwareLicensingProduct where (Description like '%%KMSCLIENT%%') get Name 2>nul | findstr /i Windows 1>nul && (set SppHook=1) || (set SppHook=0)
wmic path OfficeSoftwareProtectionService get Version >nul 2>&1 && (set OsppHook=1) || (set OsppHook=0)
if %SppHook% NEQ 0 call :cKMS SoftwareLicensingProduct SoftwareLicensingService SPP
if %OsppHook% NEQ 0 call :cKMS OfficeSoftwareProtectionProduct OfficeSoftwareProtectionService OSPP
echo.
echo.
echo ==============================
echo Hoan tat Xoa cac tep da tao.
echo ==============================
echo.
echo Nhan phim bat ky de tiep tuc...
pause >nul
goto:MAINMENU
:cKMS
echo.
echo Dang xoa %3 KMS Cache...
set spp=%1
set sps=%2
for /f "tokens=2 delims==" %%A in ('"wmic path %sps% get version /format:list"') do set ver=%%A
for /f "tokens=2 delims==" %%G in ('"wmic path %spp% where (Description like '%%KMSCLIENT%%') get ID /VALUE" 2^>nul') do (set app=%%G&call :Clear)
wmic path %sps% where version='%ver%' call ClearKeyManagementServiceMachine >nul 2>&1
wmic path %sps% where version='%ver%' call ClearKeyManagementServicePort >nul 2>&1
wmic path %sps% where version='%ver%' call DisableKeyManagementServiceDnsPublishing 1 >nul 2>&1
wmic path %sps% where version='%ver%' call DisableKeyManagementServiceHostCaching 1 >nul 2>&1
if /i %1 EQU SoftwareLicensingProduct (
reg delete "HKLM\%SPPk%\55c92734-d682-4d71-983e-d6ec3f16059f" /f >nul 2>&1
reg delete "HKLM\%SPPk%\0ff1ce15-a989-479d-af46-f275c6370663" /f >nul 2>&1
reg delete "HKEY_USERS\S-1-5-20\%SPPk%\55c92734-d682-4d71-983e-d6ec3f16059f" /f >nul 2>&1
reg delete "HKEY_USERS\S-1-5-20\%SPPk%\0ff1ce15-a989-479d-af46-f275c6370663" /f >nul 2>&1
) else (
reg delete "%OSPP%\59a52881-a989-479d-af46-f275c6370663" /f >nul 2>&1
reg delete "%OSPP%\0ff1ce15-a989-479d-af46-f275c6370663" /f >nul 2>&1
)
goto :eof
:Clear
wmic path %spp% where ID='%app%' call ClearKeyManagementServiceMachine >nul 2>&1
wmic path %spp% where ID='%app%' call ClearKeyManagementServicePort >nul 2>&1
goto :eof
:======================================================================================================================================================
:Extract$OEM$
cls
mode con cols=98 lines=30
echo ==================================================================================
echo Luu y: Tuy chon nay se tao thu muc $OEM$ cua Script Kich hoat tren Desktop,
echo Ban co the su dung no de tao file iso tu kich hoat khi cai dat Win.
echo De biet them thong tin, hay su dung lua chon [3].
echo ==================================================================================
echo.
choice /C:QT /N /M "[T] Tao thu muc $OEM$ [Q] Quay lai : "
if %errorlevel%==1 Goto:MainMenu
cls
echo WScript.Echo WScript.CreateObject^("WScript.Shell"^).SpecialFolders^("Desktop"^) >"%temp%\desktop.vbs"
for /f "tokens=* delims=" %%a in ('cscript //nologo "%temp%\desktop.vbs"') do (set DESKTOPDIR=%%a&del "%temp%\desktop.vbs">nul)
cd /d "%desktopdir%"
IF EXIST $OEM$ (
echo.
echo.
echo ================================================
echo Loi - Thu muc $OEM$ khong duoc tao vi co mot
echo thu muc $OEM$ da ton tai tren Desktop.
echo ================================================
echo.
echo Nhan phim bat ky de tiep tuc...
pause >nul
goto:MAINMENU
) ELSE (
md $OEM$\$$\Setup\Scripts\
)
call :create_file %0 "%desktopdir%\$OEM$\$$\Setup\Scripts\SetupComplete.cmd" "REM $OEM$ Folder Start" "REM $OEM$ Folder End"
goto :$OEM$FolderCreated
REM $OEM$ Folder Start
@Echo off
schtasks /delete /tn Online_KMS_Activation_Script-Renewal /f 1>nul 2>nul
schtasks /delete /tn Online_KMS_Activation_Script-Run_Once /f 1>nul 2>nul
@RD /s /q "%windir%\Online_KMS_Activation_Script" >nul 2>&1
md "%windir%\Online_KMS_Activation_Script"
call :create_file %0 "%temp%\temp_cmd_file" "REM (Re)activate cmd Start" "REM (Re)activate cmd End"
echo @echo off^&set "Renewal_Task=1">"%temp%\temp_echo_file"
copy /y "%temp%\temp_echo_file" + "%temp%\temp_cmd_file" "C:\Windows\Online_KMS_Activation_Script\Online_KMS_Activation_Script-Renewal.cmd" >nul
echo @echo off^&set "Run_Once=1">"%temp%\temp_echo_file"
copy /y "%temp%\temp_echo_file" + "%temp%\temp_cmd_file" "C:\Windows\Online_KMS_Activation_Script\Online_KMS_Activation_Script-Run_Once.cmd" >nul
del /q "%temp%\temp_cmd_file" >nul & del /q "%temp%\temp_echo_file" >nul
call :create_file %0 "%temp%\Online_KMS_Activation_Script-Renewal.xml" "REM (Re)activate xml Start" "REM (Re)activate xml End"
call :create_file %0 "%temp%\Online_KMS_Activation_Script-Run_Once.xml" "REM Run_Once xml Start" "REM Run_Once xml End"
call :create_file %0 "C:\Windows\Online_KMS_Activation_Script\Info.txt" "REM Info Start" "REM Info End"
goto :SetupCompleteFinal
::
REM (Re)activate cmd Start
@echo off
::===========================================================================
fsutil dirty query %systemdrive% >nul 2>&1 || (
echo ================================================================
echo ==== LOI ====
echo Script nay yeu cau quyen Quan tri he thong. De Script hoat dong.
echo Hay nhap chuot phai vao file .cmd va chon 'Run as administrator'
echo ================================================================
echo.
echo Nhan phim bat ky de thoat...
pause >nul
exit
)
::===========================================================================
set Online=1
set KMS_IP=172.16.0.2
set KMS_Port=1688
If defined Renewal_Task call :Re_Activate>>"%windir%\Online_KMS_Activation_Script\logfile.txt"&exit
If defined Run_Once call :Re_Activate>>"%windir%\Online_KMS_Activation_Script\logfile.txt"&exit
:Re_Activate
echo ==============================================
Echo Ngay : %date% Gio : %time%
echo ==============================================
Echo.
set /a loop=1&set/a max_loop=1
if defined Renewal_Task set /a max_loop=3
if defined Run_Once set /a max_loop=5
:repeat
Echo Kiem tra Ket noi Internet...
ping 8.8.8.8 -n 1 -w 10000 > nul || (
if %loop%== %max_loop% (
echo Internet khong duoc Ket noi.
if defined Renewal_Task Exit 1651565635 & Rem Dummy Numbers To Show Error In Task
if defined Run_Once Exit 1651565635 & Rem Dummy Numbers To Show Error In Task
echo.
echo Nhan phim bat ky de tiep tuc...
pause >nul
goto:EOF
)
echo Waiting 30 s&timeout /t 30>nul
set /a loop=%loop%+1
goto repeat
)
echo Internet duoc Ket noi.
setlocal EnableExtensions EnableDelayedExpansion
set "servers="
set "servers=%servers% kms.srv.crsoo.c"
set "servers=%servers%om"
set "servers=%servers% kms.loli.b"
set "servers=%servers%eer"
set "servers=%servers% kms8.MSGuides.c"
set "servers=%servers%om"
set "servers=%servers% kms9.MSGuides.c"
set "servers=%servers%om"
set "servers=%servers% kms.zhuxiaole.o"
set "servers=%servers%or"
set "servers=%servers% kms.lolico.m"
set "servers=%servers%oe"
set "servers=%servers% kms.moeclub.o"
set "servers=%servers%rg"
set "servers=%servers% kms.mrxn.n"
set "servers=%servers%et"
set "servers=%servers% kms.digiboy.i"
set "servers=%servers%r"
set "servers=%servers% kms.chinancce.c"
set "servers=%servers%om"
set "servers=%servers% hq1.chinancce.c"
set "servers=%servers%om"
set "servers=%servers% kms.library.h"
set "servers=%servers%k"
set "servers=%servers% kms.03k.o"
set "servers=%servers%rg"
set "servers=%servers% cy2617.jios.o"
set "servers=%servers%rg"
set "servers=%servers% kms.cangshui.n"
set "servers=%servers%et"
set "servers=%servers% kms.v0v.b"
set "servers=%servers%id"
set "servers=%servers% kms.jm33.m"
set "servers=%servers%e"
set "servers=%servers% nb.shenqw.w"
set "servers=%servers%in"
set "servers=%servers% kms.izetn.c"
set "servers=%servers%n"
set "servers=%servers% kms.cin.i"
set "servers=%servers%nk"
set "servers=%servers% kms.ijio.n"
set "servers=%servers%et"
set "servers=%servers% kms.iaini.n"
set "servers=%servers%et"
set "servers=%servers% kms.cnlic.c"
set "servers=%servers%om"
set "servers=%servers% kms.51it.w"
set "servers=%servers%ang"
set "servers=%servers% key.17108.c"
set "servers=%servers%om"
set "servers=%servers% kms.ddns.n"
set "servers=%servers%et"
set "servers=%servers% windows.kms.a"
set "servers=%servers%pp"
set "servers=%servers% kms.ddz.r"
set "servers=%servers%ed"
set "servers=%servers% franklv.ddns.n"
set "servers=%servers%et"
set "servers=%servers% kms.mogeko.m"
set "servers=%servers%e"
set "servers=%servers% k.zpale.c"
set "servers=%servers%om"
set "servers=%servers% amrice.t"
set "servers=%servers%op"
set "servers=%servers% m.zpale.c"
set "servers=%servers%om"
set "servers=%servers% mvg.zpale.c"
set "servers=%servers%om"
set "servers=%servers% kms.shuax.c"
set "servers=%servers%om"
set "servers=%servers% xykz.f3322.o"
set "servers=%servers%rg"
set "servers=%servers% kms789.c"
set "servers=%servers%om"
set "servers=%servers% kms.ymgblog.c"
set "servers=%servers%om"
set "servers=%servers% kms.bige0.c"
set "servers=%servers%om"
set "servers=%servers% kms.cz9.c"
set "servers=%servers%n"
set "servers=%servers% kms.ddddg.c"
set "servers=%servers%n"
set "servers=%servers% kms.lotro.c"
set "servers=%servers%c"
set "servers=%servers% zh.us.t"
set "servers=%servers%o"
set n=1&for %%a in (%servers%) do (set server[!n!]=%%a&set /A n+=1)&set /a max_servers=!n!-1
set server_num=1
:server
set /a activation_ok=1
if %server_num% gtr !max_servers! (
if defined Renewal_Task (echo Khong co May chu KMS. Dang thoat...&exit 1651565635 rem Dummy Numbers To Show Error In Task)
if defined Run_Once (echo Khong co May chu KMS. Dang thoat...&exit 1651565635 rem Dummy Numbers To Show Error In Task)
echo Khong co May chu KMS, Nhan phim bat ky de tiep tuc & pause>nul & goto:EOF)
set KMS_IP=!server[%server_num%]!
echo. &echo Dang thu voi May chu KMS %KMS_IP% &echo.
cd /d "%~dp0"
IF /I "%PROCESSOR_ARCHITECTURE%" EQU "AMD64" (set xOS=x64) else (set xOS=Win32)
for /f "tokens=6 delims=[]. " %%G in ('ver') do set winbuild=%%G
if %winbuild% GEQ 9600 (
reg.exe add "HKLM\SOFTWARE\Policies\Microsoft\Windows NT\CurrentVersion\Software Protection Platform" /v NoGenTicket /t REG_DWORD /d 1 /f >nul 2>&1
)
if %winbuild% LSS 9200 set win7=1
if %winbuild% LSS 14393 goto :Main
SET "RegKey=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\Packages"
SET "Pattern=Microsoft-Windows-*Edition~31bf3856ad364e35"
SET "EditionPKG=NUL"
FOR /F "TOKENS=8 DELIMS=\" %%A IN ('REG QUERY "%RegKey%" /f "%Pattern%" /k 2^>NUL ^| FIND /I "CurrentVersion"') DO (
REG QUERY "%RegKey%\%%A" /v "CurrentState" 2>NUL | FIND /I "0x70" 1>NUL && (
FOR /F "TOKENS=3 DELIMS=-~" %%B IN ('ECHO %%A') DO SET "EditionPKG=%%B"
)
)
IF /I "%EditionPKG:~-7%"=="Edition" (
SET "EditionID=%EditionPKG:~0,-7%"
) ELSE (
FOR /F "TOKENS=3 DELIMS=: " %%A IN ('DISM /English /Online /Get-CurrentEdition 2^>NUL ^| FIND /I "Current Edition :"') DO SET "EditionID=%%A"
)
FOR /F "TOKENS=2 DELIMS==" %%A IN ('"WMIC PATH SoftwareLicensingProduct WHERE (Name LIKE 'Windows%%' AND PartialProductKey is not NULL) GET LicenseFamily /VALUE"') DO IF NOT ERRORLEVEL 1 SET "EditionWMI=%%A"
IF NOT DEFINED EditionWMI (
IF %winbuild% GEQ 17063 FOR /F "SKIP=2 TOKENS=3 DELIMS= " %%A IN ('REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionId') DO SET "EditionID=%%A"
GOTO :Main
)
FOR %%A IN (Cloud,CloudN) DO (IF /I "%EditionWMI%"=="%%A" GOTO :Main)
SET EditionID=%EditionWMI%
:Main
for %%A in (14,15,16) do call :officeLoc %%A
call :SPP
call :OSPP
del /f /q sppchk.txt >nul 2>&1
del /f /q osppchk.txt >nul 2>&1
echo.
if %activation_ok%==0 (
echo Kich hoat khong thanh cong. Dang thu mot may chu khac.
set /a server_num+=1
goto :server
)
if defined Renewal_Task (echo Dang thoat...&exit)
if defined Run_Once (schtasks /delete /tn Online_KMS_Activation_Script-Run_Once /f 1>nul 2>nul &del /f /q %windir%\Online_KMS_Activation_Script\Online_KMS_Activation_Script-Run_Once.cmd >nul 2>&1 &echo Dang thoat...&exit)
Echo.
echo Nhan phim bat ky de tiep tuc.
pause>nul
Goto:EOF
:SPP
set spp=SoftwareLicensingProduct
set sps=SoftwareLicensingService
if %loc_off15% equ 0 if %loc_off16% equ 0 (set "aword=Khong duoc Cai dat") else (set "aword=Khong ho tro Kich hoat qua KMS")
wmic path %spp% where (Description like '%%KMSCLIENT%%') get Name 2>nul | findstr /i Office 1>nul && (set office15=1) || (if not defined win7 echo.&echo Phat hien San pham Office 2013/2016/2019 %aword% ...)
wmic path %spp% where (Description like '%%KMSCLIENT%%') get Name 2>nul | findstr /i Windows 1>nul && (set WinVL=1) || (echo.&echo Phat hien Windows Khong ho tro KMS Client...)
if not defined office15 if not defined WinVL exit /b
wmic path %spp% where (Description like '%%KMSCLIENT%%' and PartialProductKey is not NULL) get Name 2>nul | findstr /i Windows 1>nul && (set gvlk=1) || (set gvlk=0)
for /f "tokens=2 delims==" %%A in ('"wmic path %sps% get Version /VALUE"') do set ver=%%A
wmic path %sps% where version='%ver%' call SetKeyManagementServiceMachine MachineName="%KMS_IP%" >nul 2>&1
wmic path %sps% where version='%ver%' call SetKeyManagementServicePort %KMS_Port% >nul 2>&1
for /f "tokens=2 delims==" %%G in ('"wmic path %spp% where (Description like '%%KMSCLIENT%%') get ID /VALUE"') do (set app=%%G&call :sppchk)
wmic path %sps% where version='%ver%' call DisableKeyManagementServiceDnsPublishing 0 >nul 2>&1
wmic path %sps% where version='%ver%' call DisableKeyManagementServiceHostCaching 0 >nul 2>&1
exit /b
:sppchk
wmic path %spp% where ID='%app%' get Name > sppchk.txt
find /i "Office" sppchk.txt 1>nul && (set office=1) || (set office=0)
find /i "Office 15" sppchk.txt 1>nul && (if %loc_off15% equ 0 exit /b)
find /i "Office 16" sppchk.txt 1>nul && (if %loc_off16% equ 0 exit /b)
find /i "Office 19" sppchk.txt 1>nul && (if %loc_off16% equ 0 exit /b)
if %office% equ 0 wmic path %spp% where ID='%app%' get LicenseStatus | findstr "1" >nul 2>&1 && (echo.&call :activate %app%&exit /b)
wmic path %spp% where (PartialProductKey is not NULL) get ID | findstr /i "%app%" >nul 2>&1 && (echo.&call :activate %app%&exit /b)
if %office% equ 1 (call :offchk15&exit /b) else (if %gvlk% equ 1 exit /b)
if %winbuild% LSS 10240 (call :winchk&exit /b)
for %%A in (
b71515d9-89a2-4c60-88c8-656fbcca7f3a,af43f7f0-3b1e-4266-a123-1fdb53f4323b,075aca1f-05d7-42e5-a3ce-e349e7be7078
11a37f09-fb7f-4002-bd84-f3ae71d11e90,43f2ab05-7c87-4d56-b27c-44d0f9a3dabd,2cf5af84-abab-4ff0-83f8-f040fb2576eb
6ae51eeb-c268-4a21-9aae-df74c38b586d,ff808201-fec6-4fd4-ae16-abbddade5706,34260150-69ac-49a3-8a0d-4a403ab55763
4dfd543d-caa6-4f69-a95f-5ddfe2b89567,5fe40dd6-cf1f-4cf2-8729-92121ac2e997,903663f7-d2ab-49c9-8942-14aa9e0a9c72
2cc171ef-db48-4adc-af09-7c574b37f139,5b2add49-b8f4-42e0-a77c-adad4efeeeb1
) do (
if /i '%app%' equ '%%A' exit /b
)
if not defined EditionID (call :winchk&exit /b)
if /i '%app%' equ '0df4f814-3f57-4b8b-9a9d-fddadcd69fac' if /i %EditionID% neq CloudE exit /b
if /i '%app%' equ 'ec868e65-fadf-4759-b23e-93fe37f2cc29' if /i %EditionID% neq ServerRdsh exit /b
if /i '%app%' equ 'e4db50ea-bda1-4566-b047-0ca50abc6f07' if /i %EditionID% neq ServerRdsh exit /b
if /i '%app%' equ 'e0c42288-980c-4788-a014-c080d2e1926e' if /i %EditionID% neq Education exit /b
if /i '%app%' equ '73111121-5638-40f6-bc11-f1d7b0d64300' if /i %EditionID% neq Enterprise exit /b
if /i '%app%' equ '2de67392-b7a7-462a-b1ca-108dd189f588' if /i %EditionID% neq Professional exit /b
if /i '%app%' equ '3f1afc82-f8ac-4f6c-8005-1d233e606eee' if /i %EditionID% neq ProfessionalEducation exit /b
if /i '%app%' equ '82bbc092-bc50-4e16-8e18-b74fc486aec3' if /i %EditionID% neq ProfessionalWorkstation exit /b
if /i '%app%' equ '3c102355-d027-42c6-ad23-2e7ef8a02585' if /i %EditionID% neq EducationN exit /b
if /i '%app%' equ 'e272e3e2-732f-4c65-a8f0-484747d0d947' if /i %EditionID% neq EnterpriseN exit /b
if /i '%app%' equ 'a80b5abf-76ad-428b-b05d-a47d2dffeebf' if /i %EditionID% neq ProfessionalN exit /b
if /i '%app%' equ '5300b18c-2e33-4dc2-8291-47ffcec746dd' if /i %EditionID% neq ProfessionalEducationN exit /b
if /i '%app%' equ '4b1571d3-bafb-4b40-8087-a961be2caf65' if /i %EditionID% neq ProfessionalWorkstationN exit /b
if /i '%app%' equ '58e97c99-f377-4ef1-81d5-4ad5522b5fd8' if /i %EditionID% neq Core exit /b
if /i '%app%' equ 'cd918a57-a41b-4c82-8dce-1a538e221a83' if /i %EditionID% neq CoreSingleLanguage exit /b
call :winchk
exit /b
:OSPP
set spp=OfficeSoftwareProtectionProduct
set sps=OfficeSoftwareProtectionService
if defined win7 (set "aword=2010/2013/2016/2019") else (set "aword=2010")
wmic path %sps% get Version >nul 2>&1 || (echo.&echo Phat hien San pham Office %aword% Khong duoc Cai dat...&exit /b)
wmic path %spp% where (Description like '%%KMSCLIENT%%') get Name >nul 2>&1 || (echo.&echo Phat hien San pham Office %aword% Khong Ho tro Kich hoat qua KMS ...&exit /b)
for /f "tokens=2 delims==" %%A in ('"wmic path %sps% get Version /VALUE" 2^>nul') do set ver=%%A
wmic path %sps% where version='%ver%' call SetKeyManagementServiceMachine MachineName="%KMS_IP%" >nul 2>&1
wmic path %sps% where version='%ver%' call SetKeyManagementServicePort %KMS_Port% >nul 2>&1
for /f "tokens=2 delims==" %%G in ('"wmic path %spp% where (Description like '%%KMSCLIENT%%') get ID /VALUE"') do (set app=%%G&call :osppchk)
wmic path %sps% where version='%ver%' call DisableKeyManagementServiceDnsPublishing 0 >nul 2>&1
wmic path %sps% where version='%ver%' call DisableKeyManagementServiceHostCaching 0 >nul 2>&1
exit /b
:osppchk
wmic path %spp% where ID='%app%' get Name > osppchk.txt
find /i "Office 14" osppchk.txt 1>nul && (set off14=1&if %loc_off14% equ 0 exit /b) || (set off14=0)
find /i "Office 15" osppchk.txt 1>nul && (if %loc_off15% equ 0 exit /b)
find /i "Office 16" osppchk.txt 1>nul && (if %loc_off16% equ 0 exit /b)
find /i "Office 19" osppchk.txt 1>nul && (if %loc_off16% equ 0 exit /b)
set office=0
wmic path %spp% where ID='%app%' get LicenseStatus | findstr "1" >nul 2>&1 && (echo.&call :activate %app%&exit /b)
wmic path %spp% where (PartialProductKey is not NULL) get ID | findstr /i "%app%" >nul 2>&1 && (echo.&call :activate %app%&exit /b)
if %off14% equ 1 (call :offchk14) else (call :offchk15)
exit /b
:winchk
echo.
wmic path %spp% where (LicenseStatus='1' and Description like '%%KMSCLIENT%%') get Name 2>nul | findstr /i "Windows" >nul 2>&1 && (exit /b)
wmic path %spp% where (LicenseStatus='1' and GracePeriodRemaining='0' and PartialProductKey is not NULL) get Name 2>nul | findstr /i "Windows" >nul 2>&1 && (
for /f "tokens=2 delims==" %%x in ('"wmic path %spp% where ID='%app%' get Name /VALUE"') do echo Kiem tra: %%x
echo San pham duoc Kich hoat Vinh Vien.
exit /b
)
call :insKey %app%
exit /b
:offchk
set ls=0
set ls2=0
for /f "tokens=2 delims==" %%A in ('"wmic path %spp% where (Name like '%%Office%~2%%') get LicenseStatus /VALUE" 2^>nul') do set /a ls=%%A
if "%~4" neq "" (
for /f "tokens=2 delims==" %%A in ('"wmic path %spp% where (Name like '%%Office%~4%%') get LicenseStatus /VALUE" 2^>nul') do set /a ls2=%%A
)
if "%ls2%" equ "1" (
echo Kiem tra: %5
echo San pham duoc Kich hoat Vinh Vien.
exit /b
)
if "%ls%" equ "1" (
echo Kiem tra: %3
echo San pham duoc Kich hoat Vinh Vien.
exit /b
)
call :insKey %app%
exit /b
:offchk15
if /i '%app%' equ '0bc88885-718c-491d-921f-6f214349e79c' exit /b
if /i '%app%' equ 'fc7c4d0c-2e85-4bb9-afd4-01ed1476b5e9' exit /b
if /i '%app%' equ '500f6619-ef93-4b75-bcb4-82819998a3ca' exit /b
if /i '%app%' equ '85dd8b5f-eaa4-4af3-a628-cce9e77c9a03' (
wmic path %spp% where 'PartialProductKey is not NULL' get ID | findstr /i "0bc88885-718c-491d-921f-6f214349e79c" 1>nul 2>nul && (exit /b)
)
if /i '%app%' equ '2ca2bf3f-949e-446a-82c7-e25a15ec78c4' (
wmic path %spp% where 'PartialProductKey is not NULL' get ID | findstr /i "fc7c4d0c-2e85-4bb9-afd4-01ed1476b5e9" 1>nul 2>nul && (exit /b)
)
if /i '%app%' equ '5b5cf08f-b81a-431d-b080-3450d8620565' (
wmic path %spp% where 'PartialProductKey is not NULL' get ID | findstr /i "500f6619-ef93-4b75-bcb4-82819998a3ca" 1>nul 2>nul && (exit /b)
)
if /i '%app%' equ '85dd8b5f-eaa4-4af3-a628-cce9e77c9a03' (
call :offchk "%app%" "19ProPlus2019VL_MAK_AE" "Office ProPlus 2019" "19ProPlus2019XC2RVL_MAKC2R" "Office ProPlus 2019 C2R"
exit /b
)
if /i '%app%' equ '6912a74b-a5fb-401a-bfdb-2e3ab46f4b02' (
call :offchk "%app%" "19Standard2019VL_MAK_AE" "Office Standard 2019"
exit /b
)
if /i '%app%' equ '2ca2bf3f-949e-446a-82c7-e25a15ec78c4' (
call :offchk "%app%" "19ProjectPro2019VL_MAK_AE" "Project Pro 2019" "19ProjectPro2019XC2RVL_MAKC2R" "Project Pro 2019 C2R"
exit /b
)
if /i '%app%' equ '1777f0e3-7392-4198-97ea-8ae4de6f6381' (
call :offchk "%app%" "19ProjectStd2019VL_MAK_AE" "Project Standard 2019"
exit /b
)
if /i '%app%' equ '5b5cf08f-b81a-431d-b080-3450d8620565' (
call :offchk "%app%" "19VisioPro2019VL_MAK_AE" "Visio Pro 2019" "19VisioPro2019XC2RVL_MAKC2R" "Visio Pro 2019 C2R"
exit /b
)
if /i '%app%' equ 'e06d7df3-aad0-419d-8dfb-0ac37e2bdf39' (
call :offchk "%app%" "19VisioStd2019VL_MAK_AE" "Visio Standard 2019"
exit /b
)
if /i '%app%' equ 'd450596f-894d-49e0-966a-fd39ed4c4c64' (
call :offchk "%app%" "16ProPlusVL_MAK" "Office ProPlus 2016"
exit /b
)
if /i '%app%' equ 'dedfa23d-6ed1-45a6-85dc-63cae0546de6' (
call :offchk "%app%" "16StandardVL_MAK" "Office Standard 2016"
exit /b
)
if /i '%app%' equ '4f414197-0fc2-4c01-b68a-86cbb9ac254c' (
call :offchk "%app%" "16ProjectProVL_MAK" "Project Pro 2016"
exit /b
)
if /i '%app%' equ 'da7ddabc-3fbe-4447-9e01-6ab7440b4cd4' (
call :offchk "%app%" "16ProjectStdVL_MAK" "Project Standard 2016"
exit /b
)
if /i '%app%' equ '6bf301c1-b94a-43e9-ba31-d494598c47fb' (
call :offchk "%app%" "16VisioProVL_MAK" "Visio Pro 2016"
exit /b
)
if /i '%app%' equ 'aa2a7821-1827-4c2c-8f1d-4513a34dda97' (
call :offchk "%app%" "16VisioStdVL_MAK" "Visio Standard 2016"
exit /b
)
if /i '%app%' equ '829b8110-0e6f-4349-bca4-42803577788d' (
call :offchk "%app%" "16ProjectProXC2RVL_MAKC2R" "Project Pro 2016 C2R"
exit /b
)
if /i '%app%' equ 'cbbaca45-556a-4416-ad03-bda598eaa7c8' (
call :offchk "%app%" "16ProjectStdXC2RVL_MAKC2R" "Project Standard 2016 C2R"
exit /b
)
if /i '%app%' equ 'b234abe3-0857-4f9c-b05a-4dc314f85557' (
call :offchk "%app%" "16VisioProXC2RVL_MAKC2R" "Visio Pro 2016 C2R"
exit /b
)
if /i '%app%' equ '361fe620-64f4-41b5-ba77-84f8e079b1f7' (
call :offchk "%app%" "16VisioStdXC2RVL_MAKC2R" "Visio Standard 2016 C2R"
exit /b
)
if /i '%app%' equ 'b322da9c-a2e2-4058-9e4e-f59a6970bd69' (
call :offchk "%app%" "ProPlusVL_MAK" "Office ProPlus 2013"
exit /b
)
if /i '%app%' equ 'b13afb38-cd79-4ae5-9f7f-eed058d750ca' (
call :offchk "%app%" "StandardVL_MAK" "Office Standard 2013"
exit /b
)
if /i '%app%' equ '4a5d124a-e620-44ba-b6ff-658961b33b9a' (
call :offchk "%app%" "ProjectProVL_MAK" "Project Pro 2013"
exit /b
)
if /i '%app%' equ '427a28d1-d17c-4abf-b717-32c780ba6f07' (
call :offchk "%app%" "ProjectStdVL_MAK" "Project Standard 2013"
exit /b
)
if /i '%app%' equ 'e13ac10e-75d0-4aff-a0cd-764982cf541c' (
call :offchk "%app%" "VisioProVL_MAK" "Visio Pro 2013"
exit /b
)
if /i '%app%' equ 'ac4efaf0-f81f-4f61-bdf7-ea32b02ab117' (
call :offchk "%app%" "VisioStdVL_MAK" "Visio Standard 2013"
exit /b
)
call :insKey %app%
exit /b
:offchk14
set "vPrem="&set "vPro="
for /f "tokens=2 delims==" %%A in ('"wmic path %spp% where (Name like '%%OfficeVisioPrem-MAK%%') get LicenseStatus /VALUE" 2^>nul') do set vPrem=%%A
for /f "tokens=2 delims==" %%A in ('"wmic path %spp% where (Name like '%%OfficeVisioPro-MAK%%') get LicenseStatus /VALUE" 2^>nul') do set vPro=%%A
if /i '%app%' equ '6f327760-8c5c-417c-9b61-836a98287e0c' (
call :offchk "%app%" "ProPlus-MAK" "Office ProPlus 2010" "ProPlusAcad-MAK" "Office Professional Academic 2010"
exit /b
)
if /i '%app%' equ '9da2a678-fb6b-4e67-ab84-60dd6a9c819a' (
call :offchk "%app%" "Standard-MAK" "Office Standard 2010"
exit /b
)
if /i '%app%' equ 'ea509e87-07a1-4a45-9edc-eba5a39f36af' (
call :offchk "%app%" "SmallBusBasics-MAK" "Office Home and Business 2010"
exit /b
)
if /i '%app%' equ 'df133ff7-bf14-4f95-afe3-7b48e7e331ef' (
call :offchk "%app%" "ProjectPro-MAK" "Project Pro 2010"
exit /b
)
if /i '%app%' equ '5dc7bf61-5ec9-4996-9ccb-df806a2d0efe' (
call :offchk "%app%" "ProjectStd-MAK" "Project Standard 2010"
exit /b
)
if /i '%app%' equ '92236105-bb67-494f-94c7-7f7a607929bd' (
call :offchk "%app%" "VisioPrem-MAK" "Visio Premium 2010" "VisioPro-MAK" "Visio Pro 2010"
exit /b
)
if defined _vPrem exit /b
if /i '%app%' equ 'e558389c-83c3-4b29-adfe-5e4d7f46c358' (
call :offchk "%app%" "VisioPro-MAK" "Visio Pro 2010" "VisioStd-MAK" "Visio Standard 2010"
exit /b
)
if defined _vPro exit /b
if /i '%app%' equ '9ed833ff-4f92-4f36-b370-8683a4f13275' (
call :offchk "%app%" "VisioStd-MAK" "Visio Standard 2010"
exit /b
)
call :insKey %app%
exit /b
:officeLoc
set loc_off%1=0
for /f "tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\%1.0\Common\InstallRoot /v Path" 2^>nul') do if exist "%%b\OSPP.VBS" set loc_off%1=1
for /f "tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\%1.0\Common\InstallRoot /v Path" 2^>nul') do if exist "%%b\OSPP.VBS" set loc_off%1=1
if exist "%ProgramFiles%\Microsoft Office\Office%1\OSPP.VBS" set loc_off%1=1
if exist "%ProgramFiles(x86)%\Microsoft Office\Office%1\OSPP.VBS" set loc_off%1=1
exit /b
:insKey
set "ka=echo keys.Add"
(echo edition = "%1"
echo Set keys = CreateObject ^("Scripting.Dictionary"^)
echo.
echo 'Windows 10
%ka% "58e97c99-f377-4ef1-81d5-4ad5522b5fd8", "TX9XD-98N7V-6WMQ6-BX7FG-H8Q99" 'Home
%ka% "7b9e1751-a8da-4f75-9560-5fadfe3d8e38", "3KHY7-WNT83-DGQKR-F7HPR-844BM" 'Home N
%ka% "cd918a57-a41b-4c82-8dce-1a538e221a83", "7HNRX-D7KGG-3K4RQ-4WPJ4-YTDFH" 'Home Single Language
%ka% "a9107544-f4a0-4053-a96a-1479abdef912", "PVMJN-6DFY6-9CCP6-7BKTT-D3WVR" 'Home China
%ka% "2de67392-b7a7-462a-b1ca-108dd189f588", "W269N-WFGWX-YVC9B-4J6C9-T83GX" 'Pro
%ka% "a80b5abf-76ad-428b-b05d-a47d2dffeebf", "MH37W-N47XK-V7XM9-C7227-GCQG9" 'Pro N
%ka% "3f1afc82-f8ac-4f6c-8005-1d233e606eee", "6TP4R-GNPTD-KYYHQ-7B7DP-J447Y" 'Pro Education
%ka% "5300b18c-2e33-4dc2-8291-47ffcec746dd", "YVWGF-BXNMC-HTQYQ-CPQ99-66QFC" 'Pro Education N