«
  1. Anasayfa
  2. Bilgisayar
  3. Microsoft Windows 10 Lisans Anahtarı Nasıl Bulunur?

Microsoft Windows 10 Lisans Anahtarı Nasıl Bulunur?

Bilgisayarda kurulu olan Windows 10 işletim sistemin kayıtlı lisansını öğrenmek. Bilgisayarınıza yeniden işletim sistemi kuracaksınız ancak lisansınızı bulamıyorsunuz yada kullandığınız Windows 10 sürümünü yükseltmek isterseniz de yine orijinal satın aldığınız Windows 10 lisansına ihtiyacınız olacaktır. Üç basit yöntem ile Programlı ve programsız Windows 10 ürün anahtarını nasıl öğrenilir bakalım.

1.Yöntem; Komut İstemi ile Ürün Anahtarı Öğrenmek

Bazı bilgisayar üreticileri Windows 10 lisans etiketini bilgisayar üzerine yapıştırmazlar. Windows 10 lisansları anakart üzerine eklenerek gelmektedir. Özellikle dizüstü bilgisayar modellerinde bu şekildedir. Harici bir lisans almadıysanız lisansınız anakart üzerinde geldiyse komut satırına bakarak öörenebilirsiniz. Bunun için;

  • Klavyeden Windows tuşu +r basınız “cmd” yazınız yada Arama bölümüne “cmd” yazınız.
  • Karşınıza siyah ekran yani komut istemi ekranı gelecektir.
  • Siyah ekrana şu komutu yapıştırıp; wmic path SoftwareLicensingService get OA3xOriginalProductKey Enter tuşuna basınız.
  • İşte anakart üstüne yazılmış Windows 10 lisansınız karşınızda.


Not: Komut satırı yöntemi ile crack yapılmış veya harici alınmış lisansları göremezseniz.

2. Yöntem; Program ile öğrenmek (ücretsiz)

Ücretsiz olarak dağıtılan programlar kullanarak ta Windows 10 işletim sisteminizin kayıtlı olan lisansını öğrenebilirsiniz. Bu yöntem ile Anakart üzerinde kayıtlı olan, veya kutu olarak alınmış veya farklı yollarla lisanslanmış bütün lisansları görebilirsiniz. Tavsiye edeceğim programın “Produkey”. Kurulum gerektirmeden Tıkla – Çalıştır mantığıyla lisansınızı görebilirsiniz.

Programın en güncel versiyonunu BU LİNK‘ten indirebilirsiniz. Yapımcı firma Nirsoft’un kendi resmi indirme sitesidir. Uygulama kurulum gerektirmez indirdiğiniz programı çalıştırdığınızda bilgisayarınızda kayıtlı Windows 10 veya Windows 7 işletim sisteminizin lisansını görebilirsiniz.

Ayrıca “Produkey” programının bir diğer kullanışlı tarafı da; İşletim sistemi çökmüş olan bir bilgisayarın da lisansını görebilme imkanınız olmasıdır. Bunun için;
İşletim sistemi çökmüş olan Windows 10 makinanın diskini çıkartıp çalışan başka bir makinaya yedek olarak başlayın.

  • Produkey programını çalıştırın.
  • Ekranın sol üst köşesinde yer alan “Dosya” yazısına tıklayın.
  • Karşınıza gelen “Kaynak Seç” ekranında “Ürün anahtarını dış Windows dizininden yükleyin” bölümünü seçerek yedek olarak bağladığınız diski göstermeniz yeterli olacaktır.

3.Yöntem; Not Defteri ile Ürün Anahtarı Öğrenmek

Programsız olarak öğrenebileceğiniz ikinci yöntemdir. Not defteri uygulamasına aşağıdaki vereceğim linki yazarak Script dosyası hazırlayıp görebilirsiniz. Bunun için;

  • Arama kısmına “Not Defteri” yazı Yeni bir not defteri Açın.
  • Aşağıda verdiğim kodu bu olduğu gibi Not defteri içine yapıştırın.
  • ‘Farklı Kaydet’ dedikten sonra alt kısımda yer alan ‘Kayıt Türü’ kısmını ‘Tüm Dosyalar’ olarak seçin.
  • Dosyayı Lisansgoster.vbs isim verin. (burası öenmli: dosyanın uzantısının .vbs olmasına dikkat edin)
  • Kayıt edilen dosyanızı Çift Tıklayın. Masaüstüne içinde Windows Lisansınız olan bir txt dosyası oluşacaktır.

Not defterine kaydetmeniz gereken satırlar şu şekilde:


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
keypart1 = Mid(KeyOutput, 2, Last)
insert = “N”
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
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


Bir Cevap Yaz

Bir Cevap Yaz

E-posta hesabınız yayımlanmayacak. Gerekli alanlar işaretlendi *