A termékkulcs megtekintése Windows 10, Windows 8 és Windows 7 rendszerben

Ha elvesztette vagy elfelejtette, hol tárolta a Windows termékkulcsát, van megoldásom az Ön számára. Ma látni fogjuk, hogyan lehet egy egyszerű VBS-szkript segítségével megmutatni nekünk a Windows 10, Windows 8 vagy Windows 7 telepített példányának termékkulcsát. Ez egy egyszerű megoldás a termékkulcs kibontására a számítógépére telepített operációs rendszerből harmadik féltől származó szoftverek használata nélkül. Essünk neki.

Valójában korábban közzétettem a hasonló megoldás amely PowerShellt használt. de sok felhasználó panaszkodott, hogy ez nem sikerül nekik. Előfordulhat, hogy a PowerShell további felhasználói készségeket és további finomításokat igényel az aláíratlan parancsmagok futtatásához.

A PowerShellhez képest ez a VBScript-megoldás szinte tökéletes. Mindössze annyit kell tennie, hogy kattintson a fájlra. Nak nek tekintse meg a Windows 10 termékkulcsát

1. Nyissa meg a Jegyzettömböt.
2. Másolja ki és illessze be a következő szöveget a Jegyzettömb ablakába

   Explicit opció. Halvány objshell, elérési út, DigitalID, Eredmény. Set objshell = CreateObject("WScript. Shell") 'A rendszerleíró kulcs elérési útjának beállítása Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Registry kulcs értéke DigitalID = objshell. RegRead (Elérési út és "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName = "Terméknév: " & objshell. RegRead (Elérési út és "ProductName") ProductID = "Termékazonosító: " & objshell. RegRead (Elérési út & "ProductID") ProductKey = "Telepített kulcs: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Fájlba mentés esetén a messbox megjelenítése. Ha vbYes = MsgBox (ProductData & vblf & vblf & "Mentés fájlba?", vbYesNo + vbQuestion, "A Windows kulcsinformációinak biztonsági mentése"), akkor a ProductData mentése. Vége Ha. 'Bináris konvertálása karakterekké Funkció ConvertToKey (Kulcs) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Aktuális, KeyOutput, Last, keypart1, szúrja be az 'Ellenőrizze, hogy az operációs rendszer Windows 8 isWin8 = (kulcs (66) \ 6) És 1 kulcs (66) = (billentyű (66) és &HF7) vagy ((isWin8 és 2) * 4) i = 24 térkép = "BCDFGHJKMPQRTVWXY2346789" Do Current= 0 j = 14 Do Current = Aktuális * 256 Aktuális = Kulcs (j + Kulcseltolás) + Aktuális kulcs (j + Kulcseltolás) = (Jelenlegi \ 24) Aktuális = Aktuális mód 24 j = j -1 hurok, miközben j >= 0 i = i -1 Kulcskimenet = Közép (térképek, Aktuális+ 1, 1) & Kulcskimenet Utolsó = Áramhurok Míg i >= 0. If (isWin8 = 1) Akkor keypart1 = Közép (KeyOutput, 2, Last) insert = "N" KeyOutput = Csere (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Akkor KeyOutput = insert & KeyOutput End If. ConvertToKey = Közép (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" & Mid (KeyOutput, 21, 5) Funkció vége 'Adatok mentése fájlba Funkció Mentés (Adat) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'Aktuális frissítés felhasználónév. Felhasználónév = objshell. ExpandEnvironmentStrings("%UserName%") 'Szövegfájl létrehozása az asztalon. fName = "C:\Felhasználók\" & Felhasználónév & "\Desktop\WindowsKeyInfo.txt" Set fso = CreateObject("Scripting. FileSystemObject") Állítsa be: txt = fso. CreateTextFile (fName) txt. Writeline Data txt. Funkció bezárása 

3. Mentse el a fenti szöveget egy „.vbs” kiterjesztésű fájlba az asztalon.
   Bónusztipp: Ha meg szeretné győződni arról, hogy a fájlt megfelelően menti el a „.vbs” kiterjesztéssel, írja be a nevét idézőjelek közé, például „BackupWindowsKey.vbs”.
   
4. Most nyissa meg a BackupWindowsKey.vbs fájlt
5. Voila, a termékkulcs megjelenik a képernyőn!
   

Kattintson ide a BackupWindowsKey.vbs fájl letöltéséhez

Ezt a trükköt Windows 7, Windows 8 és Windows 10 rendszeren teszteltem. Minden említett operációs rendszerben hibátlanul működik. Jóváírások: nonszensz @ MDL.