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 Windows 10, Windows 8 atau Windows 7 yang diinstal. Ini adalah solusi sederhana untuk mengekstrak kunci produk Anda dari OS yang diinstal pada PC Anda tanpa menggunakan perangkat lunak pihak ketiga. Ini dia.

Sebenarnya, sebelumnya saya memposting solusi serupa yang menggunakan PowerShell. tetapi banyak pengguna mengeluh bahwa itu gagal untuk mereka. PowerShell mungkin memerlukan keterampilan pengguna tambahan dan penyesuaian ekstra untuk menjalankan cmdlet yang tidak ditandatangani.

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

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

   Opsi Eksplisit. Objshell redup, jalur, DigitalID, Hasil. Setel objshell = CreateObject("WScript. Shell") 'Tetapkan 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. Jika vbYes = MsgBox (ProductData & vblf & vblf & "Simpan ke file?", vbYesNo + vbQuestion, "BackUp Informasi Kunci Windows") lalu Simpan ProductData. Berakhir jika. 'Konversi biner ke karakter Fungsi ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert 'Periksa apakah OS adalah Windows 8 isWin8 = (Kunci (66) \ 6) Dan 1 Kunci (66) = (Kunci (66) Dan &HF7) Atau ((isWin8 Dan 2) * 4) i = 24 Peta = "BCDFGHJKMPQRTVWXY2346789" Do Current= 0 j = 14 Do Current = Current * 256 Arus = Kunci (j + KeyOffset) + Kunci Saat Ini (j + KeyOffset) = (Saat Ini \ 24) Saat Ini=Mod Saat Ini 24 j = j -1 Loop While j >= 0 i = i -1 KeyOutput = Mid (Maps, Current+ 1, 1) & KeyOutput Last = Loop Arus Sementara i >= 0. If (isWin8 = 1) Kemudian keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Ganti (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Maka KeyOutput = insert & KeyOutput End If. ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" & Pertengahan (KeyOutput, 21, 5) Fungsi Akhir 'Menyimpan data ke file Fungsi Simpan (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'Dapatkan saat ini nama pengguna. Nama Pengguna = objshell. ExpandEnvironmentStrings("%UserName%") 'Buat file teks di desktop. fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt" Set fso = CreateObject("Scripting. FileSystemObject") Atur txt = fso. BuatTextFile (fName) txt. Data garis tulis txt. Tutup Fungsi Akhir 

3. Simpan teks di atas ke file dengan ekstensi ".vbs" di Desktop.
   Kiat bonus: Untuk memastikan bahwa Anda menyimpan file dengan benar dengan ekstensi ".vbs", Anda dapat mengetikkan namanya yang 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. Ia bekerja dengan sempurna di semua sistem operasi yang disebutkan. Kredit: tanpa basa-basi @ MDL.