استفسار لمعرفة سريال نمبر وندوز 11

[ADNAN]

السلام عليكم ... سؤالي هو كيفية معرفة سريال نمبر وندوز 11 . علما بان الوندوز عندي تم ترقيته من وندوز 10 الى وندوز 11 . وشكرا لكم جميعا

 

[الموج الصامت]

تفضل ادخل وحمل الاداة
https://absba.cc/threads/mini-kms-activator-ultimate-2-8.6864/

 

[ADNAN]

شكرا لك انا عندي النسخة اصلية من الشركة كما اسلفت لكم ولا تحتاج تنشيط فقط اريد معرفة السريال نمبر لاحتمال اقوم بالفرمته وتنصيب وندوز من جديد لان الشركة وندوز لاتعطي الترقية مرتين . لقد استعملت برنامج كشف السريالات ولم يعمل على الوندوز 11

 

[GeNiUs5]

حسب علمي إذا أنت مسجل الدخول في الويندوز بحساب مايكروسوفت .. ينحفظ التفعيل في حال عملت فورمات لنفس الكمبيوتر سيبقى مفعل
لكن حمل ويندوز 11 على فلاشة حتى تقوم بالفرمتة منها .. مو كل مرة تثبت ويندوز 10 ثم ترقيه​

 

[zaxo7]

راي الشخصي
ان قمت بتصطيب نفس النسخة اي ان كان على الحاسوب نسخة برو ان عملت فورمات وثم تصطيب نسخة برو سيكون في النهاية النسخة اكتيف لا يحتاج الى سريال حتى ان كان النسخة الاخيرة تختلف عن الاولى من حيث التسلسل

مع هذا يمكنك في ويندوز 11 معرفة السريال في الريجستيري وذلك

من الكي بورد اضغط مفتاح
الويندوز مع R
اكتب في النافذة regedit وثم OK
سيفتح نافذة الريجستيري

تابع هذا المسار

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform

HKEY_LOCAL_MACHINE
ثم
SOFTWARE
ثم
Microsoft
ثم
Windows NT
ثم
CurrentVersion
ثم
SoftwareProtectionPlatform

او انسخ الكود التالي الى النودبات وثم احفظها باي اسم بصيغة vbs
مثلا احفظها باسم

ADNAN.vbs
ثم اعمل دبل كليك عليها اي شغلها ستجد نافذة مع السريال

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

 

[ADNAN]

شكرا لك اخي العزيز زاخو 7 لقد وجدته واجدد شكري وتقديري واحترامي لك

 

[zaxo7]

بارك الله فيك على المتابعة