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
Egentlig, tidligere la jeg ut en lignende løsning som brukte PowerShell. men mange brukere klaget over at det mislykkes for dem. PowerShell kan kreve ekstra brukerferdigheter og ekstra justeringer for å kjøre usignerte cmdlets.
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
- Åpne Notisblokk.
- 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 - 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 '.
- Åpne nå BackupWindowsKey.vbs-filen
- 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 .
