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
Egentligen skrev jag tidigare en liknande lösning som använde PowerShell. men många användare klagade över att det misslyckades för dem. PowerShell kan kräva ytterligare användarkunskaper och extra tweaks för att köra osignerade cmdlets.
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
- Öppna Anteckningar.
- 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
- 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'.
- Öppna nu din BackupWindowsKey.vbs-fil
- 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 .