यदि आप खो गए हैं या भूल गए हैं कि आपने अपनी विंडोज उत्पाद कुंजी कहां संग्रहीत की है, तो मेरे पास आपके लिए एक समाधान है। आज हम देखेंगे कि विंडोज 10, विंडोज 8 या विंडोज 7. की स्थापित प्रति की उत्पाद कुंजी को दिखाने के लिए एक सरल VBS स्क्रिप्ट का उपयोग कैसे किया जा सकता है। यह आपके पीसी पर स्थापित OS से आपकी उत्पाद कुंजी निकालने का एक सरल उपाय है किसी भी तीसरे पक्ष के सॉफ़्टवेयर का उपयोग करना। ये रहा।
विज्ञापन
दरअसल, पहले मैंने पोस्ट किया था समान समाधान जो PowerShell का उपयोग करता है। लेकिन कई उपयोगकर्ताओं ने शिकायत की कि यह उनके लिए विफल है। PowerShell को अहस्ताक्षरित cmdlets चलाने के लिए अतिरिक्त उपयोगकर्ता कौशल और अतिरिक्त tweaks की आवश्यकता हो सकती है।
सिम्स 4 में चीट कैसे चालू करें
PowerShell की तुलना में, यह VBScript समाधान लगभग सही है। आपको बस फ़ाइल पर क्लिक करना है। सेवा अपनी विंडोज 10 उत्पाद कुंजी देखें
- नोटपैड खोलें।
- निम्न पाठ को नोटपैड विंडो में कॉपी और पेस्ट करें
विकल्प स्पष्ट मंद objshell, पथ, DigitalID, परिणाम सेट objshell = CreateObject ('WScript.Shell') 'रजिस्ट्री कुंजी पथ सेट करें पथ =' HKLM SOFTWARE Microsoft Windows NT CurrentViturn + 'रजिस्ट्री कुंजी मान DigitalID = objshell.RegReadRead (पथ और 'DigitalProductId') मंद ProductName, ProductID, ProductKey, ProductData 'प्राप्त करें ProductName, ProductID, ProductKey ProductName =' उत्पाद का नाम: 'और objshell.RegRead (पथ और' ProductName ') ProductID =' उत्पाद ID: '& objshell। RegRead (पथ और 'ProductID') ProductKey = 'स्थापित कुंजी:' और ConvertToKey (DigitalID) ProductData = ProductName और vbNewLine और ProductID और vbNewLine और ProductKey 'फ़ाइल को सेव करें अगर vbYes = MsgBox (ProductData और vblf) के लिए मैसेंजर दिखाएं 'फ़ाइल को सहेजें?', VbYesNo + vbQuestion, 'BackUp Windows कुंजी जानकारी') फिर सहेजें ProductData समाप्ति यदि 'बाइनरी को वर्णों में बदलें फंक्शन ConvertToKey (Key) कॉन्स्टेंस KeyOffice = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , अंतिम, keypart1, डालें 'जांचें कि क्या OS विंडोज 8 isWin8 = (कुंजी (66) 6) और 1 कुंजी (66) है = (की (66) और एचएफ 7) या ((isWin8 और 2) * 4) i = 24 मैप्स = 'BCDFGHJKMPQRTVWXY2346789' करंट = 0 j = 14 = वर्तमान = वर्तमान * 256 वर्तमान = की (j + कीऑफसेट) + करंट Key (j + KeyOffset) = (करंट 24) करंट = करंट मॉड 24 j = j -1 लूप जबकि j> = 0 i = i -1 iOOutput = Mid (मैप्स, करंट + 1, 1) और KeyOutput लास्ट / करंट लूप जबकि i> = 0 यदि (isWin8 = 1) तब keypart1 = Mid (KeyOutput, 2, Last) Insert = 'N' KeyOutput = प्रतिस्थापित (KeyOutput, keypart1, keypart1 & सम्मिलित करें, 2, 1, 0) यदि अंतिम = 0 तब KeyOutput = सम्मिलित करें और KeyOutput अंत यदि ConvertToKey = Mid (KeyOutput, 1, 5) & '-' और मिड (KeyOutput, 6, 5) & '-' और मिड (KeyOutput, 11, 5) और '-' और मिड ( KeyOutput, 16, 5) & '-' और मिड (KeyOutput, 21, 5) एंड फंक्शन 'अंत डेटा को सेव करें फंक्शन सेव करें (डेटा) Dim fso, fName, txt, objshell, UserNot सेट objshell = CreateObject (' wscript)। शेल ')' वर्तमान उपयोगकर्ता नाम प्राप्त करें UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'डेस्कटॉप fName पर एक पाठ फ़ाइल बनाएँ =' C: Users 'और उपयोगकर्ता नाम और / Desktop WindowsKeyI nfo.txt 'सेट fso = CreateObject (' Scripting.FileSystemObject ') सेट txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Class End फ़ंक्शन
- डेस्कटॉप पर '.vbs' एक्सटेंशन के साथ एक फ़ाइल के लिए ऊपर दिए गए पाठ को सहेजें।
बोनस टिप: यह सुनिश्चित करने के लिए कि आप फ़ाइल को '.vbs' एक्सटेंशन के साथ सही ढंग से सहेज रहे हैं, आप इसका नाम डबल कोट्स में संलग्न कर सकते हैं, उदाहरण के लिए, 'BackupWindowsKey.vbs'।
- अब अपनी BackupWindowsKey.vbs फ़ाइल खोलें
- Voila, आप उत्पाद कुंजी स्क्रीन पर प्रदर्शित किया जाता है!
BackupWindowsKey.vbs फ़ाइल डाउनलोड करने के लिए यहां क्लिक करें
मैंने इस ट्रिक को विंडोज 7, विंडोज 8 और विंडोज 10 पर टेस्ट किया है। यह सभी उल्लिखित ऑपरेटिंग सिस्टम में निर्दोष रूप से काम करता है। क्रेडिट: नॉनसेंस @ एमडीएल ।