Sådan får du vist din produktnøgle i Windows 10, Windows 8 og Windows 7

Hvis du har mistet eller glemt, hvor du havde gemt din Windows-produktnøgle, har jeg en løsning til dig. I dag vil vi se, hvordan et simpelt VBS-script kan bruges til at vise os produktnøglen til en installeret kopi af Windows 10, Windows 8 eller Windows 7. Det er en enkel løsning at udtrække din produktnøgle fra det operativsystem, der er installeret på din pc, uden at bruge tredjepartssoftware. Nu sker det.

Faktisk postede jeg tidligere en lignende løsning som brugte PowerShell. men mange brugere klagede over, at det mislykkedes for dem. PowerShell kan kræve yderligere brugerfærdigheder og ekstra tweaks for at køre usignerede cmdlets.

Sammenlignet med PowerShell er denne VBScript-løsning næsten perfekt. Alt du skal gøre er at klikke på filen. Til se din Windows 10-produktnøgle

1. Åbn Notesblok.
2. Kopier og indsæt følgende tekst i Notesblok-vinduet

   Mulighed Eksplicit. Dim objshell, sti, DigitalID, Resultat. Indstil objshell = CreateObject("WScript. Shell") 'Set registreringsnøglesti = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Registry nøgleværdi DigitalID = objshell. RegRead (sti & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName = "Product Name: " & objshell. RegRead (sti & "ProductName") ProductID = "Produkt ID: " & objshell. RegRead (sti & "ProductID") ProductKey = "Installeret nøgle: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Vis beskedboks, hvis den gemmes til en fil. Hvis vbYes = MsgBox (ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information"), så Gem ProductData. Afslut Hvis. 'Konverter binær til tegn Funktion ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, indsæt 'Check if OS is Windows 8 isWin8 = (Nøgle (66) \ 6) Og 1 Nøgle (66) = (Nøgle (66) Og &HF7) Eller ((isWin8 And 2) * 4) i = 24 Kort = "BCDFGHJKMPQRTVWXY2346789" Gør Aktuel= 0 j = 14 Gør Aktuel = Aktuel * 256 Current = Key (j + KeyOffset) + Current Key (j + KeyOffset) = (Current \ 24) Current=Current Mod 24 j = j -1 Loop Mens j >= 0 i = i -1 KeyOutput = Mid (Maps, Current+ 1, 1) & KeyOutput Last = Aktuel sløjfe mens i >= 0. If (isWin8 = 1) Then keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Erstat (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then KeyOutput = indsæt & KeyOutput End If. ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" & Midt (KeyOutput, 21, 5) Slut Funktion 'Gem data til en fil Funktion Gem (Data) Dim fso, fName, txt, objshell, Brugernavn Indstil objshell = CreateObject("wscript.shell") 'Få aktuel brugernavn. Brugernavn = objshell. ExpandEnvironmentStrings("%UserName%") 'Opret en tekstfil på skrivebordet. fName = "C:\Users\" & Brugernavn & "\Desktop\WindowsKeyInfo.txt" Indstil fso = CreateObject("Scripting. FileSystemObject") Indstil txt = fso. CreateTextFile (fName) txt. Writeline data txt. Luk Slut-funktion 
   

3. Gem ovenstående tekst i en fil med filtypenavnet ".vbs" på skrivebordet.
   Bonustip: For at sikre dig, at du gemmer filen korrekt med filtypen ".vbs", kan du skrive dens navn omgivet af dobbelte anførselstegn, for eksempel "BackupWindowsKey.vbs".
   
4. Åbn nu din BackupWindowsKey.vbs-fil
5. Voila, din produktnøgle vises på skærmen!
   

Klik her for at downloade filen BackupWindowsKey.vbs

Jeg testede dette trick på Windows 7, Windows 8 og Windows 10. Det fungerer upåklageligt i alle nævnte operativsystemer. Credits: nononsence @ MDL.