رئيسي البرامج النصية والقرص كيفية عرض مفتاح المنتج الخاص بك في Windows 10 و Windows 8 و Windows 7

كيفية عرض مفتاح المنتج الخاص بك في Windows 10 و Windows 8 و Windows 7



إذا فقدت أو نسيت المكان الذي قمت بتخزين مفتاح منتج Windows فيه ، فلدي حل لك. سنرى اليوم كيف يمكن استخدام برنامج نصي بسيط من VBS لإظهار مفتاح المنتج لنسخة مثبتة من Windows 10 أو Windows 8 أو Windows 7. إنه حل بسيط لاستخراج مفتاح المنتج من نظام التشغيل المثبت على جهاز الكمبيوتر الخاص بك بدون باستخدام أي برنامج طرف ثالث. ها نحن ذا.

إعلانات


في الواقع ، لقد نشرت سابقًا ملف حل مماثل التي تستخدم بوويرشيل. لكن العديد من المستخدمين اشتكوا من فشلها بالنسبة لهم. قد يتطلب PowerShell مهارات مستخدم إضافية وتعديلات إضافية لتشغيل أوامر cmdlets غير الموقعة.

كيف تضيف أرقام الصفحات في مستندات جوجل

بالمقارنة مع PowerShell ، فإن حل VBScript هذا مثالي تقريبًا. كل ما عليك فعله هو النقر فوق الملف. إلى عرض مفتاح منتج Windows 10 الخاص بك

  1. افتح المفكرة.
  2. انسخ والصق النص التالي في نافذة المفكرة
    الخيار صريح خافت 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
  3. احفظ النص أعلاه في ملف بامتداد '.vbs' على سطح المكتب.
    نصيحة إضافية: للتأكد من حفظ الملف بشكل صحيح بامتداد '.vbs' ، يمكنك كتابة اسمه محاطًا بعلامات اقتباس مزدوجة ، على سبيل المثال ، 'BackupWindowsKey.vbs'.
    النسخ الاحتياطي لمفتاح منتج Windows Windows 10
  4. افتح الآن ملف BackupWindowsKey.vbs
  5. فويلا ، يتم عرض مفتاح المنتج على الشاشة!
    عرض مفتاح منتج Windows 10

انقر هنا لتنزيل ملف BackupWindowsKey.vbs

لقد اختبرت هذه الخدعة على Windows 7 و Windows 8 و Windows 10. وهي تعمل بشكل لا تشوبه شائبة في جميع أنظمة التشغيل المذكورة. الاعتمادات: هراء @ MDL .

مقالات مثيرة للاهتمام

اختيار المحرر

SurveyMonkey مقابل Google Forms
SurveyMonkey مقابل Google Forms
SurveyMonkey و Google Forms هما من أشهر صانعي نماذج الاستطلاعات المتاحة. تتميز كلتا المنصتين بميزات مختلفة وتصميمات فريدة. تتكامل نماذج Google مع بقية مجموعة Google Suite ، وتعد SurveyMonkey مركزًا قويًا. لأن المنصات لديها
أرشيفات العلامات: تثبيت NVMe SSD Windows 7
أرشيفات العلامات: تثبيت NVMe SSD Windows 7
تقدم Microsoft إصلاحًا طارئًا لعيوب Meltdown و Specter CPU
تقدم Microsoft إصلاحًا طارئًا لعيوب Meltdown و Specter CPU
تم العثور على عيب فادح في جميع معالجات Intel التي تم إطلاقها في العقد الماضي. يمكن أن تسمح الثغرة الأمنية للمهاجمين بالوصول إلى ذاكرة kernel المحمية. لا يمكن إصلاح هذا الخلل الأمني ​​على مستوى الشريحة من خلال تحديث الرمز الصغير لوحدة المعالجة المركزية (البرنامج). بدلاً من ذلك ، يتطلب تعديل نظام التشغيل kernel. وإليك بعض التفاصيل: استغلال Meltdown و Specter أمر بالغ الأهمية
كم مرة يرن الهاتف؟ [شرح]
كم مرة يرن الهاتف؟ [شرح]
كيفية إصلاح منفذ HDMI لجهاز PS5
كيفية إصلاح منفذ HDMI لجهاز PS5
هل تواجه مشكلة في توصيل جهاز PS5 بالتلفزيون؟ اتبع تعليمات الخبراء هذه لإصلاح منفذ HDMI الخاص بوحدة التحكم PS5.
لماذا تحتوي رسالتي على علامة واحدة فقط في WhatsApp؟
لماذا تحتوي رسالتي على علامة واحدة فقط في WhatsApp؟
إذا كنت مستخدمًا جديدًا لتطبيق WhatsApp ، فقد تشعر بالارتباك بسبب كل هذه العلامات الرمادية والزرقاء. يستخدم WhatsApp هذا النظام لإعلامك بما إذا تم تسليم رسالتك وما إذا كان الشخص الآخر قد قرأها أم لا.
حصل Microsoft Edge على Android على حافة: // flags page
حصل Microsoft Edge على Android على حافة: // flags page
على غرار إصدار سطح المكتب ، يتمتع Edge لنظام Android بميزة خاصة: // flags page. من هناك ، سيتمكن مستخدمو Edge من تمكين أو تعطيل الميزات التجريبية للمتصفح. إعلان مع التحديثات الأخيرة لـ Edge ، حصل التطبيق على دعم لكلمات مرور التجوال وخيار المظهر الداكن. في حين أن هذه الميزات ليست فريدة و