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
De fapt, mai devreme am postat un soluție similară care a folosit PowerShell. dar mulți utilizatori s-au plâns că eșuează pentru ei. PowerShell ar putea necesita abilități suplimentare ale utilizatorilor și modificări suplimentare pentru a rula cmdlet-uri nesemnate.
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
- Deschideți Notepad.
- 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 - 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”.
- Acum deschideți fișierul BackupWindowsKey.vbs
- 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 .