גיבוי סריאל Win10


בין אם יש לכם פרמוט מתוכנן באופק או אם אתם מעוניינים לגבות את הסריאל של מערכת ההפעלה ליום סגריר- הנה מספר שיטות טובות ומוכחות לגיבוי המספר הסידורי של Windows 10

מתחילים

ראשית נתחיל מכך שמייקרוסופט עושה לנו חיים לא קלים בהוצאת המידע הלכאורה שולי (אך חשוב) הזה.

Nirsoft Produkey

בתור התחלה, התחנה הראשונה היא כמובן Nirsoft Produkey תוכנה פשוטה שעושה את העבודה. שימו לב להוריד את התוכנה בגרסת מעבד המתאימה x86/x64.

שימו לב: תוכנות אנטירוס שונות חוסמות לעיתים שרירותית את התוכנה.

במידה ולא ניתן לפתוח את התוכנה ניתן לעקוף את החסימה על ידי נטרול של תוכנת האנטי וירוס, להוריד את הקובץ הבא להתקין ולהפעיל.

לחלופין, ניתן להשתמש בתוכנה JellyBean Keyfiner אשר מציגה את הסריאלי של מערכת ההפעלה בלבד אך גם היא כקודמתה נחסמת לעיתים על ידי תוכנות אנטי וירוס.

Winkeyfinder

Winkeyfiner היא תוכנה מצויינת שנותנת מענה מצויין בדיוק לבעיה זו. היא מאפשרת הכל.

היא מציגה סריאלים של מערכות הפעלה ותוכנות אופיס השונות, והדובדבן שבקצפת- לא נחסמת על ידי תוכנות אנטי וירוס.

ShowKeyPlus

ShowKeyPlus

את ShowKeyPlus פגשתי ממש במקרה כשחיפשתי אלטרנטיבה לתוכנה של Nirsoft, היא עושה את העבודה ומציגה את הסריאל (יחד עם עוד פיצ'רים שימושיים נוספים) אך לא מציגה את הסריאל של גרסאות Office המותקנות במחשב.

את ShowKeyPlus ניתן להשיג בחנות של מיקרוסופט. חינמית לגמרי.

גיבוי באמצעות סקריפט

זה נשמע אולי שם מפוצץ אך האמת שזה לגמרי פשוט, ואין צורך להיות גאון בתכנות כדי לבצע זאת.

לא מדע מסובך

השיטה הבאה היא באמצעות שימו בסקריפט Visual Basic להוצאת המידע. החסרון: מציג רק את המספר הסריאלי של מערכת ההפעלה.

זה עובד כך:
1. מעתיקים את הסקריפט אל פנקס רשימות notepad ושומרים את הקובץ עם סיומת vbs.
2. לאחר מכן מפעילים את הקובץ, ובחלון הקופץ יוצג מפתח המוצר.

שימו לב: ייתכן והסקריפט ייעצר על ידי תוכנות אנטיוירוס.

להלן הסקריפט :

Option Explicit
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

ניתן להוריד את הסקריפט כאן:

בהצלחה!