إذا فقدت أو نسيت المكان الذي قمت بتخزين مفتاح منتج Windows فيه ، فلدي حل لك. سنرى اليوم كيف يمكن استخدام برنامج نصي بسيط من VBS لإظهار مفتاح المنتج لنسخة مثبتة من Windows 10 أو Windows 8 أو Windows 7. إنه حل بسيط لاستخراج مفتاح المنتج من نظام التشغيل المثبت على جهاز الكمبيوتر الخاص بك بدون باستخدام أي برنامج طرف ثالث. ها نحن ذا.
إعلانات
في الواقع ، لقد نشرت سابقًا ملف حل مماثل التي تستخدم بوويرشيل. لكن العديد من المستخدمين اشتكوا من فشلها بالنسبة لهم. قد يتطلب PowerShell مهارات مستخدم إضافية وتعديلات إضافية لتشغيل أوامر cmdlets غير الموقعة.
كيف تضيف أرقام الصفحات في مستندات جوجل
بالمقارنة مع PowerShell ، فإن حل VBScript هذا مثالي تقريبًا. كل ما عليك فعله هو النقر فوق الملف. إلى عرض مفتاح منتج Windows 10 الخاص بك
- افتح المفكرة.
- انسخ والصق النص التالي في نافذة المفكرة
الخيار صريح خافت objshell ، مسار ، DigitalID ، نتيجة تعيين objshell = CreateObject ('WScript.Shell') 'تعيين مسار مفتاح التسجيل =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion 'قيمة مفتاح التسجيل DigitalID = objshell.RegRead (المسار & 'DigitalProductId') Dim ProductName، ProductID، ProductKey، ProductData 'Get ProductName، ProductID، ProductKey ProductName =' Product Name: '& objshell.RegRead (Path &' ProductName ') ProductID =' Product ID: '& objshell. RegRead (المسار & 'ProductID') ProductKey = 'المفتاح المثبت:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'إظهار صندوق الرسائل في حالة الحفظ في ملف إذا كان vbYes = MsgBox (ProductData & vblf & vblf & & 'حفظ إلى ملف؟' ، vbYesNo + vbQuestion ، 'BackUp Windows Key Information') ثم حفظ ProductData End If 'تحويل ثنائي إلى حرف دالة ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8، Maps، i، j، Current، KeyOutput ، Last، keypart1، insert 'تحقق مما إذا كان نظام التشغيل هو Windows 8 isWin8 = (Key (66) 6) And 1 Key (66) = (Key (66) And & HF7) أو ((isWin8 و 2) * 4) i = 24 Maps = 'BCDFGHJKMPQRTVWXY2346789' Do Current = 0 j = 14 Do Current = Current * 256 Current = Key (j + KeyOffset) + Current المفتاح (j + KeyOffset) = (Current 24) Current = Current Mod 24 j = j -1 Loop while j> = 0 i = i -1 KeyOutput = Mid (Maps، Current + 1، 1) & KeyOutput Last = الحلقة الحالية بينما i> = 0 If (isWin8 = 1) ثم keypart1 = Mid (KeyOutput، 2، Last) أدخل = 'N' KeyOutput = استبدال (KeyOutput، keypart1، keypart1 & insert، 2، 1، 0) إذا كان الأخير = 0 ثم 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) End Function 'حفظ البيانات في ملف الوظيفة حفظ (البيانات) Dim fso، fName، txt، objshell، UserName Set objshell = CreateObject (' wscript. shell ')' الحصول على اسم المستخدم الحالي UserName = objshell.ExpandEnvironmentStrings ('٪ UserName٪') 'إنشاء ملف نصي على سطح المكتب fName =' C: Users '& UserName &' Desktop WindowsKeyI nfo.txt 'Set fso = CreateObject (' Scripting.FileSystemObject ') اضبط txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Function
- احفظ النص أعلاه في ملف بامتداد '.vbs' على سطح المكتب.
نصيحة إضافية: للتأكد من حفظ الملف بشكل صحيح بامتداد '.vbs' ، يمكنك كتابة اسمه محاطًا بعلامات اقتباس مزدوجة ، على سبيل المثال ، 'BackupWindowsKey.vbs'.
- افتح الآن ملف BackupWindowsKey.vbs
- فويلا ، يتم عرض مفتاح المنتج على الشاشة!
انقر هنا لتنزيل ملف BackupWindowsKey.vbs
لقد اختبرت هذه الخدعة على Windows 7 و Windows 8 و Windows 10. وهي تعمل بشكل لا تشوبه شائبة في جميع أنظمة التشغيل المذكورة. الاعتمادات: هراء @ MDL .