Cum să vizualizați cheia de produs în Windows 10, Windows 8 și Windows 7

Dacă ați pierdut sau ați uitat unde ați stocat cheia de produs Windows, am o soluție pentru dvs. Astăzi vom vedea cum poate fi folosit un simplu script VBS pentru a ne arăta cheia de produs a unei copii instalate a Windows 10, Windows 8 sau Windows 7. Este o soluție simplă pentru a extrage cheia de produs din sistemul de operare instalat pe computerul dvs. fără folosind orice software terță parte. Începem.

Reclama

poți înregistra pe google meet

Comparativ cu PowerShell, această soluție VBScript este aproape perfectă. Tot ce trebuie să faceți este să faceți clic pe fișier. La vizualizați cheia de produs Windows 10

1. Deschideți Notepad.
2. Copiați și lipiți următorul text în fereastra Notepad

   Opțiune Explicit Dim obiectshell, cale, DigitalID, set de rezultate objshell = CreateObject ('WScript.Shell') 'Setați calea cheii de registry Path =' HKLM  SOFTWARE  Microsoft  Windows NT  CurrentVersion  'Valoarea cheii de registry DigitalID = objshell.RegRead (Path & 'DigitalProductId') Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName =' Nume produs: '& objshell.RegRead (Path &' ProductName ') ProductID =' ID produs: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Cheie instalată:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Afișează mesajul dacă se salvează într-un fișier Dacă vbYes = MsgBox (ProductData & vblf & vblf & „Salvați într-un fișier?”, VbDa Nu + vbQuestion, „BackUp Informații cheie Windows”) apoi Salvați ProductData Sfârșit Dacă „Convertiți binar în caractere Funcție ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Last, keypart1, introduceți „Verificați dacă sistemul de operare este Windows 8 isWin8 = (Key (66)  6) Și 1 Key (66) = (Tasta (66) Și & HF7) Sau ((isWin8 Și 2) * 4) i = 24 Hărți = 'BCDFGHJKMPQRTVWXY2346789' Faceți curent = 0 j = 14 Faceți curent = Curent * 256 Curent = Tasta (j + KeyOffset) + Curent 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 În timp ce i> = 0 Dacă (isWin8 = 1) Atunci keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Înlocuire (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then 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 'Salvați datele într-un fișier Funcție Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Obțineți numele de utilizator curent UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Creați un fișier text pe desktop 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

3. Salvați textul de mai sus într-un fișier cu extensia „.vbs” de pe desktop.
   Sfat bonus: Pentru a vă asigura că salvați corect fișierul cu extensia „.vbs”, puteți introduce numele acestuia în ghilimele duble, de exemplu, „BackupWindowsKey.vbs”.
   
4. Acum deschideți fișierul BackupWindowsKey.vbs
5. Voila, cheia dvs. de produs este afișată pe ecran!
   

Faceți clic aici pentru a descărca fișierul BackupWindowsKey.vbs

Am testat acest truc pe Windows 7, Windows 8 și Windows 10. Funcționează impecabil în toate sistemele de operare menționate. Credite: nononsence @ MDL .