כיצד להציג את מפתח המוצר שלך ב-Windows 10, Windows 8 ו-Windows 7

אם איבדת או שכחת היכן אחסנת את מפתח המוצר של Windows שלך, יש לי פתרון בשבילך. היום נראה כיצד ניתן להשתמש בסקריפט VBS פשוט כדי להראות לנו את מפתח המוצר של עותק מותקן של Windows 10, Windows 8 או Windows 7. זהו פתרון פשוט לחלץ את מפתח המוצר שלך ממערכת ההפעלה המותקנת במחשב שלך מבלי להשתמש בתוכנת צד שלישי. מתחילים.

למעשה, קודם לכן פרסמתי א פתרון דומה שהשתמש ב- PowerShell. אבל משתמשים רבים התלוננו שזה נכשל עבורם. PowerShell עשויה לדרוש מיומנויות משתמש נוספות ושינויים נוספים כדי להפעיל cmdlets לא חתומים.

בהשוואה ל-PowerShell, פתרון VBScript זה כמעט מושלם. כל מה שאתה צריך לעשות הוא פשוט ללחוץ על הקובץ. ל הצג את מפתח המוצר של Windows 10

1. פתח את פנקס הרשימות.
2. העתק והדבק את הטקסט הבא בחלון פנקס רשימות

   אפשרות מפורשת. עמום objshell, path, DigitalID, Result. הגדר objshell = CreateObject("WScript. Shell") 'הגדר נתיב מפתח רישום Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'ערך מפתח הרישום DigitalID = objshell. RegRead (נתיב & "DigitalProductId") עמום ProductName, ProductID, ProductKey, ProductData 'קבל ProductName, ProductID, ProductKey ProductName = "שם מוצר: " & objshell. RegRead (Path & "ProductName") ProductID = "מזהה מוצר: " & objshell. RegRead (Path & "ProductID") ProductKey = "מפתח מותקן: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'הצג תיבת הודעות אם שמור בקובץ. אם vbYes = MsgBox (ProductData & vblf & vblf & "שמור לקובץ?", vbYesNo + vbQuestion, "גיבוי מפתח המידע של Windows"), שמור את ProductData. סוף אם. 'המר בינארי לתווים פונקציה ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert 'בדוק אם מערכת ההפעלה היא Windows 8 isWin8 = (Key (66) \ 6) ומפתח אחד (66) = (מפתח (66) ו-&HF7) או ((isWin8 ו-2) * 4) i = 24 מפות = "BCDFGHJKMPQRTVWXY2346789" Do Current= 0 j = 14 Do Current = Current * 256 Current = Key (j + KeyOffset) + מפתח נוכחי (j + KeyOffset) = (Current \ 24) Current=Current Mod 24 j = j -1 Loop בעוד j >= 0 i = i -1 KeyOutput = Mid (Maps, Current+ 1, 1) & KeyOutput Last = לולאה נוכחית בעוד i >= 0. If (isWin8 = 1) אז keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 אז KeyOutput = הכנס & KeyOutput End If. ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" ואמצע (KeyOutput, 21, 5) End Function 'שמור נתונים בקובץ פונקציה שמור (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'קבל נוכחי שם משתמש. שם משתמש = objshell. ExpandEnvironmentStrings("%UserName%") 'צור קובץ טקסט על שולחן העבודה. fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt" הגדר fso = CreateObject("Scripting. FileSystemObject") הגדר את txt = fso. CreateTextFile (fName) txt. Writeline Data txt. פונקציית סגירת סיום 
   

3. שמור את הטקסט למעלה לקובץ עם הסיומת ".vbs" בשולחן העבודה.
   טיפ בונוס: כדי לוודא שאתה שומר את הקובץ בצורה נכונה עם סיומת ".vbs", תוכל להקליד את שמו מוקף במירכאות כפולות, למשל, "BackupWindowsKey.vbs".
   
4. כעת פתח את הקובץ BackupWindowsKey.vbs שלך
5. וואלה, מפתח המוצר שלך מוצג על המסך!
   

לחץ כאן כדי להוריד את הקובץ BackupWindowsKey.vbs

בדקתי את הטריק הזה ב-Windows 7, Windows 8 ו-Windows 10. זה עובד ללא רבב בכל מערכות ההפעלה שהוזכרו. נקודות זכות: שטויות @ MDL.