Узнать ключ Windows 11, 10, 8, 7 VBS-скрипт
Рет қаралды 14,470
2 жыл бұрынЧтобы скопировать скрипт как видео, идем сюда
delalsam.blogspot.com/2021/08...
Скрипт просто копирует параметры с реестра и объединяет данные в один ключ. Работает на вин7,8,10,11 - проверено.
Как узнать ключ Windows 11
а так же Как узнать ключ Windows 10
еще Как узнать ключ Windows 8.1
опять Как узнать ключ Windows 7
Нужно просто запустить вбс скрипт и получить нужную информацию - ключ появится у вас на экране.
@Artur_07 Жыл бұрын
Спасибо тебе большое за то, что помог, и за то, что показал что скрипт безвреден... на виндовс 11 сработало как показано на видео (выдал ключ на виндовс 10 Pro... как я понял, предыдущий владелец обновял мой ноутбук до 11-ой версии)
@ANDRYS-js3dg 5 ай бұрын
Спасибо! Работает на win 10 pro. Виндовс с официального сайта.
@K-Prizrak 11 ай бұрын
Попробовал. Появилась надпись: Windows Script Host Строка: 85 Символ: 5 Ошибка: Предполагается наличие 'Function' Код: 800A03F7 Источник: Ошибка компиляции Microsoft VBScript До этого пробовал по другой инструкции в вышло подобное сообщение, но вот так: Строка: 55 Символ: 53 Ошибка: Предполагается наличие 'Loop' Код: 800A03FB
@PRODvigateL 11 ай бұрын
скорее всего когда копировали код, строка перенеслась в другую строку, отсюда и ошибка. попробуйте отсюда скопировать. сейчас запустил на вин 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
@urapritula6711 Жыл бұрын
Огромное спасибо!!!!!!
@slywin8558 2 жыл бұрын
у меня выдает рабочий ключ а не материнки.
@dust3316 2 жыл бұрын
Приветствую,заменил мат плату лицензия слетела,вожу ключь который был(стоял) не действителен?
@PRODvigateL 2 жыл бұрын
привет. лицензия может подойти на 2-3 компа примерно, больше не даст и возможно вообще не даст активировать, даже там где стояла. матплату или процессор поменял - уже другой компьютер - может подойти лицензия может нет. Редакцию виндовс не перепутали? может стояла домашняя а ставите про?
@dust3316 2 жыл бұрын
@@PRODvigateL не редакция тоже про была,активировал KMS ) поменялся ключ,вел ключ подошел,во как)
@PRODvigateL 2 жыл бұрын
@@dust3316 интересно, )
@user-pi8tr7zw6i 2 жыл бұрын
Скрипт работает,вроде безвредный
@krushon Жыл бұрын
благодарю
@flying_joker112 Жыл бұрын
Все работает
@user-zt4mq4vs7j Жыл бұрын
Красава
@nikolaitch7578 Жыл бұрын
Что-то VBS-скрипт тупит, у мен на двух разных компах один и тот же ключ
@PRODvigateL Жыл бұрын
может быть. ключ одинаковый, а показывает разные?
@nikolaitch7578 Жыл бұрын
@@PRODvigateL нет на двух разных компах key одинаковые, разные id
@invisible13.37 Жыл бұрын
что делать если просто выводит куча B
@PRODvigateL Жыл бұрын
если иероглифы, то как то кодировку системы нужно поменять. я не помню. или если виндовс типа ltsb ltsc - может из за этого. этот код выводит с обычных виндовс- домашней, про
@Maryyyyyyyyyyyy Жыл бұрын
Мне пишет что ключ продукта не подходит что делать
@PRODvigateL Жыл бұрын
Вы, наверное, не правильно поняли. Этот скрипт только показывает уже установленный ключ. И все. Установка ключей - это другое. Ищите другой ключ.
@Maryyyyyyyyyyyy Жыл бұрын
@@PRODvigateL А как найти другой ключ?
@PRODvigateL Жыл бұрын
@@Maryyyyyyyyyyyy можно найти на Авито - откройте список бу сломанных ноутбуков - ищите наклейки и берете ключ от вин 7 Домашняя. только 10ка тоже нужна домашняя обязательно. Или просто не активируете - все будет итак работать, просто черный экран на рабочем столе и его не поменять.
@004ham 2 жыл бұрын
На 8 скрипт работал, а на 10 и 11 выдаёт номер вида BBBB BBBB BBBB BBBB. Вот так вот.
@PRODvigateL 2 жыл бұрын
Я понял. На 10ке у меня работало. Когда недавно ставил инсайдер префью вин 11 - было тоже так же . Так же когда запускал на ней мсай автобернер то в настройках были китайские иероглифы. Я подумал это как то связано. Что то с кодировкой. Сейчас стоит официальная вин11 - как видите работает.
@PRODvigateL 2 жыл бұрын
Виндовс у вас не русская была и вы скачали русский пакет - не так?
@004ham 2 жыл бұрын
@@PRODvigateL У меня была официальная русская 8.1, затем она обновилась до 10, потом ещё выходили новые сборки 10 и она так же обновлялась до новых версий, потом уже 6 октября обновил до 11. Так вот, как я понял, за эти годы обновлений что-то нарушилось в винде, так как уже на какой-то сборке десятки я пробовал запустить этот скрипт, но получил всё те же ВВВВВ-ВВВВВ и так далее. Что интересно, и Аида так же определяла ключ продукта: ВВВВВ-ВВВВВ-ВВВВВ.... Так вот сегодня я решил произвести чистую установку Windows, поставил - и скрипт сработал, ключ показывает корректно.
@monexyy_me3571 2 ай бұрын
хз я когда виндовс 10 скачивал ниче не писалось типо не правильно говорилось
@ivashka8840 Жыл бұрын
Всё сделал как на видео.Выдаёт ошибку.
@PRODvigateL Жыл бұрын
что за ошибка? если китайские иероглифы - значит кодировка виндовс, где то как то ее нужно поменять, я не помню уже.
@ivashka8840 Жыл бұрын
@@PRODvigateL- Нет не иероглифы.Прошло вроде,тока теперь в ключе написано-нет данных.
@ivashka8840 Жыл бұрын
@@PRODvigateL- И кстати.Появилось много скрытых папок,которые и не откроешь и не удалишь без разрешения админа.Папки появились в диске куда я закачиваю всякое разное,не системная.
@PRODvigateL Жыл бұрын
@@ivashka8840 папки не из за скрипта же появились. Что то их там создает. А если ключа нет, значит, наверное пиратка или активатором каким то пользовались
@noLKWD_vital Жыл бұрын
У меня вместо ключа, пишет BBBBB-BBBBB-BBBBB-BBBBB-BBBBB
@PRODvigateL Жыл бұрын
бывает. иногда китайские иероглифы. что то с кодировкой системы
@Pcmaster2023ver Күн бұрын
На системе Windows xp работает этот скрипт
@doxidoom Жыл бұрын
показало все кроме ключа активации
@PRODvigateL Жыл бұрын
😆
@user-fi8ju5sz3x Жыл бұрын
не получается
@PRODvigateL Жыл бұрын
каракули выходят наверное. нужно как то кодировку в настройках поменять, сейчас уже не помню.
@user-fi8ju5sz3x Жыл бұрын
@@PRODvigateL да
@user-ig9yr9ce6x Ай бұрын
скрипт бесполезен - выдает 11 версии ввввввввввввввввввввввв. это некорректные данные
Юрий Изучаем компьютер
Рет қаралды 18 М.
Безумный TV
Рет қаралды 99 М.
Welson
Рет қаралды 4,8 МЛН
Ты Первый
Рет қаралды 399 М.
Юрий про компьютер
Рет қаралды 1,4 М.
CopyPasta
Рет қаралды 56 М.
Nir Gaming
Рет қаралды 2,9 МЛН