Ha elveszítette vagy elfelejtette, hol tárolta a Windows termékkulcsát, van egy megoldás az Ön számára. Ma meglátjuk, hogyan lehet egy egyszerű VBS szkript segítségével megmutatni a Windows 10, Windows 8 vagy Windows 7 telepített példányának termékkulcsát. Ez egy egyszerű megoldás, ha a termékkulcsot kibontja a számítógépére telepített operációs rendszerből anélkül, hogy bármilyen harmadik fél szoftverének használata. Essünk neki.
Reklám
Valójában korábban feltettem a hasonló megoldás amely a PowerShellt használta. de sok felhasználó panaszkodott, hogy ez nem sikerül nekik. Előfordulhat, hogy a PowerShell további felhasználói ismereteket és további módosításokat igényel az aláíratlan parancsmag futtatásához.
hogyan lehet megmondani, hogy egy mobiltelefon ki van-e nyitva
A PowerShellhez képest ez a VBScript megoldás szinte tökéletes. Csak annyit kell tennie, hogy rákattint a fájlra. Nak nek megtekintheti a Windows 10 termékkulcsát
- Nyissa meg a Jegyzettömböt.
- Másolja és illessze be a következő szöveget a Jegyzettömb ablakba
Opció Explicit Dim objektumhéj, elérési út, DigitalID, Eredménykészlet objshell = CreateObject ('WScript.Shell') 'Beállításkulcs elérési útjának beállítása Path =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion '' Beállításkulcs értéke 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 = 'Telepített kulcs:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Fájlba mentéskor az üzenetkezelőt jelenítse meg, ha vbYes = MsgBox (ProductData & vblf & vblf & 'Mentés fájlba?', VbYesNo + vbQuestion, 'BackUp Windows Key Information'), majd a ProductData End Save mentése 'bináris konvertálása karakterekké Funkció ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Utolsó, keypart1, illessze be a következőt: „Ellenőrizze, hogy az operációs rendszer Windows 8-e. = (Key (66) And & HF7) Vagy ((isWin8 And 2) * 4) i = 24 Maps = 'BCDFGHJKMPQRTVWXY2346789' Do Current = 0 j = 14 Do Current = Current * 256 Current = Key (j + KeyOffset) + Current Key (j + KeyOffset) = (Current 24) Current = Current Mod 24 j = j -1 Loop while j> = 0 i = i -1 KeyOutput = Mid (Maps, Current + 1, 1) & KeyOutput Last = Current Loop Míg i> = 0 Ha (isWin8 = 1) Akkor keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) Ha Last = 0 Akkor KeyOutput = insert & KeyOutput End Ha ConvertToKey = Közép (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) Funkció befejezése 'Adatok mentése fájlba Funkció Mentés (Adatok) Dim fso, fName, txt, objshell, Felhasználónév beállítása objshell = CreateObject (' wscript. shell ')' Az aktuális felhasználónév letöltése Felhasználónév = objektshell.ExpandEnvironmentStrings ('% Felhasználónév%') 'Hozzon létre egy szövegfájlt az asztalon fName =' C: Felhasználók '& Felhasználónév &' Asztal WindowsKeyI nfo.txt 'Set fso = CreateObject (' Scripting.FileSystemObject ') Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Funkció - Mentse a fenti szöveget egy '.vbs' kiterjesztésű fájlba az Asztalon.
Bónusztipp: Annak érdekében, hogy a fájlt helyesen mentse a '.vbs' kiterjesztéssel, beírhatja a nevét dupla idézőjelek közé, például: 'BackupWindowsKey.vbs'.
- Most nyissa meg a BackupWindowsKey.vbs fájlt
- Voila, te 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 rendszereken teszteltem. Az összes említett operációs rendszerben hibátlanul működik. Hitelek: nononsence @ MDL .
