Slik viser du produktnøkkelen din i Windows 10, Windows 8 og Windows 7
Hvis du har mistet eller glemt hvor du hadde lagret Windows-produktnøkkelen, 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 for å trekke ut produktnøkkelen fra operativsystemet som er installert på PC-en din uten å bruke tredjepartsprogramvare. Her går vi.
Annonse
Faktisk, tidligere jeg postet en lignende løsning som brukte PowerShell. men mange brukere klaget over at det mislykkes for dem. PowerShell kan kreve ytterligere brukerferdigheter og ekstra justeringer for å kjøre usignerte cmdlets.
Sammenlignet med PowerShell er denne VBScript-løsningen nesten perfekt. Alt du trenger å gjøre er å klikke på filen. Til se din Windows 10-produktnøkkel
- Åpne Notisblokk.
- Kopier og lim inn følgende tekst i Notisblokk-vinduet
Alternativ eksplisitt. Dim objshell, bane, DigitalID, Resultat. Sett objshell = CreateObject("WScript. Shell") 'Sett registernøkkelbane Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Registernøkkelverdi DigitalID = objshell. RegRead (bane og "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 meldingsboks hvis lagret til en fil. Hvis vbYes = MsgBox (ProductData & vblf & vblf & "Lagre til en fil?", vbYesNo + vbQuestion, "BackUp Windows Key Information"), så lagre produktdata. Slutt om. 'Konverter binær til tegn Funksjon ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert 'Sjekk om OS er Windows 8 isWin8 = (Nøkkel (66) \ 6) Og 1 nøkkel (66) = (Nøkkel (66) Og &HF7) Eller ((isWin8 And 2) * 4) i = 24 kart = "BCDFGHJKMPQRTVWXY2346789" Gjør gjeldende= 0 j = 14 Gjør gjeldende = nåværende * 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 (Kart, Current+ 1, 1) & KeyOutput Last = Gjeldende sløyfe mens i >= 0. If (isWin8 = 1) Then keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Erstatt (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then KeyOutput = inn & KeyOutput End If. ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" & Midt (KeyOutput, 21, 5) Sluttfunksjon 'Lagre data til en fil Funksjon Lagre (Data) Dim fso, fName, txt, objshell, UserName Sett objshell = CreateObject("wscript.shell") 'Få gjeldende brukernavn. Brukernavn = objshell. ExpandEnvironmentStrings("%UserName%") 'Lag en tekstfil på skrivebordet. fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt" Sett fso = CreateObject("Skript. FileSystemObject") Sett txt = fso. CreateTextFile (fName) txt. Writeline Data txt. Lukk sluttfunksjon
- Lagre teksten ovenfor i en fil med filtypen ".vbs" på skrivebordet.
Bonustips: For å være sikker på at du lagrer filen riktig med filtypen ".vbs", kan du skrive inn navnet i anførselstegn, for eksempel "BackupWindowsKey.vbs". - Åpne nå BackupWindowsKey.vbs-filen
- Voila, produktnøkkelen din vises på skjermen!
Klikk her for å laste ned BackupWindowsKey.vbs-filen
Jeg testet dette trikset på Windows 7, Windows 8 og Windows 10. Det fungerer feilfritt i alle nevnte operativsystemer. Studiepoeng: nononsence @ MDL.