הנהלת האתר לא תישא באחריות לכל נזק שייגרם מעבודה לפי מדריך זה. המשתמש נושא באחריות הבלעדית לכל שינוי ועבודה שבוצעה. אין לראות בדברים משום המלצה.
בין אם יש לכם פרמוט מתוכנן באופק או אם אתם מעוניינים לגבות את הסריאל של מערכת ההפעלה ליום סגריר- הנה מספר שיטות טובות ומוכחות לגיבוי המספר הסידורי של Windows 10
תוכן העניינים
מתחילים
ראשית נתחיל מכך שמייקרוסופט עושה לנו חיים לא קלים בהוצאת המידע הלכאורה שולי (אך חשוב) הזה.
Nirsoft Produkey
בתור התחלה, התחנה הראשונה היא כמובן Nirsoft Produkey תוכנה פשוטה שעושה את העבודה. שימו לב להוריד את התוכנה בגרסת מעבד המתאימה x86/x64.
במידה ולא ניתן לפתוח את התוכנה ניתן לעקוף את החסימה על ידי נטרול של תוכנת האנטי וירוס, להוריד את הקובץ הבא להתקין ולהפעיל.
לחלופין, ניתן להשתמש בתוכנה JellyBean Keyfiner אשר מציגה את הסריאלי של מערכת ההפעלה בלבד אך גם היא כקודמתה נחסמת לעיתים על ידי תוכנות אנטי וירוס.
Winkeyfinder
Winkeyfiner היא תוכנה מצויינת שנותנת מענה מצויין בדיוק לבעיה זו. היא מאפשרת הכל.
היא מציגה סריאלים של מערכות הפעלה ותוכנות אופיס השונות, והדובדבן שבקצפת- לא נחסמת על ידי תוכנות אנטי וירוס.
ShowKeyPlus
את ShowKeyPlus פגשתי ממש במקרה כשחיפשתי אלטרנטיבה לתוכנה של Nirsoft, היא עושה את העבודה ומציגה את הסריאל (יחד עם עוד פיצ’רים שימושיים נוספים) אך לא מציגה את הסריאל של גרסאות Office המותקנות במחשב.
את ShowKeyPlus ניתן להשיג בחנות של מיקרוסופט. חינמית לגמרי.
גיבוי באמצעות סקריפט
זה נשמע אולי שם מפוצץ אך האמת שזה לגמרי פשוט, ואין צורך להיות גאון בתכנות כדי לבצע זאת.
השיטה הבאה היא באמצעות שימו בסקריפט Visual Basic להוצאת המידע. החסרון: מציג רק את המספר הסריאלי של מערכת ההפעלה.
זה עובד כך:
1. מעתיקים את הסקריפט אל פנקס רשימות notepad ושומרים את הקובץ עם סיומת vbs.
2. לאחר מכן מפעילים את הקובץ, ובחלון הקופץ יוצג מפתח המוצר.
להלן הסקריפט :
Dim objshell,path,DigitalID, Result
Set objshell = CreateObject(“WScript.Shell”)
‘Set registry key path
Path = “HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\”
‘Registry key value
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 = “Installed Key: ” & ConvertToKey(DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
‘Show messbox if save to a file
If vbYes = MsgBox(ProductData & vblf & vblf & “Save to a file?”, vbYesNo + vbQuestion, “BackUp Windows Key Information”) then
Save ProductData
End If
‘Convert binary to chars
Function ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
‘Check if OS is Windows 8
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Maps = “BCDFGHJKMPQRTVWXY2346789”
Do
Current= 0
j = 14
Do
Current = Current* 256
Current = Key(j + KeyOffset) + Current
Key(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 = Current
Loop While i >= 0
If (isWin8 = 1) Then
keypart1 = Mid(KeyOutput, 2, Last)
insert = “N”
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then 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
‘Save data to a file
Function Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject(“wscript.shell”)
‘Get current user name
UserName = objshell.ExpandEnvironmentStrings(“%UserName%”)
‘Create a text file on desktop
fName = “C:\Users\” & UserName & “\Desktop\WindowsKeyInfo.txt”
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function
ניתן להוריד את הסקריפט כאן:
בהצלחה!
