Så här visar du din produktnyckel i Windows 10, Windows 8 och Windows 7

Om du tappade bort eller glömde var du hade lagrat din Windows-produktnyckel har jag en lösning för dig. Idag kommer vi att se hur ett enkelt VBS-skript kan användas för att visa oss produktnyckeln för en installerad kopia av Windows 10, Windows 8 eller Windows 7. Det är en enkel lösning för att extrahera din produktnyckel från operativsystemet som är installerat på din PC utan att använda någon programvara från tredje part. Nu kör vi.

Faktiskt, tidigare skrev jag ett liknande lösning som använde PowerShell. men många användare klagade på att det misslyckades för dem. PowerShell kan kräva ytterligare användarkunskaper och extra tweaks för att köra osignerade cmdlets.

Jämfört med PowerShell är denna VBScript-lösning nästan perfekt. Allt du behöver göra är att klicka på filen. Till visa din Windows 10-produktnyckel

1. Öppna Anteckningar.
2. Kopiera och klistra in följande text i fönstret Anteckningar

   Alternativ Explicit. Dim objshell, sökväg, DigitalID, Resultat. Ställ in objshell = CreateObject("WScript. Shell") 'Ställ in registernyckelsökväg = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Registernyckelvärde DigitalID = objshell. RegRead (sökväg & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName = "Produktnamn: " & objshell. RegRead (Path & "ProductName") ProductID = "Produkt-ID: " & objshell. RegRead (Path & "ProductID") ProductKey = "Installerad nyckel: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Visa meddelandelåda om sparas till en fil. Om vbYes = MsgBox (ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information"), spara produktdata. Avsluta om. 'Konvertera binärt till tecken Funktion ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, infoga 'Kontrollera om OS är Windows 8 isWin8 = (Key (66) \ 6) And 1 Key (66) = (Key (66) Och &HF7) Eller ((isWin8 And 2) * 4) i = 24 Maps = "BCDFGHJKMPQRTVWXY2346789" Gör Ström= 0 j = 14 Gör Ström = Aktuell * 256 Current = Key (j + KeyOffset) + Current Key (j + KeyOffset) = (Current \ 24) Current=Current Mod 24 j = j -1 Loop Medan j >= 0 i = i -1 KeyOutput = Mid (Kartor, Current+ 1, 1) & KeyOutput Last = Aktuell loop medan i >= 0. If (isWin8 = 1) Then keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Ersätt (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then KeyOutput = infoga & KeyOutput End If. ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" & Mitten (KeyOutput, 21, 5) Slutfunktion 'Spara data till en fil Funktion Spara (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'Hämta aktuell Användarnamn. Användarnamn = objshell. ExpandEnvironmentStrings("%UserName%") 'Skapa en textfil på skrivbordet. fName = "C:\Users\" & Användarnamn & "\Desktop\WindowsKeyInfo.txt" Ställ in fso = CreateObject("Skript. FileSystemObject") Ställ in txt = fso. CreateTextFile (fName) txt. Writeline Data txt. Stäng slutfunktion 
   

3. Spara texten ovan i en fil med filtillägget ".vbs" på skrivbordet.
   Bonustips: För att vara säker på att du sparar filen korrekt med tillägget ".vbs" kan du skriva in dess namn inom citattecken, till exempel "BackupWindowsKey.vbs".
   
4. Öppna nu filen BackupWindowsKey.vbs
5. Voila, din produktnyckel visas på skärmen!
   

Klicka här för att ladda ner filen BackupWindowsKey.vbs

Jag testade det här tricket på Windows 7, Windows 8 och Windows 10. Det fungerar felfritt i alla nämnda operativsystem. Krediter: nononsence @ MDL.