WİNDOWS 10 PRO OEM KEY BULMA

internetten 10-15 liraya windows 10 pro key'i satın almıştım. aldıktan sonra etkinleştirdim. şimdi üstünden aylar geçti o ve key'e ihtiyacım var.

cmd'den powershell "(Get-WmiObject -query ‘select * from SoftwareLicensingService’).OA3xOriginalProductKey" komutunu girince kodumu vermiyor.

başka key bulucu programlarla denediğimde yine key çıkmıyor. ama bilgisayarım "windows 10 pro etkinleştirildi" diye yazıyor.

acaba oem keylerde normal mi bu durum?

Aslında key girmeden temiz Windows kurulumu yaptığınızda ilk internete bağlandığızda otomatik olarak etkinleşmesi lazım.

Ama her ihtimale karşı lisans keyinizi bulup bir yere not edin, lazım olur. Bunun için çeşitli programlar var. Mesela ProduKey programını kullanabilirsiniz.

https://www.nirsoft.net/utils/product_cd_key_viewer.html

Hocam bu programla denedim, “product key was not found” yazıyor. Bilgisayara temiz kurumla windows 10 yükleyeceğim acaba otomatik olarak key yine aktif olur mu

Bulmadı, mağaza gittigidiyor’da kapatılmış :(

Aslında key girmeden temiz kurulum yapınca internete ilk bağlantıda otomatik olarak Windows etkinleşiyor. Sizin de etkinleşmesi lazım.

İsterseniz daha sağlam olsun diye format atmadan önce bilgisayarı Windows Cihazlara ekleyin otomatik etkinleştirme olmazsa Microsoft hesabınızla oturum açarsınız Windows etkinleştirmesi daha garanti olur. Herhangi bir problem çıkarsa da Microsoft'tan daha iyi destek alırsınız.

Cihazı Microsoft hesabına bağlayabilmeniz için hotmail veya outlook live hesabınızın olması yeterlidir. Yoksa outlook live gidip ücretsiz hesap açabilirsiniz.

Windows 10'da Ayarlar > Hesaplar > Bilgileriniz'e girin. Burada Microsoft hesabı ile oturum aç'ı seçin. Bilgisayarda Microsoft hesabı ile oturum açtıktan sonra Microsoft devices'de bilgisayarınızı görebilmeniz lazım. [Microsoft devices'in buraya linkini yazmaya çalışıyorum ama değişik çıkıyor. Bir türlü yazamadım.]

Format atıp temiz kurulum yapınca otomatik etkinleştirme olmazsa Microsoft hesabınızla giriş yaptığınızda bilgisayarınızı tanıyacaktır.

Bundan sonra ister Microsoft hesabı ile devam edersiniz isterseniz yerel hesaba geçiş yaparsınız.

Bu yöntem de işe yaramazsa Microsoft'u arayıp destek isteyebilirsiniz. Durumu anlatırsınız bilgisayarım Microsoft cihazlarında görünüyor dersiniz, lisanslı olduğunuzu daha rahat ispatlamış olursunuz. Ama Microsoft destekle konuşurken 10-15 TL aldığınızı söylemeyin. Onun yerine "Her zaman format attığımda otomatik olarak etkinleşiyordu, lisans anahtarını hiç kullanmadığım için kayboldu gitti. Ne olduysa şimdi etkinleşmedi. İlgilenir misiniz?" dersin.

Bende GG dan pro key aldim (oem) anakarta gomuluyo etkinlestirmede.Sanirim 10 sefer format atmisimdir:) Windows 10 un farkli versiyonlari kurarak en stabili bulmaya calistim Herneyse formattan sonra ilk internet baglantisinda kendi otomatik aktif oldu hic elimi bile vurmadim biseye.Buyuk ihtimalle szinkide olacakdir.

Bu programı deneyin.

https://forum.donanimhaber.com/urun-anahtarim-key-hangi-windows-surumu-icin-ogrenin--119017536

Const HKEY_LOCAL_MACHINE = &H80000002

 WinKey = GetWinKey

 OfficeKeys = GetOfficeKey("10.0") & GetOfficeKey("11.0") & GetOfficeKey("12.0") & GetOfficeKey("14.0") & GetOfficeKey("15.0")

 If Msgbox(WinKey & vbnewline & vbnewline & OfficeKeys & vbnewline & "Tüm anahtarları ProductKeys.txt dosyasına kayıt etmek istiyor musunuz?", vbyesno, "Windows Ürün Anahtarları by MRT_") = vbyes then

   Set objFSO = CreateObject("Scripting.FileSystemObject")

   Set objTextFile = objFSO.CreateTextFile("ProductKeys.txt", True)

   objTextFile.Write WinKey & vbnewline & vbnewline & OfficeKeys

   objTextFile.Close

 end if

 Function GetOfficeKey(sVer)

   On Error Resume Next

   Dim arrSubKeys

   Set wshShell = WScript.CreateObject( "WScript.Shell" )

   sBit = wshShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%")

   if sBit <> "%ProgramFiles(x86)%" then

  sBit = "Software\wow6432node"

   else

  sBit = "Software"

   end if

   Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

   objReg.EnumKey HKEY_LOCAL_MACHINE, sBit & "\Microsoft\Office\" & sVer & "\Registration", arrSubKeys

   Set objReg = Nothing

   if IsNull(arrSubKeys) = False then

     For Each Subkey in arrSubKeys

    if lenb(other) < 1 then other = wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\ProductName")

    if ucase(right(SubKey, 7)) = "0FF1CE}" then

         Set wshshell = CreateObject("WScript.Shell")

      key = ConvertToKey(wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\DigitalProductID"))

    oem = ucase(mid(wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\ProductID"), 7, 3))

     edition = wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\ProductName")

    if err.number <> 0 then 

      edition = other

          err.clear

    end if

      Set wshshell = Nothing

       if oem <> "OEM" then oem = "Retail"

      if lenb(final) > 1 then

      final = final & vbnewline & final

       else

        final = edition & " " & oem & ": " & key 

         end if

    end if

     Next

  GetOfficeKey = final & vbnewline

   End If

 End Function

 Function GetWinKey()

   Set wshshell = CreateObject("WScript.Shell")

   edition = wshshell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")

   oem = ucase(mid(wshshell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductID"), 7, 3))

   key = GetKey("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")

   set wshshell = Nothing

   if oem <> "OEM" then oem = "Retail"

   GetWinKey = edition & " " & oem & ": " & key

 End Function

 Function GetKey(sReg)

   Set wshshell = CreateObject("WScript.Shell")

   GetKey = ConvertToKey(wshshell.RegRead(sReg))

   Set wshshell = Nothing

 End Function

 Function ConvertToKey(key)

   Const KeyOffset = 52

   i = 28

   Chars = "BCDFGHJKMPQRTVWXY2346789"

   Do

     Cur = 0

     x = 14

     Do

       Cur = Cur * 256

       Cur = key(x + KeyOffset) + Cur

       key(x + KeyOffset) = (Cur \ 24) And 255

       Cur = Cur Mod 24

       x = x - 1

     Loop While x >= 0

     i = i - 1

     KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput

     If (((29 - i) Mod 6) = 0) And (i <> -1) Then

       i = i - 1

       KeyOutput = "-" & KeyOutput

     End If

   Loop While i >= 0

   ConvertToKey = KeyOutput

 End Function

Yukarıdaki kodu bir metin belgesine kopyalayıp yapıştırın ve key.vbs olarak kayıt edin. Sonra dosyayı çift tıklayıp çalıştırın. 

şöyle bir şey çıktı hocam

çok teşekkür ederim hocam, en mantıklısı bu. maili kaydedip eşleştirdim. çok teşekkür ederim.

Microsoft devices'de bilgisayarınızı görüyor musunuz?

Kayıt defterinde de keyin yazıyor olması gerekiyor aslında.

Kayıt defterine gir şu yolu izle.

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

BackupProductKeyDefault kayıt girdisinin sağında yazıyor olacak.

evet bilgisayarın modeli yazıyor. tıkladığımda da windows gözüküyor, cihazımı bul gibi detaylar var.

ikinci defa girmek istediğimde değişik bir hata verdi sıkıntı var sanırım sitede.