Cara Melihat Kunci Produk Windows 10 Anda Menggunakan Skrip

Ada banyak alat untuk mengekstrak Kunci Produk dari sistem hidup atau dari kumpulan registri komputer offline. Selain itu, di sini adalah Vbscript kecil yang rapi yang mendapatkan Product Key dari instalasi Windows Anda saat ini - tidak diperlukan program pihak ketiga. Script berfungsi pada Windows 7, 8 dan Windows 10.

Lihat Kunci Produk Windows 10 Menggunakan Skrip

Salin kode berikut ke Notepad dan simpan file sebagai GetProductKey.vbs.

 Opsi Eksplisit Dim objek, jalur, DigitalID, Hasil Set objshell = CreateObject ("WScript.Shell") 'Tetapkan jalur kunci registri Path = "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \"' Nilai kunci registri DigitalID = objshell.RegRead (Path & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Dapatkan ProductName, ProductID, ProductKey ProductName = "Nama Produk:" & objshell.RegRead (Path & "ProductName") ProductID = "ID Produk:" & objshell. RegRead (Path & "ProductID") ProductKey = "Kunci yang Dipasang:" & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Tampilkan kotak pesan jika menyimpan ke file Jika vbYes = MsgBox (ProductData & vblf & vblf & & vblf & "Simpan ke file?", VbYesNo + vbQuestion, "Cadangkan Informasi Kunci Windows") lalu Simpan ProductData End If 'Konversi biner ke karakter Fungsi ConvertToKey (Kunci) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Terakhir, keypart1, masukkan '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" Lakukan Saat Ini = 0 j = 14 Lakukan Saat Ini = Sekarang * 256 Sekarang = Kunci (j + KeyOffset) + Saat Ini Kunci (j + KeyOffset) = (Saat ini \ 24) Saat ini = Mod Saat Ini 24 j = j -1 Loop Sementara j> = 0 i = i -1 KeyOutput = Pertengahan (Peta, Lancar + 1, 1) & KeyOutput Terakhir = Loop Saat Ini Sementara i> = 0 If (isWin8 = 1) Kemudian keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Ganti (KeyOutput, keypart1, keypart1 & masukkan, 2, 1, 0) If Last = 0 Then KeyOutput = masukkan & Akhir KeyOutput Jika ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Pertengahan (KeyOutput, 11, 5) & "-" & Pertengahan ( KeyOutput, 16, 5) & "-" & Pertengahan (KeyOutput, 21, 5) Fungsi Akhir 'Menyimpan data ke file Function Save (Data) Dim fso, fName, txt, objshell, Set UserName objshell = CreateObject ("wscript." shell ") 'Dapatkan nama pengguna saat ini UserName = objshell.ExpandEnvironmentStrings ("% UserName% ")' Buat file teks pada desktop fName =" C: \ Users \ "& UserName &" \ Desktop \ WindowsKeyInf o.txt "Set fso = CreateObject (" Scripting.FileSystemObject ") Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Tutup Fungsi Akhir 

Sumber: Ambil Kunci Produk Windows · GitHub

Klik dua kali untuk menjalankan skrip untuk mengetahui Kunci Produk instalasi Windows Anda.