Windows 10 İşletim Sistemi Ürün Anahtarı ve Bilgisayar Seri Numarasını Bulmak

 Windows 10 ürün anahtarı öğrenme yöntemlerinden biri de bilgisayarınızda bir Komut Dosyası oluşturmaktır. Techspot tarafından hazırlanan aşağıdaki Komut Dosyası metnini açın. Ardından boş bir Not Defteri sayfası açarak bu metni yapıştırın.

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

Metni yapıştırdığınız dosyayı Farklı Kaydet butonu ile .vbs uzantılı olarak bilgisayarınıza kaydedin. Kaydedilen dosyayı çift tıklayarak açtığınız zaman Windows 10 ürün anahtarı bilgilerinizi göreceksiniz. Dilerseniz bu dosyayı metin belgesi olarak kaydederek dilediğiniz zaman ulaşabilirsiniz.

Bilgisayar Seri Numarası Nasıl Bulunur?

PowerShell Kullanarak Bilgisayar Seri Numarası Öğrenme

PowerShell komutu ile bilgisayar seri numarasını öğrenmek için aşağıdaki adımları takip edin:

• Başlat’ı açın.
• PowerShell’i aratın, üstteki sonuca sağ tıklayıp Yönetici olarak Çalıştır’ı seçin.
• Bilgisayar seri numarasını bulmak için şu komutu girip Enter’a basın: Get-WmiObject win32_bios | select Serialnumber
• SerialNumber bilgisini onaylayın.
• (İsteğe Bağlı) Aygıtın seri numarasını bulmak için Get-CIMInstance win32_bios | format-list SerialNumber komutunu girin.
• SerialNumber bilgisini onaylayın.
• (İsteğe Bağlı) Seri numarası bilgisini metin dosyası olarak dışa aktarmak için Get-WmiObject win32_bios | select Serialnumber > PATH\TO\EXPORT komutunu girin. (PATH TO EXPORT bölümünü seri numarası bilgilerini aktarmak istediğiniz metin dosyasının yolu ile değiştirin. Örneğin; C:\BilgisayarSeriNumara.txt gibi.)

CMD Kullanarak Bilgisayar Seri Numarası Öğrenme

CMD (Komut İstemi) komutunu kullanarak bilgisayar seri numarasını öğrenmek için aşağıdaki adımları takip edin:

• Başlat’a sağ tıklayın.
• Komut İstemi (Command Prompt) Yönetici seçimini yapın. 
• Bilgisayar seri numarasını bulmak için şu komutu girip Enter’a basın: wmic bios get SerialNumber
• Bilgisayar seri numarasını onaylayın.
• (İsteğe Bağlı) Seri numarası bilgisini metin dosyası olarak dışa aktarmak için wmic bios get SerialNumber > PATH\TO\EXPORT komutunu girin.