Ürün anahtarınızı Windows 10, Windows 8 ve Windows 7'de nasıl görüntüleyebilirsiniz?

Windows ürün anahtarınızı nerede sakladığınızı kaybettiyseniz veya unuttuysanız, sizin için bir çözümüm var. Bugün, yüklü bir Windows 10, Windows 8 veya Windows 7 kopyasının ürün anahtarını bize göstermek için basit bir VBS betiğinin nasıl kullanılabileceğini göreceğiz. Herhangi bir üçüncü taraf yazılımı kullanmadan PC'nizde kurulu işletim sisteminden ürün anahtarınızı çıkarmak basit bir çözümdür. İşte başlıyoruz.

Aslında daha önce yayınlamıştım benzer çözüm hangi PowerShell kullandı. ancak birçok kullanıcı bunun kendileri için başarısız olduğundan şikayet etti. PowerShell, imzasız cmdlet'leri çalıştırmak için ek kullanıcı becerileri ve ekstra ince ayarlar gerektirebilir.

PowerShell ile karşılaştırıldığında, bu VBScript çözümü neredeyse mükemmel. Tek yapmanız gereken dosyaya tıklamak. NS Windows 10 ürün anahtarınızı görüntüleyin

1. Not Defteri'ni açın.
2. Aşağıdaki metni kopyalayıp Not Defteri penceresine yapıştırın

   Seçenek Açık. Dim nesne kabuğu, yol, DigitalID, Sonuç. Set objshell = CreateObject("WScript. Shell") 'Kayıt defteri anahtarı yolunu ayarla Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Kayıt defteri anahtarı değeri DigitalID = objshell. RegRead (Yol ve "Dijital Ürün Kimliği") ÜrünAdı, ÜrünKimliği, ÜrünAnahtarı, ÜrünData 'Get ProductName, ProductID, ProductKey ÜrünAdı = "Ürün Adı: " ve nesne. RegRead (Yol ve "ÜrünAdı") ProductID = "Ürün Kimliği: " ve nesne. RegRead (Yol & "ProductID") ProductKey = "Anahtar Yüklendi: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Bir dosyaya kaydederseniz mesaj kutusunu göster. vbYes = MsgBox (ProductData & vblf & vblf & "Bir dosyaya kaydedilsin mi?", vbYesNo + vbQuestion, "Windows Anahtar Bilgilerini Yedekleyin") ise ProductData'yı kaydedin. Eğer Sonlandır. 'İkiliyi karaktere dönüştür İşlev ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, 'İşletim Sisteminin Windows olup olmadığını kontrol edin 8 isWin8 = (Key) (66) \ 6) Ve 1 Anahtar (66) = (Anahtar (66) Ve &HF7) Veya ((isWin8 Ve 2) * 4) i = 24 Haritalar = "BCDFGHJKMPQRTVWXY2346789" Akım Yap= 0 j = 14 Akım Yap = Akım * 256 Akım = Tuş (j + Tuş Ofseti) + Akım Anahtarı (j + KeyOffset) = (Akım \ 24) Akım=Akım Modu 24 j = j -1 Loop iken j >= 0 i = i -1 KeyOutput = Mid (Maps, Current+ 1, 1) & KeyOutput Last = Mevcut Döngü i >= 0 iken. Eğer (isWin8 = 1) ise keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) ise Last = 0 ise KeyOutput = insert & KeyOutput End If. ConvertToKey = Orta (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" ve Orta (KeyOutput, 21, 5) Son İşlev 'Verileri bir dosyaya kaydet İşlev Kaydet (Veri) Dim fso, fName, txt, objshell, KullanıcıAdı Set objshell = CreateObject("wscript.shell") 'Geçerli olanı al Kullanıcı adı. KullanıcıAdı = nesne kabuğu. ExpandEnvironmentStrings("%UserName%") 'Masaüstünde bir metin dosyası oluşturun. fName = "C:\Users\" & KullanıcıAdı & "\Desktop\WindowsKeyInfo.txt" Set fso = CreateObject("Scripting. FileSystemObject") txt = fso olarak ayarlayın. CreateTextFile (fName) txt. Writeline Data txt. Bitiş İşlevini Kapat 

3. Yukarıdaki metni Masaüstünde ".vbs" uzantılı bir dosyaya kaydedin.
   Bonus ipucu: Dosyayı ".vbs" uzantısıyla doğru şekilde kaydettiğinizden emin olmak için adını çift tırnak içine alarak yazabilirsiniz, örneğin "BackupWindowsKey.vbs".
   
4. Şimdi BackupWindowsKey.vbs dosyanızı açın
5. Voila, ürün anahtarınız ekranda görüntüleniyor!
   

BackupWindowsKey.vbs dosyasını indirmek için burayı tıklayın

Bu numarayı Windows 7, Windows 8 ve Windows 10'da test ettim. Bahsedilen tüm işletim sistemlerinde kusursuz çalışmaktadır. Kredi: anlamsızlık @ MDL.