Получаем ключ установленной ОС Windows 10 с помощью скрипта на VB





Этот пост поможет вам найти свой лицензионный ключ для Windows 10 с помощью VB-скрипта.

Но я могу также добавить, что этот способ работает на Windows 8.1, Windows 7 и более ранних версиях тоже.

Откройте блокнот, скопируйте и вставьте в него следующий код:

Set WshShell = CreateObject("WScript.Shell")
MsgBox GetToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function GetToKey(KeyWindows)
Const Offset = 52
j = 28
ChrS = "BCDFGHJKMPQRTVWXY2346789"
Do
CurS = 0
x1 = 14
Do
CurS = CurS * 256
CurS = KeyWindows(x1 + Offset) + CurS
KeyWindows(x1 + Offset) = (CurS \ 24) And 255
CurS = CurS Mod 24
x1 = x1 -1
Loop While x1 >= 0
j = j -1
Output = Mid(ChrS, CurS + 1, 1) & Output
If (((29 - j) Mod 6) = 0) And (j <> -1) Then
j = j -1
Output = "-" & Output
End If
Loop While j >= 0
GetToKey = Output
End Function

Нажмите в блокноте ->Сохранит как-> в диалоговом окне в Имя файла напишите-> SearchKey.vbs или любое другое название, главное чтобы расширение файла было vbs.

Далее выберите в поле Тип файла -> Все файлы (.*.) и нажмите на кнопку Сохранить.

Теперь запустите этот файл — просто кликните левой кнопкой мыши по нему, и вы увидите ваш ключ продукта для Windows 10.

Один комментарий к “Получаем ключ установленной ОС Windows 10 с помощью скрипта на VB”

  1. На разных компах этот VB-скрипт выдаёт одинаковый ключ-почему? (10-ка ставилась обновлением)

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

*