Како прегледати свој кључ производа Виндовс 10 помоћу скрипте

2019-09-25 18:27:05
Главни·Microsoft·Како прегледати свој кључ производа Виндовс 10 помоћу скрипте

Постоји много алата за издвајање кључа производа из живог система или из кошнице регистра офлајн рачунара. Уз то, ево уредног малог Вбсцрипт-а који добија кључ производа тренутне Виндовс инсталације - није потребан трећи програм. Скрипта ради на Виндовс 7, 8 и Виндовс 10.

Погледајте кључ производа Виндовс 10 помоћу скрипте

Копирајте следећи код у Нотепад и сачувајте датотеку као ГетПродуцтКеи.вбс.

 Опција Изричит Дим објсхелл, патх, ДигиталИД, Ресулт Сет објсхелл = ЦреатеОбјецт ("ВСцрипт.Схелл") 'Сет патх кеи патх Патх = "ХКЛМ \ СОФТВАРЕ \ Мицрософт \ Виндовс НТ \ ЦуррентВерсион \"' Вредност кључа регистра ДигиталИД = објсхелл.РегРеад (Патх & "ДигиталПродуцтИд") Дим ПродуцтНаме, ПродуцтИД, ПродуцтКеи, ПродуцтДата "Набавите ПродуцтНаме, ПродуцтИД, ПродуцтКеи ПродуцтНаме =" Име производа: "& објсхелл.РегРеад (Патх &" ПродуцтНаме ") ПродуцтИД =" ИД производа: "& објсхелл. РегРеад (Патх & "ПродуцтИД") ПродуцтКеи = "Инсталирани кључ:" & ЦонвертТоКеи (ДигиталИД) ПродуцтДата = ПродуцтНаме & вбНевЛине & ПродуцтИД & вбНевЛине & ПродуцтКеи "Покажи мессбок ако сачувате у датотеку Иф вбИес = МсгБок (ПродуцтДата & вблф & вблф & "Спреми у датотеку?", ВбИесНо + вбКуестион, "Бацкуп Виндовс Кеи Кеи Информатион"), а затим сачувај ПродуцтДата Енд ако 'Претвори бинарни низ у функцију ЦонвертТоКеи (Кеи) Цонст КеиОффсет = 52 Дим исВин8, Мапс, и, ј, Цуррент, КеиОутпут, Последњи, кеипарт1, уметните „Проверите да ли је ОС Виндовс 8 исВин8 = (Кеи (66) \ 6) И 1 Кеи (66) = (Типка (66) И & ХФ7) Или ((исВин8 И 2) * 4) и = 24 Мапс = "БЦДФГХЈКМПКРТВВКСИ2346789" До Цуррент = 0 ј = 14 До Цуррент = Цуррент * 256 Цуррент = Кеи (ј + КеиОффсет) + Цуррент Кеи (ј + КеиОффсет) = (Цуррент \ 24) Цуррент = Цуррент Мод 24 ј = ј -1 Петља док ј> = 0 и = и -1 КеиОутпут = Мид (Мапс, Цуррент + 1, 1) & КеиОутпут Ласт = Цуррент петља Док је и> = 0 Ако је (исВин8 = 1) онда кеипарт1 = Мид (КеиОутпут, 2, Ласт) уметните = "Н" КеиОутпут = Замените (КеиОутпут, кеипарт1, кеипарт1 и уметните, 2, 1, 0) Ако је последњи = 0 тада КеиОутпут = убаци & КеиОутпут крај ако ЦонвертТоКеи = Мид (КеиОутпут, 1, 5) & "-" & Мид (КеиОутпут, 6, 5) & "-" & Мид (КеиОутпут, 11, 5) & "-" & Мид ( КеиОутпут, 16, 5) & "-" & Мид (КеиОутпут, 21, 5) Енд Фунцтион "Спремање података у датотеку Функција Саве (Дата) Дим фсо, фНаме, ткт, објсхелл, УсерНаме Сет објсхелл = ЦреатеОбјецт (" всцрипт). схелл ") 'Добивање тренутног корисничког имена УсерНаме = објсхелл.ЕкпандЕнвиронментСтрингс ("% УсерНаме% ")" Направите текстуалну датотеку на радној површини фНаме = "Ц: \ Усерс \" & УсерНаме & "\ Десктоп \ ВиндовсКеиИнф о.ткт "Постави фсо = ЦреатеОбјецт (" Сцриптинг.ФилеСистемОбјецт ") Постави ткт = фсо.ЦреатеТектФиле (фНаме) ткт.Државни подаци ткт.Затворите крајњу функцију 

Извор: Преузми Виндовс Продуцт Кеи · ГитХуб

Двапут кликните да бисте покренули скрипту и сазнали кључ производа за вашу Виндовс инсталацију.

Избор Уредника