Постоји много алата за издвајање кључа производа из живог система или из кошнице регистра офлајн рачунара. Уз то, ево уредног малог Вбсцрипт-а који добија кључ производа тренутне Виндовс инсталације - није потребан трећи програм. Скрипта ради на Виндовс 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) Енд Фунцтион "Спремање података у датотеку Функција Саве (Дата) Дим фсо, фНаме, ткт, објсхелл, УсерНаме Сет објсхелл = ЦреатеОбјецт (" всцрипт). схелл ") 'Добивање тренутног корисничког имена УсерНаме = објсхелл.ЕкпандЕнвиронментСтрингс ("% УсерНаме% ")" Направите текстуалну датотеку на радној површини фНаме = "Ц: \ Усерс \" & УсерНаме & "\ Десктоп \ ВиндовсКеиИнф о.ткт "Постави фсо = ЦреатеОбјецт (" Сцриптинг.ФилеСистемОбјецт ") Постави ткт = фсо.ЦреатеТектФиле (фНаме) ткт.Државни подаци ткт.Затворите крајњу функцију Извор: Преузми Виндовс Продуцт Кеи · ГитХуб
Двапут кликните да бисте покренули скрипту и сазнали кључ производа за вашу Виндовс инсталацију.
