Komut Dosyası veya Komut Satırı Kullanarak Windows 10 Ürün Anahtarınızı Nasıl Görüntüleyebilirsiniz - Winhelponline

How View Your Windows 10 Product Key Using Script

İçin birçok araç var Ürün Anahtarını çıkarın canlı bir sistemden veya çevrimdışı bir bilgisayarın kayıt defteri kovanından. Ek olarak, mevcut Windows kurulumunuzun Ürün Anahtarını alan küçük bir Vbscript - üçüncü taraf programı gerekmez. Komut dosyası Windows 7, 8 ve Windows 10'da çalışır.



Windows 10 Ürün Anahtarını Görüntüleyin

Yöntem 1: WMI komut satırını veya PowerShell'i kullanma

Windows kurulumunuzun ürün anahtarını düzeltmek için aşağıdaki WMI komut satırını kullanın.



wmic path softwarelicensingservice get OA3xOriginalProductKey

Bu yöntem, bilgisayarınızın UEFI / BIOS'unda depolanan etkinleştirme anahtarını alır.



Yukarıdaki komutu bir yükseltilmiş / yönetici Komut İstemi pencere.

wmic path softwarelicensingservice get OA3xOriginalProductKey



Veya PowerShell kullanıyorsanız, ürün anahtarını öğrenmek için bu komutu bir yönetici PowerShell penceresinden çalıştırın:

(Get-WmiObject -query 'SoftwareLicensingService'den * seçin'). OA3xOriginalProductKey

Bazı sistemlerde, yukarıdaki komutlar başlığın çıktısını alacaktır. OA3xOriginalProductKey ve altında ürün anahtarı göstermeyen boş satırlar. Bu, cihazda yerleşik bir etkinleştirme / ürün anahtarı yoksa gerçekleşir.

Aygıtın yerleşik ürün yazılımı etkinleştirme anahtarı varsa, çıktıda görüntülenecektir. Çıktı boşsa, aygıtın yerleşik ürün yazılımı etkinleştirme anahtarı yoktur. Windows 8 veya sonraki sürümleri çalıştırmak üzere tasarlanmış OEM tarafından sağlanan cihazların çoğunda yerleşik bellenim anahtarı bulunur.

Yöntem 2: Komut Dosyasını Kullanma

Önemli: Aşağıdaki yöntemin basitçe DigitalProductId perakende ürün anahtarını almak için kayıt defteri değeri. Bu yöntem kullanılarak alınan anahtar, otomatik olarak oluşturulmuş olabilir genel Windows 10 anahtarı (Windows 7 veya 8'den dijital yetkilendirme kapsamında yükseltilen sistemler için). Windows 10 kurulumu sırasında manuel olarak girdiğiniz perakende sürüm anahtarı (lisansı daha önce satın aldıysanız) da olabilir. Bu nedenle, Windows 10 kullanıyorsanız, 1. yönteme öncelik vermeniz önerilir.

Aşağıdaki kodu Not Defteri'ne kopyalayın ve dosyayı GetProductKey.vbs olarak kaydedin.

Seçenek Açık Dim objshell, yol, DigitalID, Sonuç Set objshell = CreateObject ('WScript.Shell') 'Kayıt defteri anahtar yolunu ayarla Yol =' HKLM  SOFTWARE  Microsoft  Windows NT  CurrentVersion  '' Kayıt defteri anahtarı değeri DigitalID = objshell.RegRead (Yol & '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 'Bir dosyaya kaydederseniz mesaj kutusunu göster If vbYes = MsgBox (ProductData & vblf & vblf & 'Bir dosyaya kaydet?', VbYesNo + vbQuestion, 'Windows Anahtar Bilgilerini Yedekle') ve sonra ProductData End'i Kaydet 'İkili karakterleri karakterlere dönüştür İşlev ConvertToKey (Anahtar) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Son, keypart1, 'İşletim sisteminin Windows 8 olup olmadığını kontrol edin isWin8 = (Anahtar (66)  6) Ve 1 Anahtar (66) = (Anahtar (66) Ve & HF7) Veya ((isWin8 Ve 2) * 4) i = 24 Harita = 'BCDFGHJKMPQRTVWXY2346789' Akım Yap = 0 j = 14 Akım Yap = Akım * 256 Akım = Anahtar (j + TuşOffset) + Akım Anahtar (j + KeyOffset) = (Akım  24) Akım = Mevcut Mod 24 j = j -1 Döngü j> = 0 i = i -1 KeyOutput = Orta (Haritalar, Akım + 1, 1) & KeyOutput Son = Güncel Döngü İ> = 0 ise (isWin8 = 1) O zaman keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Değiştir (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) Son = 0 ise Sonra KeyOutput = & KeyOutput End, ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) End Function 'Verileri bir dosyaya kaydetme Fonksiyon Kaydetme (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Geçerli kullanıcı adını alın UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Masaüstünde bir metin dosyası oluşturun fName =' C:  Users  '& UserName &'  Desktop  WindowsKeyI nfo.txt 'Set fso = CreateObject (' Scripting.FileSystemObject ') Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Fonksiyonu

Kaynak: Windows Ürün Anahtarını Alın · GitHub

Windows kurulumunuzun Ürün Anahtarını bulmak için betiği çalıştırmak için çift tıklayın.

vbscript ürün anahtarı pencerelerini görüntüle 10

Vbscript kullanılarak alınan Ürün Anahtarı

Bu kadar!


Küçük bir istek: Bu gönderiyi beğendiyseniz, lütfen paylaşın?

Sizden 'küçük' bir paylaşım, bu blogun büyümesine ciddi şekilde yardımcı olacaktır. Bazı harika öneriler:
  • İğnele!
  • En sevdiğiniz blog + Facebook, Reddit ile paylaşın
  • Cıvılda!
Desteğiniz için çok teşekkür ederim okuyucum. Zamanınızın 10 saniyesinden fazla sürmez. Paylaşım düğmeleri hemen aşağıda. :)