Product key windows vbs

Как узнать ключ активации Windows

В данной статье показаны действия, с помощью которых можно узнать ключ активации в операционной системе Windows.

Нередко пользователи сталкиваются с необходимостью переустановить лицензионную Windows. Особенностью установки операционной системы, в данном случае, является необходимость ввода ключа активации, без которого система будет функционировать с некоторыми ограничениями. Что делать, если ключ активации потерян или наклейка на ноутбуке стерлась? Ответ на данный вопрос вы найдете ниже.

Определение ключа с помощью VBScript

Создайте в любом удобном месте текстовый файл, например на рабочем столе и переименуйте его в WindowsKey.

Откройте созданный ранее текстовый файл в текстовом редакторе (по умолчанию в блокноте) и скопируйте в него следующий код:

Set WshShell = CreateObject(«WScript.Shell»)
regKey = «HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\»
DigitalProductId = WshShell.RegRead(regKey & «DigitalProductId»)
Win8ProductName = «Windows Product Name: » & WshShell.RegRead(regKey & «ProductName») & vbNewLine
Win8ProductID = «Windows Product ID: » & WshShell.RegRead(regKey & «ProductID») & vbNewLine
Win8ProductKey = ConvertToKey(DigitalProductId)
strProductKey =»Windows 8 Key: » & Win8ProductKey
Win8ProductID = Win8ProductName & Win8ProductID & strProductKey
MsgBox(Win8ProductKey)
MsgBox(Win8ProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin8 = (regKey(66) \\ 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin8 And 2) * 4)
j = 24
Chars = «BCDFGHJKMPQRTVWXY2346789»
Do
Cur = 0
y = 14
Do
Cur = Cur * 256
Cur = regKey(y + KeyOffset) + Cur
regKey(y + KeyOffset) = (Cur \\ 24)
Cur = Cur Mod 24
y = y -1
Loop While y >= 0
j = j -1
winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput
Last = Cur
Loop While j >= 0
If (isWin8 = 1) Then
keypart1 = Mid(winKeyOutput, 2, Last)
insert = «N»
winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then winKeyOutput = insert & winKeyOutput
End If
a = Mid(winKeyOutput, 1, 5)
b = Mid(winKeyOutput, 6, 5)
c = Mid(winKeyOutput, 11, 5)
d = Mid(winKeyOutput, 16, 5)
e = Mid(winKeyOutput, 21, 5)
ConvertToKey = a & «-» & b & «-» & c & «-» & d & «-» & e
End Function

Затем нажмите сочетание клавиш Ctrl + S чтобы сохранить изменения в файле.

Читайте также:  Clean memory для windows

Далее измените расширение файла на .vbs

Теперь дважды щёлкните по файлу WindowsKey.vbs, и после этого появится окно с вашим ключом активации.

Далее нажмите кнопку OK, появится ещё одно окно с более подробной информацией.

Также при необходимости можно скачать zip-архив с файлом WindowsKey.vbs

Команды для проверки активации

slmgr /dli — отображение сведений о лицензии

slmgr /dlv — отображение подробных сведений о лицензии

slmgr /xpr — отображение даты окончания активации

Эти команды выполняются в командной строке открытой от имени администратора.

Для отображения сведений о лицензии выполните команду slmgr /dli

Откроется окно сведений о лицензии.

Для отображения подробных сведений о лицензии выполните команду slmgr /dlv

Откроется окно подробных сведений о лицензии.

Для отображения даты окончания активации выполните команду slmgr /xpr

Откроется окно отображения даты окончания активации.

Как узнать Windows key?

Бывают разные ситуации когда может потребоваться узнать windows ключ или Windows key как он еще называется, на данный момент самая актуальная ситуация, это покупка ноутбука с предустановленной Windows. Если раньше к покупке шел в комплекте диск с кодом, то сейчас все зашито и перепрошито в самом ноутбуке. И любая чистая перестановка системы допустим с windows 10 на windows 7 или любые другие комбинации, несет в себе риск полного удаления резервной копии системы (на этапе установки удаление buckup раздела) Поэтому желательно во избежании экономии нервных клеток нужно обязательно перед покупкой сделать на любой носитель бекап системы и сохранить ключ продукта Windows.
Если первый вариант с бекапом это информация не одной статьи и по времени ни одного дня, то второй вариант делается за считанные секунды!

1 Вариант: Узнаем Product key через командную строку

Это по мне самый простой и легкий способ узнать ключ продукта windows и не требующий ни чего скачивать и создавать, все делается в командной строке. Для начало я приведу список всех команд которыми мы будем пользоваться:

  • slmgr /dli — отображение сведений о лицензии.
  • slmgr /dlv — отображение подробных сведений о лицензии.
  1. открываем командную строку (Пуск -> набираем CMD и нажимаем Enter ) у нас должна появится такая вот консоль:
  2. Набираем в командной строке команду slmgr /dli и нам откроется сведения о лицензии
  3. либо воспользуемся второй командой которая введет нам подробные сведения о лицензии slmgr /dlv

Предисловие: данная команда slmgr умеет делать еще и другие действия:

slmgr /xpr — отображает дату окончания активации
slmgr.vbs /skms — установка имени или порта KMS.
slmgr.vbs /ato — активация Windows.

slmgr.vbs /rearm — сброс активации, возврат в триальное состояние.
slmgr.vbs /ipk — установка ключа продукта.
slmgr.vbs /upk — удаление ключа продукта.
slmgr.vbs /cpky — удаление ключа продукта из реестра (предотвращение хищения).

Так что пользуйтесь на здоровье 🙂 ))

2 Вариант: Узнаем Windows key с помощью скрипта

Для того что бы узнать Windows key или ключ продукта Windows для этого нужно сделать всего пару простых действия:

Читайте также:  0x80072efd обновление windows 10

1) Создать текстовый документ
2) Вставить в него след код:

3) Сохраняем файл

4) Файл нужно сохранить в формате VBS

5) После этого запускаем наш файл и переписываем наш

Вот такой, незамысловатый способ что бы быстро узнать свой ключ windows 🙂

Download View Product Key in Windows VBS script

View Product Key in Windows VBS script.

This script will allow you to see the product key of the installed Windows 10, Windows 8 and Windows 7.

Download ‘View Product Key in Windows VBS script’

Winaero greatly relies on your support. You can help the site keep bringing you interesting and useful content and software by using these options:

Share this post

About Sergey Tkachenko

Sergey Tkachenko is a software developer from Russia who started Winaero back in 2011. On this blog, Sergey is writing about everything connected to Microsoft, Windows and popular software. Follow him on Telegram, Twitter, and YouTube.

Connect with us

We discontinued Facebook to deliver our post updates.

Subscribe

Windows 10 change log

Useful posts

Recently updated

Friendly Blogs

Privacy Overview

Necessary cookies are absolutely essential for the website to function properly. This category only includes cookies that ensures basic functionalities and security features of the website. These cookies do not store any personal information.

Any cookies that may not be particularly necessary for the website to function and is used specifically to collect user personal data via analytics, ads, other embedded contents are termed as non-necessary cookies. It is mandatory to procure user consent prior to running these cookies on your website.

eyecatchup / get-win7-productkey.vbs

‘ VBS Script to get the Windows(R) 7 Product Key from a PC’s registry.
‘ Save the VBScript as «getWin7Key.vbs» somewhere on your Windows7 PC.
‘ Now, when you double-click the local script file an alertbox pops up
‘ displaying the product key stored in the machine’s Windows registry.
Set WshShell = WScript.CreateObject( «WScript.Shell» )
KeyPath = «HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId»
MsgBox ExtractKey(WshShell.RegRead(KeyPath))
Function ExtractKey(KeyInput)
Const KeyOffset = 52
i = 28
CharWhitelist = «BCDFGHJKMPQRTVWXY2346789»
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = KeyInput(x + KeyOffset) + Cur
KeyInput(x + KeyOffset) = (Cur \ 24 ) And 255
Cur = Cur Mod 24
x = x — 1
Loop While x >= 0
i = i — 1
KeyOutput = Mid(CharWhitelist, Cur + 1 , 1 ) & KeyOutput
If ((( 29 — i) Mod 6 ) = 0 ) And (i <> — 1 ) Then
i = i — 1
KeyOutput = «-» & KeyOutput
End If
Loop While i >= 0
ExtractKey = KeyOutput
End Function

This comment has been minimized.

Copy link Quote reply

sunsprite commented Dec 2, 2015

Thank you so much! This is much better than using downloaded applications, which gave me concern that my Key would be pirated.

This comment has been minimized.

Copy link Quote reply

k00sa commented Jan 22, 2016

Can u explain me how to modify source code to load registry from custom folder. Fox example i exported registry to my C:\user\desktop.
and can i somehow load in that way ? (: or just put hex string from registry to .txt and then read ? (:

Читайте также:  Lexicon alpha driver windows

This comment has been minimized.

Copy link Quote reply

SinaAnderson commented Jul 28, 2016

Hi,
Thanks for the great code. How do you change it to save/add the output to a text file? I want to run this on my domain computers.
Many thanks,
Sina

This comment has been minimized.

Copy link Quote reply

ffansszi commented Oct 12, 2016

This comment has been minimized.

Copy link Quote reply

ghost commented Dec 30, 2016

To display key in console run cscript.exe get-win7-productkey.vbs
to save it to file: cscript.exe get-win7-productkey.vbs > key.txt

This comment has been minimized.

Copy link Quote reply

ctooth16 commented Jan 21, 2017

You can also just click on the MsgBox popup and press CTRL+C and paste the output into a text file.

This comment has been minimized.

Copy link Quote reply

cononda commented Jan 23, 2017 •

To dawjan
display key in console run cscript.exe get-win7-productkey.vbs
to save it to file: cscript.exe get-win7-productkey.vbs > key.txt

Thanks for this but I get the textfile as follow:
Microsoft (R) Windwos Script Host, Version 5.8
Copyright (R) Microsoft Corporation 1996-2001. Alle Rechte Vorbehalten.

No key written in the file. Any recommendations?

PS running the script only I get the Product Key displayed in a Popupwindows.

This comment has been minimized.

Copy link Quote reply

tRekiP commented Mar 3, 2017

Where i have to write it? Im newbie in these registry and others.. Start -> Registy (some file) -> copy that command -> past here?

This comment has been minimized.

Copy link Quote reply

windowskeys commented Mar 7, 2017

For friends who wanna windows 7 product key,visit this page: www.vip4sale.com Fast delivery, and the keys are genuine!

This comment has been minimized.

Copy link Quote reply

windowskeys commented Mar 15, 2017

Check here: http://www.microsoftonlinekey.com , you will find many CHEAP Microsoft keys.

This comment has been minimized.

Copy link Quote reply

Manskerty commented Jun 24, 2017

Never mind , the Windows Password recovery tool may be a effective software for us to solve this problem ,
Here is a tutorial that you can get more steps about how to recover Windows Password :https://www.recoverywindowspassword.com/reset-windows-7-login-password-in-3-ways.html

This comment has been minimized.

Copy link Quote reply

CristinaHopkins commented Sep 8, 2017

Go site http://www.vanskeys.com to get genuine windows key here.

This comment has been minimized.

Copy link Quote reply

private2020 commented Feb 17, 2019

‘ VBS Script to get the Windows(R) 7 Product Key from a PC’s registry.

‘ Save the VBScript as «getWin7Key.vbs» somewhere on your Windows7 PC.

‘ Now, when you double-click the local script file an alertbox pops up

‘ displaying the product key stored in the machine’s Windows registry.

Set WshShell = WScript.CreateObject(«WScript.Shell»)

KeyPath = «HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId»

Оцените статью