Windows ürün anahtarınızı nerede sakladığınızı kaybettiyseniz veya unuttuysanız, sizin için bir çözümüm var. Bugün, Windows 10, Windows 8 veya Windows 7'nin yüklü bir kopyasının ürün anahtarını bize göstermek için basit bir VBS komut dosyasının nasıl kullanılabileceğini göreceğiz. Ürün anahtarınızı bilgisayarınızda yüklü olan işletim sisteminden çıkarmak için basit bir çözümdür. herhangi bir üçüncü taraf yazılımı kullanmak. İşte başlıyoruz.
Reklam
Aslında, daha önce bir benzer çözüm PowerShell kullandı. ancak birçok kullanıcı bunun kendileri için başarısız olmasından şikayet etti. PowerShell, imzasız cmdlet'leri çalıştırmak için ek kullanıcı becerileri ve ekstra ince ayarlar gerektirebilir.
android mobil erişim noktasından chromecast'e yayın
PowerShell ile karşılaştırıldığında, bu VBScript çözümü neredeyse mükemmeldir. Tek yapmanız gereken dosyayı tıklamak. İçin Windows 10 ürün anahtarınızı görüntüleyin
- Not Defteri'ni açın.
- Aşağıdaki metni kopyalayıp Not Defteri penceresine yapıştırın
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) = (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 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) Sonra 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 - 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 yazabilirsiniz, örneğin 'BackupWindowsKey.vbs'.
- Şimdi BackupWindowsKey.vbs dosyanızı açın
- 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. Belirtilen tüm işletim sistemlerinde kusursuz çalışıyor. Kredi: nononsence @ MDL .
