Cara Melihat Kunci Produk Windows 10 Anda Menggunakan Script atau Command-line - Winhelponline

How View Your Windows 10 Product Key Using Script

Ada banyak alat untuk ekstrak Kunci Produk dari sistem langsung atau dari kumpulan registri komputer offline. Selain itu, berikut adalah Vbscript kecil yang rapi yang mendapatkan Kunci Produk dari instalasi Windows Anda saat ini-tidak diperlukan program pihak ketiga. Skrip berfungsi di Windows 7, 8 dan Windows 10.



Lihat Kunci Produk Windows 10

Metode 1: Menggunakan baris perintah WMI atau PowerShell

Gunakan baris perintah WMI berikut untuk memperbaiki kunci produk penginstalan Windows Anda.



wmic path softwarelicensingservice mendapatkan OA3xOriginalProductKey

Metode ini mengambil kunci aktivasi yang disimpan di UEFI / BIOS komputer Anda.



Perhatikan bahwa Anda harus menjalankan perintah di atas dari elevated / admin Command Prompt jendela.

wmic path softwarelicensingservice mendapatkan OA3xOriginalProductKey



Atau, jika Anda menggunakan PowerShell, jalankan perintah ini dari jendela PowerShell admin untuk mengetahui kunci produk:

(Dapatkan-WmiObject -query 'pilih * dari SoftwareLicensingService'). OA3xOriginalProductKey

Di beberapa sistem, perintah di atas akan menampilkan teks OA3xOriginalProductKey dan baris kosong di bawahnya, tidak menunjukkan kunci produk. Ini terjadi jika perangkat tidak memiliki aktivasi / kunci produk yang tersemat.

Jika perangkat memiliki kunci aktivasi yang disematkan firmware, itu akan ditampilkan di keluaran. Jika output kosong, perangkat tidak memiliki kunci aktivasi tertanam firmware. Sebagian besar perangkat yang disediakan OEM yang dirancang untuk menjalankan Windows 8 atau lebih baru akan memiliki kunci yang disematkan firmware.

Metode 2: Menggunakan Script

Penting: Perhatikan bahwa metode berikut hanya mendekode file DigitalProductId nilai registri untuk mendapatkan kunci produk ritel. Kunci yang diambil menggunakan metode ini bisa jadi dibuat secara otomatis kunci Windows 10 generik (untuk sistem yang ditingkatkan dari Windows 7 atau 8 di bawah hak digital). Itu juga bisa menjadi kunci edisi ritel (jika Anda membeli lisensi sebelumnya) yang Anda masukkan secara manual selama pengaturan Windows 10. Jadi, jika Anda menggunakan Windows 10, disarankan untuk memprioritaskan metode pertama.

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

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 = Sisipkan & 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

Sumber: Ambil Kunci Produk Windows ยท GitHub

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

vbscript melihat kunci produk windows 10

Kunci Produk diambil menggunakan Vbscript

Itu dia!


Satu permintaan kecil: Jika Anda menyukai posting ini, tolong bagikan ini?

Satu bagian 'kecil' dari Anda akan sangat membantu pertumbuhan blog ini. Beberapa saran bagus:
  • Sematkan!
  • Bagikan ke blog favorit Anda + Facebook, Reddit
  • Tweet itu!
Jadi terima kasih banyak atas dukungan Anda, pembaca saya. Ini tidak akan memakan waktu lebih dari 10 detik dari waktu Anda. Tombol bagikan ada tepat di bawah. :)