Ако сте загубили или сте забравили къде сте съхранили продуктовия ключ на Windows, имам решение за вас. Днес ще видим как прост VBS скрипт може да се използва, за да ни покаже продуктовия ключ на инсталирано копие на Windows 10, Windows 8 или Windows 7. Това е просто решение за извличане на продуктовия ключ от операционната система, инсталирана на вашия компютър, без използване на софтуер на трети страни. Ето ни.
Реклама
Всъщност по-рано публикувах подобно решение който използва PowerShell. но много потребители се оплакаха, че това им се проваля. PowerShell може да изисква допълнителни потребителски умения и допълнителни ощипвания за стартиране на неподписани кратки команди.
как да използвам музикален бот в раздор
В сравнение с PowerShell, това VBScript решение е почти перфектно. Всичко, което трябва да направите, е просто да щракнете върху файла. Да се прегледайте продуктовия ключ на Windows 10
- Отворете Notepad.
- Копирайте и поставете следния текст в прозореца на Notepad
Опция Изрично Dim objshell, път, DigitalID, Резултат Set objshell = CreateObject ('WScript.Shell') 'Задаване на път на ключ на системния регистър Path =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion '' Стойност на ключа на системния регистър DigitalID = objshell.RegRead (Path & 'DigitalProductId') Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName =' Product Name: '& objshell.RegRead (Path &' ProductName ') ProductID =' Product ID: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Инсталиран ключ:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Показване на касата, ако се запише във файл Ако vbYes = MsgBox (ProductData & vblf & vblf & vblf & vblf & vblf & vblf & vblf & „Запазване във файл?“, VbYesNo + vbQuestion, „Архивиране на информация за Windows Key“), след това Save ProductData End If „Преобразуване на двоичен файл в символи Функция ConvertToKey (ключ) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Последно, keypart1, вмъкнете „Проверете дали ОС е Windows 8 isWin8 = (Key (66) 6) И 1 Key (66) = (Key (66) And & HF7) Или ((isWin8 And 2) * 4) i = 24 Maps = 'BCDFGHJKMPQRTVWXY2346789' Do Current = 0 j = 14 Do Current = Current * 256 Current = Key (j + KeyOffset) + Current Key (j + KeyOffset) = (Current 24) Current = Current Mod 24 j = j -1 Loop While j> = 0 i = i -1 KeyOutput = Mid (Maps, Current + 1, 1) & KeyOutput Last = Current Loop Докато i> = 0 Ако (isWin8 = 1) Тогава keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Тогава KeyOutput = insert & KeyOutput End If ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) End Function 'Запазване на данни във файл Функция Запазване (данни) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Получете текущо потребителско име UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Създайте текстов файл на работния плот fName =' C: Users '& UserName &' Desktop WindowsKeyI nfo.txt 'Set fso = CreateObject (' Scripting.FileSystemObject ') Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Function - Запазете текста по-горе във файл с разширението '.vbs' на работния плот.
Бонус съвет: За да сте сигурни, че записвате файла правилно с разширението „.vbs“, можете да въведете името му, затворено в двойни кавички, например „BackupWindowsKey.vbs“.
- Сега отворете вашия файл BackupWindowsKey.vbs
- Voila, вие продуктовият ключ се показва на екрана!
Щракнете тук, за да изтеглите файла BackupWindowsKey.vbs
Тествах този трик на Windows 7, Windows 8 и Windows 10. Той работи безотказно във всички споменати операционни системи. Кредити: nononsence @ MDL .
