Hvis du mistede eller glemte, 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 operativsystemet installeret på din pc uden ved hjælp af tredjepartssoftware. Nu sker det.
Annoncering
Faktisk skrev jeg tidligere en lignende løsning der brugte PowerShell. men mange brugere klagede over, at det mislykkes for dem. PowerShell kan kræve yderligere brugerfærdigheder og ekstra tweaks for at køre usignerede cmdlets.
hvordan man fjerner klistermærker på snapchat
Sammenlignet med PowerShell er denne VBScript-løsning næsten perfekt. Alt hvad du skal gøre er at bare klikke på filen. Til se din Windows 10-produktnøgle
- Åbn Notesblok.
- Kopier og indsæt følgende tekst i Notesblok-vinduet
Indstilling Eksplicit Dim objshell, sti, DigitalID, Resultatsæt objshell = CreateObject ('WScript.Shell') 'Indstil sti til registreringsdatabasenøgle Sti =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion '' Registreringsnøgleværdi DigitalID = objshell.RegRead (Sti & 'DigitalProductId') Dim produktnavn, ProductID, ProductKey, ProductData 'Hent ProductName, ProductID, ProductKey ProductName =' Produktnavn: '& objshell.RegRead (Sti &' ProductName ') ProductID =' Produkt-id: '& objshell. RegRead (sti & 'ProductID') ProductKey = 'Installeret nøgle:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Vis messbox hvis gem i en fil Hvis vbYes = MsgBox (ProductData & vblf & vblf & 'Gem i en fil?', VbYesNo + vbQuestion, 'BackUp Windows Key Information'), gem derefter ProductData End Hvis 'Konverter binær til tegn Funktion ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Sidste, tastatur1, indsæt 'Kontroller, om OS er Windows 8 isWin8 = (Nøgle (66) 6) Og 1 Nøgle (66) = (Tast (66) Og & HF7) Eller ((isWin8 og 2) * 4) i = 24 kort = 'BCDFGHJKMPQRTVWXY2346789' Gør strøm = 0 j = 14 Gør strøm = Strøm * 256 Strøm = tast (j + KeyOffset) + Strøm Tast (j + KeyOffset) = (Strøm 24) Strøm = Strøm Mod 24 j = j -1 Loop Mens j> = 0 i = i -1 KeyOutput = Mid (Maps, Current + 1, 1) & KeyOutput Last = Current Loop Mens i> = 0 Hvis (isWin8 = 1) Derefter indtastes tastatur1 = Midt (KeyOutput, 2, sidste) = 'N' KeyOutput = Udskift (KeyOutput, tastatur1, tastatur1 & indsæt, 2, 1, 0) Hvis sidste = 0 Så 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 'Gem data i en fil Funktion Gem (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Hent nuværende brugernavn UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Opret en tekstfil på skrivebordet fName =' C: Brugere '& Brugernavn &' Desktop WindowsKeyI nfo.txt 'Set fso = CreateObject (' Scripting.FileSystemObject ') Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt. Luk slutfunktion - Gem teksten ovenfor i en fil med udvidelsen '.vbs' på skrivebordet.
Bonustip: For at sikre, at du gemmer filen korrekt med '.vbs' udvidelsen, kan du skrive navnet indeholdt i dobbelt anførselstegn, for eksempel 'BackupWindowsKey.vbs'.
- Åbn nu din BackupWindowsKey.vbs-fil
- 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 fejlfrit i alle nævnte operativsystemer. Kreditter: nononsence @ MDL .
