Sekiranya anda hilang atau terlupa di mana anda menyimpan kunci produk Windows anda, saya ada penyelesaian untuk anda. Hari ini kita akan melihat bagaimana skrip VBS sederhana dapat digunakan untuk menunjukkan kepada kita kunci produk salinan Windows 10, Windows 8 atau Windows 7. yang terpasang. Ini adalah penyelesaian mudah untuk mengekstrak kunci produk anda dari OS yang dipasang pada PC anda tanpa menggunakan perisian pihak ketiga. Ini dia.
Iklan
Sebenarnya, sebelum ini saya menyiarkan sebuah penyelesaian yang serupa yang menggunakan PowerShell. tetapi banyak pengguna mengadu bahawa ia gagal bagi mereka. PowerShell mungkin memerlukan kemahiran pengguna tambahan dan tweak tambahan untuk menjalankan cmdlet yang tidak ditandatangani.
bagaimana melihat pelanggan anda berkedut
Berbanding dengan PowerShell, penyelesaian VBScript ini hampir sempurna. Yang perlu anda buat hanyalah mengklik fail tersebut. Ke lihat kunci produk Windows 10 anda
- Buka Notepad.
- Salin dan tampal teks berikut ke tetingkap Notepad
Option Explicit Dim objshell, path, DigitalID, Result Set objshell = CreateObject ('WScript.Shell') 'Tetapkan laluan kunci pendaftaran Path =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion '' Nilai kunci pendaftaran 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 = 'Key Installed:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Tunjukkan kotak mesej jika disimpan ke fail Jika vbYes = MsgBox (ProductData & vblf & vblf & 'Simpan ke fail?', VbYesNo + vbQuestion, 'BackUp Windows Key Information') kemudian Simpan ProductData End if 'Convert binary to chars Function ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Terakhir, papan kekunci1, masukkan 'Periksa sama ada OS Windows 8 isWin8 = (Kekunci (66) 6) Dan 1 Kekunci (66) = (Kunci (66) Dan & HF7) Atau ((isWin8 Dan 2) * 4) i = 24 Peta = 'BCDFGHJKMPQRTVWXY2346789' Lakukan Arus = 0 j = 14 Lakukan Arus = Semasa * 256 Arus = Kunci (j + KeyOffset) + Semasa Kekunci (j + KeyOffset) = (Semasa 24) Semasa = Mod Semasa 24 j = j -1 Gelung Sementara j> = 0 i = i -1 KeyOutput = Pertengahan (Peta, Semasa + 1, 1) & KeyOutput Terakhir = Gelung Semasa Sementara i> = 0 If (isWin8 = 1) Kemudian keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Kemudian KeyOutput = insert & KeyOutput End if ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) Fungsi Akhir 'Menyimpan data ke fail Fungsi Simpan (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Dapatkan nama pengguna semasa UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Buat fail teks di desktop fName =' C: Users '& UserName &' Desktop WindowsKeyI nfo.txt 'Set fso = CreateObject (' Scripting.FileSystemObject ') Tetapkan txt = fso.CreateTextFile (fName) txt. Tulisan Data txt. Fungsi Akhir Tertutup - Simpan teks di atas ke fail dengan pelanjutan '.vbs' di Desktop.
Petua bonus: Untuk memastikan bahawa anda menyimpan fail dengan betul dengan pelanjutan '.vbs', anda boleh menaip namanya yang disertakan dalam tanda petik ganda, misalnya, 'BackupWindowsKey.vbs'.
- Sekarang buka fail BackupWindowsKey.vbs anda
- Voila, kunci produk anda dipaparkan di skrin!
Klik di sini untuk memuat turun fail BackupWindowsKey.vbs
Saya menguji helah ini pada Windows 7, Windows 8 dan Windows 10. Ia berfungsi dengan sempurna dalam semua sistem operasi yang disebutkan. Kredit: tidak setuju @ MDL .
