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