için Freedos bir bilgisayar aldıysanız her formatta ürün anahtarınızı tekrar girmeniz gerekecektir. Elbette ürün anahtarını veren birçok uygulama mevcut gel gelelim özellikle sistem yöneticileri şirket bilgisayarlarında 3. parti dediğimiz yazılımları çalıştırmaktan hoşlanmazlar aynı şekilde biraz tedbirli kullanıcılarda kendi işlerini kendi halleder ve kodlarını gördükleri scriptleri tercih ederler.

Hatırlarsanız Windows ürün anahtarını Vbscript ile bulma konusunda Buradaki makalemizde bir script paylaşmıştık. Sayfa sonundaki script oradaki paylaşımımızın biraz daha gelişmiş bir halidir. İndirip zipten çıkarttığınızda karşınıza iki script ve bir kaynak klasörü gelecektir.

Lisans_Anahtari_tr.vbs yi çalıştırdığınızda sırası ile aşağıdaki bilgileri gösteren bir pencere karşınıza gelecektir.

1. Windows un türünü
2. Ürün Kimliği
3. Geçerli Anahtar
4. OEM Anahtar

Sonda yeralan kaydetmek istiyor musunuz ? sorunuza Evet yanıtını verirseniz Scriptin yanında "Windows Lisans anahtarı.txt" isminde bir dosya oluşacak ve üstteki Resimde gördüğünüz bilgiler içerisinde yeralacaktır. Show_Win_key_en.vbs çalıştırıldığında ise Aynı arayüz ingilizce olarak karşınıza gelecektir. Aşağıda kaynak klasöründe yeralan scriptin kodları yeralmaktadır.

const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
strValueName = "DigitalProductId"
dim iValues()
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,iValues
Dim arrDPID
arrDPID = Array()
For i = 52 to 66
  ReDim Preserve arrDPID( UBound(arrDPID) + 1 )
  arrDPID( UBound(arrDPID) ) = iValues(i)
Next
Dim arrChars
arrChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9")
For i = 24 To 0 Step -1
  k = 0
  For j = 14 To 0 Step -1
    k = k * 256 Xor arrDPID(j)
    arrDPID(j) = Int(k / 24)
    k = k Mod 24
  Next
  strProductKey = arrChars(k) & strProductKey
  If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey
Next
strFinalKey = strProductKey
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
  strOS   = objOperatingSystem.Caption
  strBuild   = objOperatingSystem.BuildNumber
  strSerial   = objOperatingSystem.SerialNumber
  strRegistered  = objOperatingSystem.RegisteredUser
Next
Set wshShell=CreateObject("wscript.shell")
strPopupMsg = strOS & vbNewLine & vbNewLine
strPopupMsg = strPopupMsg & "Build Number:  " & strBuild & vbNewLine
strPopupMsg = strPopupMsg & "PID:  " & strSerial & vbNewLine & vbNewLine
strPopupMsg = strPopupMsg & "Registered to:  " & strRegistered & vbNewLine & vbNewLine & vbNewLine
strPopupMsg = strPopupMsg & "Your Windows Product Key is:" & vbNewLine & vbNewLine & strFinalKey
strPopupTitle = "Microsoft Windows License Information"
wshShell.Popup strPopupMsg,,strPopupTitle,vbCancelOnly+vbinformation
WScript.Quit

Üstteki Kodları ve daha geliştirilmiş vbscript kodlarının hepsini aşağıdaki indirme linkinden edinebilirsiniz. Eğer bu konuda yazılım kullanmak isterseniz Download butonunun altında yeralan linklerden faydalanabilirsiniz.

- Windows Lisans anahtarınızı Kolayca görüntüleyin Burada

- BIOS a gömülü Windows ürün anahtarını Bulalım Burada

- Bir komutla Windows 10 ürün anahtarımızı bulalım Burada

3 Nisan 2012 Tarihli başlık güncellendi