אם איבדת או שכחת היכן איחסנת את מפתח המוצר של Windows, יש לי פיתרון עבורך. היום נראה כיצד ניתן להשתמש בסקריפט VBS פשוט כדי להראות לנו את מפתח המוצר של עותק מותקן של Windows 10, Windows 8 או Windows 7. זהו פיתרון פשוט לחלץ את מפתח המוצר שלך ממערכת ההפעלה המותקנת במחשב שלך בלי באמצעות תוכנת צד שלישי כלשהי. מתחילים.
פרסומת
למעשה, קודם פרסמתי א פיתרון דומה שהשתמשה ב- PowerShell. אך משתמשים רבים התלוננו כי הדבר נכשל עבורם. PowerShell עשוי לדרוש מיומנויות משתמש נוספות ושינויים נוספים כדי להריץ cmdlets לא חתומים.
איך לשחק עם חברים שלא הפכו
בהשוואה ל- PowerShell, פתרון VBScript זה כמעט מושלם. כל שעליך לעשות הוא פשוט ללחוץ על הקובץ. ל להציג את מפתח המוצר של Windows 10 שלך
- פתח את פנקס הרשימות.
- העתק והדבק את הטקסט הבא בחלון פנקס הרשימות
אפשרות מפורשת objshell עמום, נתיב, DigitalID, ערכת תוצאות 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, 'BackUp Windows Key Key Information' ואז שמור ProductData End אם 'להמיר בינארי לתווים פונקציה ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , אחרון, keypart1, הכנס 'בדוק אם מערכת ההפעלה היא Windows 8 isWin8 = (מפתח (66) 6) ומפתח אחד (66) = (מפתח (66) ו- HF7) או ((isWin8 ו -2) * 4) i = 24 מפות = 'BCDFGHJKMPQRTVWXY2346789' עשה זרם = 0 j = 14 עשה זרם = זרם * 256 זרם = מקש (j + מפתח אופסט) + זרם מקש (j + KeyOffset) = (זרם 24) זרם = Mod הנוכחי 24 j = j -1 לולאה בעוד j> = 0 i = i -1 KeyOutput = Mid (מפות, Current + 1, 1) & KeyOutput האחרון = לולאה נוכחית בעוד i> = 0 אם (isWin8 = 1) ואז keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If last = 0 Then KeyOutput = insert & KeyOutput End אם ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) פונקציית סיום 'שמור נתונים בקובץ פונקציה שמור (נתונים) עמעום fso, fName, txt, objshell, User Name Set objshell = CreateObject (' wscript. מעטפת ')' קבל את שם המשתמש הנוכחי UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'צור קובץ טקסט בשולחן העבודה fName =' C: Users '& UserName &' Desktop WindowsKeyI nfo.txt 'הגדר fso = CreateObject (' Scripting.FileSystemObject ') הגדר txt = fso.CreateTextFile (fName) טקסט. טקסט נתונים כותרת. סגור את פונקציית הסיום
- שמור את הטקסט שלמעלה בקובץ עם סיומת '.vbs' על שולחן העבודה.
טיפ בונוס: כדי לוודא שאתה שומר את הקובץ כהלכה בעזרת הסיומת '.vbs', אתה יכול להקליד את שמו המוגבל במרכאות כפולות, למשל, 'BackupWindowsKey.vbs'.
- כעת פתח את קובץ BackupWindowsKey.vbs
- וואלה, מפתח המוצר שלך מוצג על המסך!
לחץ כאן להורדת קובץ BackupWindowsKey.vbs
בדקתי את הטריק הזה ב- Windows 7, Windows 8 ו- Windows 10. זה עובד ללא רבב בכל מערכות ההפעלה שהוזכרו. נקודות זכות: nononsence @ MDL .