Како да видите кључ производа у Виндовс 10, Виндовс 8 и Виндовс 7

Ако сте изгубили или заборавили где сте сачували свој Виндовс кључ производа, имам решење за вас. Данас ћемо видети како се једноставна ВБС скрипта може користити да нам покаже шифру производа инсталиране копије оперативног система Виндовс 10, Виндовс 8 или Виндовс 7. То је једноставно решење за екстраховање кључа производа из ОС инсталираног на вашем рачунару без коришћења софтвера треће стране. Идемо.

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

У поређењу са ПоверСхелл-ом, ово ВБСцрипт решење је скоро савршено. Све што треба да урадите је да кликнете на датотеку. До погледајте кључ производа за Виндовс 10

1. Отворите Нотепад.
2. Копирајте и налепите следећи текст у прозор Нотепад

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

3. Сачувајте горњи текст у датотеку са екстензијом „.вбс“ на радној површини.
   Бонус савет: Да бисте били сигурни да сте исправно сачували датотеку са екстензијом „.вбс“, можете да откуцате њено име у двоструким наводницима, на пример, „БацкупВиндовсКеи.вбс“.
   
4. Сада отворите датотеку БацкупВиндовсКеи.вбс
5. Воила, ваш кључ производа је приказан на екрану!
   

Кликните овде да бисте преузели датотеку БацкупВиндовсКеи.вбс

Тестирао сам овај трик на Виндовс 7, Виндовс 8 и Виндовс 10. Ради беспрекорно у свим поменутим оперативним системима. Заслуге: нонсенс @ МДЛ.