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

Om du har tappat bort eller glömt var du har 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 till en installerad kopia av Windows 10, Windows 8 eller Windows 7. Det är en enkel lösning att extrahera din produktnyckel från operativsystemet installerat på din dator utan använder någon tredje parts programvara. Nu kör vi.

Annons

hur man ställer in eldpinne på Xbox One

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

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

   Alternativ Explicit Dim objshell, path, DigitalID, Result Set objshell = CreateObject ('WScript.Shell') 'Ställ in registernyckel sökväg =' HKLM  SOFTWARE  Microsoft  Windows NT  CurrentVersion  '' Registernyckelvärde DigitalID = objshell.RegRead (Path & 'DigitalProductId') Dim produktnamn, ProductID, ProductKey, ProductData 'Hämta ProductName, ProductID, ProductKey ProductName =' Product Name: '& objshell.RegRead (Path &' ProductName ') ProductID =' Product ID: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Installerad nyckel:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Visa meddelanderuta om spara i en fil Om vbYes = MsgBox (ProductData & vblf & vblf & 'Spara till en fil?', VbYesNo + vbQuestion, 'BackUp Windows Key Information') spara sedan produktdata Slut om 'Konvertera binär till tecken Funktion ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Sista, knappsats1, infoga 'Kontrollera om OS är Windows 8 isWin8 = (Key (66)  6) And 1 Key (66) = (Nyckel (66) Och & HF7) Eller ((isWin8 och 2) * 4) i = 24 Kartor = 'BCDFGHJKMPQRTVWXY2346789' Gör ström = 0 j = 14 Gör ström = Ström * 256 Ström = Knapp (j + KeyOffset) + Ström Nyckel (j + KeyOffset) = (Ström  24) Ström = Ström Mod 24 j = j -1 Loop Medan j> = 0 i = i -1 KeyOutput = Mid (Maps, Current + 1, 1) & KeyOutput Last = Current Loop Medan i> = 0 If (isWin8 = 1) Då tangentbord1 = Mid (KeyOutput, 2, Senaste) insert = 'N' KeyOutput = Byt ut (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) Slutfunktion 'Spara data i en fil Funktion Spara (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Hämta nuvarande användarnamn UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Skapa en textfil på skrivbordet fName =' C:  Users  '& UserName &'  Desktop  WindowsKeyI nfo.txt 'Set fso = CreateObject (' Scripting.FileSystemObject ') Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt. Stäng slutfunktionen

3. Spara texten ovan till en fil med tillägget '.vbs' på skrivbordet.
   Bonustips: För att se till att du sparar filen korrekt med tillägget '.vbs' kan du skriva namnet i dubbla citat, till exempel 'BackupWindowsKey.vbs'.
   
4. Öppna nu din BackupWindowsKey.vbs-fil
5. Voila, din produktnyckel visas på skärmen!
   

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

Jag testade detta trick på Windows 7, Windows 8 och Windows 10. Det fungerar felfritt i alla nämnda operativsystem. Poäng: nononsence @ MDL .