Узнать ключ Windows 11, 10, 8, 7 VBS-скрипт
ฝัง
- เผยแพร่เมื่อ 2 พ.ย. 2024
- Чтобы скопировать скрипт как видео, идем сюда
delalsam.blogs...
Скрипт просто копирует параметры с реестра и объединяет данные в один ключ. Работает на вин7,8,10,11 - проверено.
Как узнать ключ Windows 11
а так же Как узнать ключ Windows 10
еще Как узнать ключ Windows 8.1
опять Как узнать ключ Windows 7
Нужно просто запустить вбс скрипт и получить нужную информацию - ключ появится у вас на экране.
Спасибо!
Работает на win 10 pro.
Виндовс с официального сайта.
Спасибо тебе большое за то, что помог, и за то, что показал что скрипт безвреден... на виндовс 11 сработало как показано на видео (выдал ключ на виндовс 10 Pro... как я понял, предыдущий владелец обновял мой ноутбук до 11-ой версии)
Попробовал. Появилась надпись:
Windows Script Host
Строка: 85
Символ: 5
Ошибка: Предполагается наличие 'Function'
Код: 800A03F7
Источник: Ошибка компиляции Microsoft VBScript
До этого пробовал по другой инструкции в вышло подобное сообщение, но вот так:
Строка: 55
Символ: 53
Ошибка: Предполагается наличие 'Loop'
Код: 800A03FB
скорее всего когда копировали код, строка перенеслась в другую строку, отсюда и ошибка.
попробуйте отсюда скопировать. сейчас запустил на вин 11 - все работает.
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 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
Огромное спасибо!!!!!!
у меня выдает рабочий ключ а не материнки.
виндовс 7 работает прекрасно!
Все работает
Красава
Приветствую,заменил мат плату лицензия слетела,вожу ключь который был(стоял) не действителен?
привет. лицензия может подойти на 2-3 компа примерно, больше не даст и возможно вообще не даст активировать, даже там где стояла. матплату или процессор поменял - уже другой компьютер - может подойти лицензия может нет. Редакцию виндовс не перепутали? может стояла домашняя а ставите про?
@@PRODvigateL не редакция тоже про была,активировал KMS ) поменялся ключ,вел ключ подошел,во как)
@@dust3316 интересно, )
что делать если просто выводит куча B
если иероглифы, то как то кодировку системы нужно поменять. я не помню.
или если виндовс типа ltsb ltsc - может из за этого. этот код выводит с обычных виндовс- домашней, про
благодарю
Мне пишет что ключ продукта не подходит что делать
Вы, наверное, не правильно поняли. Этот скрипт только показывает уже установленный ключ. И все.
Установка ключей - это другое. Ищите другой ключ.
@@PRODvigateL А как найти другой ключ?
@@Maryyyyyyyyyyyy можно найти на Авито - откройте список бу сломанных ноутбуков - ищите наклейки и берете ключ от вин 7 Домашняя. только 10ка тоже нужна домашняя обязательно.
Или просто не активируете - все будет итак работать, просто черный экран на рабочем столе и его не поменять.
Скрипт работает,вроде безвредный
хз я когда виндовс 10 скачивал ниче не писалось типо не правильно говорилось
Что-то VBS-скрипт тупит, у мен на двух разных компах один и тот же ключ
может быть. ключ одинаковый, а показывает разные?
@@PRODvigateL нет на двух разных компах key одинаковые, разные id
создай ключь заново на 2 компе
Всё сделал как на видео.Выдаёт ошибку.
что за ошибка? если китайские иероглифы - значит кодировка виндовс, где то как то ее нужно поменять, я не помню уже.
@@PRODvigateL- Нет не иероглифы.Прошло вроде,тока теперь в ключе написано-нет данных.
@@PRODvigateL- И кстати.Появилось много скрытых папок,которые и не откроешь и не удалишь без разрешения админа.Папки появились в диске куда я закачиваю всякое разное,не системная.
@@ivashka8840 папки не из за скрипта же появились. Что то их там создает. А если ключа нет, значит, наверное пиратка или активатором каким то пользовались
У меня вместо ключа, пишет BBBBB-BBBBB-BBBBB-BBBBB-BBBBB
бывает. иногда китайские иероглифы. что то с кодировкой системы
не получается
каракули выходят наверное. нужно как то кодировку в настройках поменять, сейчас уже не помню.
@@PRODvigateL да
На системе Windows xp работает этот скрипт
На 8 скрипт работал, а на 10 и 11 выдаёт номер вида BBBB BBBB BBBB BBBB. Вот так вот.
Я понял. На 10ке у меня работало. Когда недавно ставил инсайдер префью вин 11 - было тоже так же . Так же когда запускал на ней мсай автобернер то в настройках были китайские иероглифы. Я подумал это как то связано. Что то с кодировкой.
Сейчас стоит официальная вин11 - как видите работает.
Виндовс у вас не русская была и вы скачали русский пакет - не так?
@@PRODvigateL У меня была официальная русская 8.1, затем она обновилась до 10, потом ещё выходили новые сборки 10 и она так же обновлялась до новых версий, потом уже 6 октября обновил до 11. Так вот, как я понял, за эти годы обновлений что-то нарушилось в винде, так как уже на какой-то сборке десятки я пробовал запустить этот скрипт, но получил всё те же ВВВВВ-ВВВВВ и так далее. Что интересно, и Аида так же определяла ключ продукта: ВВВВВ-ВВВВВ-ВВВВВ.... Так вот сегодня я решил произвести чистую установку Windows, поставил - и скрипт сработал, ключ показывает корректно.
скрипт бесполезен - выдает 11 версии ввввввввввввввввввввввв. это некорректные данные
показало все кроме ключа активации
😆