Hvordan vise produktnøkkelen din i Windows 10, Windows 8 og Windows 7

Hvis du mistet eller glemte hvor du hadde lagret Windows-produktnøkkelen din, har jeg en løsning for deg. I dag skal vi se hvordan et enkelt VBS-skript kan brukes til å vise oss produktnøkkelen til en installert kopi av Windows 10, Windows 8 eller Windows 7. Det er en enkel løsning å trekke ut produktnøkkelen fra operativsystemet som er installert på din PC uten bruker tredjeparts programvare. Her går vi.

Annonse

hvordan du slår på personlig hotspot

Sammenlignet med PowerShell er denne VBScript-løsningen nesten perfekt. Alt du trenger å gjøre er å bare klikke på filen. Til se produktnøkkelen til Windows 10

1. Åpne Notisblokk.
2. Kopier og lim inn følgende tekst i Notisblokk-vinduet

   Alternativ Eksplisitt Dim objshell, sti, DigitalID, Resultatsett objshell = CreateObject ('WScript.Shell') 'Angi registernøkkelbane Path =' HKLM  SOFTWARE  Microsoft  Windows NT  CurrentVersion  '' Registernøkkelverdi DigitalID = objshell.RegRead (Path & 'DigitalProductId') Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName =' Product Name: '& objshell.RegRead (Path &' ProductName ') ProductID =' Product ID: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Installert nøkkel:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Vis messbox hvis lagre i en fil Hvis vbYes = MsgBox (ProductData & vblf & vblf & 'Lagre til en fil?', VbYesNo + vbQuestion, 'BackUp Windows Key Information') og deretter lagre produktdata Slutt Hvis 'Konverter binær til tegn Funksjon ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Siste, tastatur1, sett inn 'Sjekk om operativsystemet er Windows 8 isWin8 = (nøkkel (66)  6) og 1 nøkkel (66) = (Nøkkel (66) og & HF7) eller ((isWin8 og 2) * 4) i = 24 kart = 'BCDFGHJKMPQRTVWXY2346789' Gjør strøm = 0 j = 14 Gjør strøm = Strøm * 256 Strøm = nøkkel (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) Så tastatur1 = Midt (KeyOutput, 2, siste) insert = 'N' KeyOutput = Erstatt (KeyOutput, tastatur1, tastatur1 & sett inn, 2, 1, 0) Hvis siste = 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) End Function 'Lagre data i en fil Funksjon Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Hent nåværende brukernavn UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Opprett en tekstfil på skrivebordet fName =' C:  Users  '& UserName &'  Desktop  WindowsKeyI nfo.txt 'Set fso = CreateObject (' Scripting.FileSystemObject ') Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt. Close End Function

3. Lagre teksten ovenfor i en fil med utvidelsen '.vbs' på skrivebordet.
   Bonustips: For å være sikker på at du lagrer filen riktig med '.vbs'-utvidelsen, kan du skrive inn navnet i dobbelt anførselstegn, for eksempel' BackupWindowsKey.vbs '.
   
4. Åpne nå BackupWindowsKey.vbs-filen
5. Voila, din produktnøkkel vises på skjermen!
   

Klikk her for å laste ned filen BackupWindowsKey.vbs

Jeg testet dette trikset på Windows 7, Windows 8 og Windows 10. Det fungerer feilfritt i alle nevnte operativsystemer. Studiepoeng: nononsence @ MDL .