Cara melihat kunci produk Anda di Windows 10, Windows 8 dan Windows 7

Jika Anda kehilangan atau lupa di mana Anda telah menyimpan kunci produk Windows Anda, saya punya solusi untuk Anda. Hari ini kita akan melihat bagaimana skrip VBS sederhana dapat digunakan untuk menunjukkan kepada kita kunci produk dari salinan yang diinstal Windows 10, Windows 8 atau Windows 7. Ini adalah solusi sederhana untuk mengekstrak kunci produk Anda dari OS yang diinstal pada PC Anda tanpa menggunakan perangkat lunak pihak ketiga. Kita mulai.

Iklan

bagaimana Anda bisa tahu jika ponsel Anda di-root?

Dibandingkan dengan PowerShell, solusi VBScript ini hampir sempurna. Yang perlu Anda lakukan hanyalah mengklik file tersebut. Untuk lihat kunci produk Windows 10 Anda

1. Buka Notepad.
2. Salin dan tempel teks berikut ke jendela Notepad

   Opsi Eksplisit Redupkan objshell, jalur, DigitalID, Hasil Set objshell = CreateObject ('WScript.Shell') 'Set jalur kunci registri Path =' HKLM  SOFTWARE  Microsoft  Windows NT  CurrentVersion  '' Nilai kunci registri DigitalID = objshell.RegRead (Path & 'DigitalProductId') Redupkan ProductName, ProductID, ProductKey, ProductData 'Dapatkan ProductName, ProductID, ProductKey ProductName =' Nama Produk: '& objshell.RegRead (Path &' ProductName ') ProductID =' ID Produk: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Installed Key:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Tampilkan kotak pesan jika menyimpan ke file If vbYes = MsgBox (ProductData & vblf & vblf & 'Simpan ke file?', VbYesNo + vbQuestion, 'Cadangkan Informasi Kunci Windows') lalu Simpan ProductData Akhiri Jika 'Konversi biner ke karakter Fungsi ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Terakhir, keypart1, masukkan 'Periksa apakah OS adalah Windows 8 isWin8 = (Key (66)  6) Dan 1 Key (66) = (Key (66) And & HF7) Atau ((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 = Mod Saat Ini 24 j = j -1 Loop While j> = 0 i = i -1 KeyOutput = Mid (Maps, Current + 1, 1) & KeyOutput Last = Current Loop Sedangkan i> = 0 If (isWin8 = 1) Maka keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then KeyOutput = masukkan & KeyOutput Berakhir Jika ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) End Function 'Menyimpan data ke file Fungsi Simpan (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Dapatkan nama pengguna saat ini UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Buat file teks di desktop 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. Simpan teks di atas ke file dengan ekstensi '.vbs' di Desktop.
   Tip bonus: Untuk memastikan bahwa Anda menyimpan file dengan benar dengan ekstensi '.vbs', Anda dapat mengetikkan namanya diapit tanda kutip ganda, misalnya, 'BackupWindowsKey.vbs'.
   
4. Sekarang buka file BackupWindowsKey.vbs Anda
5. Voila, kunci produk Anda ditampilkan di layar!
   

Klik di sini untuk mengunduh file BackupWindowsKey.vbs

Saya menguji trik ini pada Windows 7, Windows 8 dan Windows 10. Ini bekerja dengan sempurna di semua sistem operasi yang disebutkan. Kredit: nononsence @ MDL .