Windows 10 Ürün Anahtarı Nasıl Öğrenilir?

Windows 10 ürün anahtarını öğrenmek için hangi işlemlerin gerçekleştirilmesi gerekiyor? Bu yazıda oldukça büyük bir popülerliğe olan işletim sisteminin lisans anahtarına nasıl erişebileceğinizi açıkladık.

Microsoft tarafından geliştirilen Windows 10 işletim sisteminin lisansını başka bir bilgisayara aktarmak istiyorsanız ya da yalnızca sürüm yükselttiyseniz kullanmakta olduğunuz ürün anahtarına ihtiyaç duyabilirsiniz.

Windows 10 Ürün Anahtarı Öğrenme Nasıl Yapılır?

Komut İstemi ile Lisans Anahtarı Öğrenme
ProduKey ile Ürün Anahtarı Öğrenme
Windows 10 Kutu İçeriğine Bakma
Windows Ayarlarını Kullanma
Not Defteri ile Ürün Anahtarı Öğrenme

Komut İstemi ile Lisans Anahtarı Öğrenme

Görev Çubuğu’nda yer alan arama kutusuna tıklayın.
Komut İstemi yazın.
Arama sonuçlarının sağ kısmındaki “Yönetici olarak çalıştır” yazısına tıklayın.
“wmic path SoftwareLicensingService get OA3xOriginalProductKey” kodunu yazın.
Son olarak “Enter” tuşuna basın.

Windows 10 ile birlikte gelen bilgisayarlarda ürün anahtarı, anakartın sabit yazılımında yer alır. Eğer yeni bilgisayarınızdaki ürün anahtarını öğrenmek istiyorsanız, bunu komut istemi aracılığı ile yapmanız mümkündür.

ProduKey ile Ürün Anahtarı Öğrenme

Eğer komut istemi ile ürün anahtarınızı öğrenemediyseniz üçüncü parti bir uygulamadan yardım almayı düşünebilirsiniz. ProduKey kolay kullanımı ile tercih edebileceğiniz uygulamalardan birisi olarak öne çıkıyor. Ürün anahtarınızı öğrenmek için uygulamayı indirmeniz ve yüklemeniz yeterli olacaktır.

ProduKey

ProduKey, bilgisayarınızda yüklü programların ürün anahtarlarını gösteren ve kaydetme imkanı tanıyan bir programdır.

İndir

Windows 10 Kutu İçeriğine Bakma

Popüler işletim sistemini kutulu olarak satın aldıysanız, lisans anahtarına ürünün kutusunun içerisinden erişebilirsiniz. Bu işlem için kutunun içeriğini kontrol etmeniz yeterli olacaktır. Eğer ürünün kutusunu kaybettiyseniz, listedeki diğer yöntemleri uygulayabilirsiniz.

Windows Ayarlarını Kullanma

Windows + I klavye kısayolunu kullanarak ayarlar penceresini görüntüleyin.
Açılan pencere üzerinden “Güncelleştirme ve Güvenlik” yazısına tıklayın.
“Etkinleştirme” sekmesine tıklayın ve adımları takip edin.

İşletim sisteminin lisans anahtarını görüntüleyebilmek için uygulayabileceğiniz bir yöntem daha bulunuyor. Üçüncü parti yazılım kullanmak istemiyorsanız ayarlar sayfası üzerinden oldukça pratik ve hızlı bir şekilde anahtara erişebilirsiniz.

Not Defteri ile Ürün Anahtarı Öğrenme

Yeni bir not defteri dosyası oluşturun.
Hemen aşağıda yer alan kodu bu not defterine yapıştırın.
“Farklı Kaydet” seçeneğine tıklayın.
“Kayıt Türü” kısmında “Tüm Dosyalar” seçeneğini seçin.
Dosyayı WindowsLisans.vbs olarak adlandırın.
Pencereyi kapatın.
Kaydedilen dosyaya çift tıkladığınızda ürün anahtarınızı görebilirsiniz.

Windowss 10 işletim sisteminizin anahtarına ulaşabilmek için not defterini kullanabilirsiniz. Böylelikle herhangi bir yazılımı kurmadan lisans anahtarına erişmiş olursunuz. Bu yöntem için yukarıda yer alan adımları sırasıyla uygulamanız gerekir.

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