మీరు మీ విండోస్ ఉత్పత్తి కీని ఎక్కడ నిల్వ చేశారో మీరు కోల్పోతే లేదా మరచిపోతే, మీ కోసం నా దగ్గర ఒక పరిష్కారం ఉంది. విండోస్ 10, విండోస్ 8 లేదా విండోస్ 7 యొక్క ఇన్‌స్టాల్ చేయబడిన కాపీ యొక్క ఉత్పత్తి కీని మాకు చూపించడానికి ఒక సాధారణ VBS స్క్రిప్ట్ ఎలా ఉపయోగపడుతుందో ఈ రోజు మనం చూస్తాము. ఇది లేకుండా మీ PC లో ఇన్‌స్టాల్ చేయబడిన OS నుండి మీ ఉత్పత్తి కీని సేకరించేందుకు ఒక సాధారణ పరిష్కారం ఏదైనా మూడవ పార్టీ సాఫ్ట్‌వేర్‌ను ఉపయోగించడం. ఇక్కడ మేము వెళ్తాము.
ప్రకటన
అసలైన, ముందు నేను ఒక పోస్ట్ ఇలాంటి పరిష్కారం ఇది పవర్‌షెల్‌ను ఉపయోగించింది. కానీ చాలా మంది వినియోగదారులు అది తమకు విఫలమైందని ఫిర్యాదు చేశారు. సంతకం చేయని cmdlets ను అమలు చేయడానికి పవర్‌షెల్‌కు అదనపు వినియోగదారు నైపుణ్యాలు మరియు అదనపు ట్వీక్‌లు అవసరం కావచ్చు.
కోరికపై చరిత్రను ఎలా క్లియర్ చేయాలి
పవర్‌షెల్‌తో పోలిస్తే, ఈ VBScript పరిష్కారం దాదాపు ఖచ్చితంగా ఉంది. మీరు చేయాల్సిందల్లా ఫైల్‌ను క్లిక్ చేయడం మాత్రమే. కు మీ విండోస్ 10 ఉత్పత్తి కీని చూడండి
- నోట్‌ప్యాడ్‌ను తెరవండి.
- కింది వచనాన్ని నోట్‌ప్యాడ్ విండోలో కాపీ చేసి పేస్ట్ చేయండి
ఎంపిక స్పష్టమైన మసకబారిన ఆబ్‌షెల్, మార్గం, డిజిటల్ ఐడి, ఫలితం సెట్ ఆబ్‌షెల్ = క్రియేట్ ఆబ్జెక్ట్ ('WScript.Shell') 'రిజిస్ట్రీ కీ మార్గాన్ని సెట్ చేయండి మార్గం =' HKLM సాఫ్ట్‌వేర్ మైక్రోసాఫ్ట్ విండోస్ NT కరెంట్‌వర్షన్ '' రిజిస్ట్రీ కీ విలువ డిజిటల్ఐడి = ఆబ్జెక్ట్. (పాత్ & 'డిజిటల్ ప్రొడక్ట్ఇడ్') డిమ్ ప్రొడక్ట్ నేమ్, ప్రొడక్ట్ ఐడి, ప్రొడక్ట్ కే, ప్రొడక్ట్ డాటా 'ప్రొడక్ట్ నేమ్, ప్రొడక్ట్ ఐడి, ప్రొడక్ట్ కే ప్రొడక్ట్ నేమ్ =' ప్రొడక్ట్ నేమ్: '& ఆబ్జెక్ట్.రేగ్ రీడ్ (పాత్ &' ప్రొడక్ట్ నేమ్ ') ప్రొడక్ట్ ఐడి = RegRead (Path & 'ProductID') ProductKey = 'ఇన్‌స్టాల్ చేసిన కీ:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & Productey 'ఒక ఫైల్‌లో సేవ్ చేస్తే మెస్‌బాక్స్ చూపించు vbYes = MsgBox (ProductData 'ఫైల్‌కు సేవ్ చేయాలా?', VbYesNo + vbQuestion, 'బ్యాకప్ విండోస్ కీ ఇన్ఫర్మేషన్') ఆపై ప్రొడక్ట్‌డేటా ఎండ్‌ను సేవ్ చేస్తే 'బైనరీని అక్షరాలకు మార్చండి ఫంక్షన్ ConvertToKey (కీ) Const KeyOffset = 52 Dim isWin8, మ్యాప్స్, i, j, ప్రస్తుత, కీఆట్పుట్ , చివరిది, కీపార్ట్ 1, చొప్పించు 'OS విండోస్ 8 isWin8 = (కీ (66) 6) మరియు 1 కీ (66) = (కీ (66) మరియు & HF7) లేదా ((isWin8 మరియు 2) * 4) i = 24 మ్యాప్స్ = 'BCDFGHJKMPQRTVWXY2346789' కరెంట్ చేయండి = 0 j = 14 కరెంట్ చేయండి = ప్రస్తుత * 256 ప్రస్తుత = కీ (j + కీఆఫ్సెట్) కీ (j + KeyOffset) = (ప్రస్తుత 24) ప్రస్తుత = ప్రస్తుత మోడ్ 24 j = j -1 లూప్ అయితే j> = 0 i = i -1 కీఆట్పుట్ = మిడ్ (మ్యాప్స్, ప్రస్తుత + 1, 1) & కీఆట్పుట్ చివరి = ప్రస్తుత లూప్ I> = 0 అయితే (isWin8 = 1) అప్పుడు కీపార్ట్ 1 = మిడ్ (కీఆట్పుట్, 2, చివరిది) చొప్పించు = 'ఎన్' కీఆట్పుట్ = పున lace స్థాపించుము (కీఆట్పుట్, కీపార్ట్ 1, కీపార్ట్ 1 & ఇన్సర్ట్, 2, 1, 0) చివరిది అయితే = 0 అప్పుడు కీఆట్పుట్ = ఇన్సర్ట్ & కీఆట్పుట్ ఎండ్ కన్వర్ట్ టోకే = మిడ్ (కీఆట్పుట్, 1, 5) & '-' & మిడ్ (కీ అవుట్పుట్, 6, 5) & '-' & మిడ్ (కీఆట్పుట్, 11, 5) & '-' & మిడ్ ( కీఆట్పుట్, 16, 5) & '-' & మిడ్ (కీఆట్పుట్, 21, 5) ఎండ్ ఫంక్షన్ 'డేటాను ఫైల్‌కు సేవ్ చేయండి ఫంక్షన్ సేవ్ (డేటా) డిమ్ ఎఫ్సో, ఎఫ్‌నేమ్, టిఎక్స్ టి, ఆబ్జెల్, యూజర్‌నేమ్ సెట్ ఆబ్‌షెల్ = క్రియేట్ ఆబ్జెక్ట్ (' wscript. షెల్ ')' ప్రస్తుత వినియోగదారు పేరును పొందండి UserName = objshell.ExpandEn EnvironmentStrings ('% UserName%') 'డెస్క్‌టాప్‌లో టెక్స్ట్ ఫైల్‌ను సృష్టించండి fName =' C: ers యూజర్లు '& యూజర్‌నేమ్ &' డెస్క్‌టాప్ WindowsKeyI nfo.txt 'సెట్ fso = CreateObject (' Scripting.FileSystemObject ') సెట్ txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Function - డెస్క్‌టాప్‌లోని '.vbs' పొడిగింపుతో పై వచనాన్ని ఫైల్‌కు సేవ్ చేయండి.
బోనస్ చిట్కా: మీరు '.vbs' పొడిగింపుతో ఫైల్‌ను సరిగ్గా సేవ్ చేస్తున్నారని నిర్ధారించుకోవడానికి, మీరు దాని పేరును డబుల్ కోట్స్‌లో టైప్ చేయవచ్చు, ఉదాహరణకు, 'BackupWindowsKey.vbs'.
- ఇప్పుడు మీ BackupWindowsKey.vbs ఫైల్‌ను తెరవండి
- Voila, మీరు ఉత్పత్తి కీ తెరపై ప్రదర్శించబడుతుంది!
BackupWindowsKey.vbs ఫైల్‌ను డౌన్‌లోడ్ చేయడానికి ఇక్కడ క్లిక్ చేయండి
నేను ఈ ట్రిక్‌ను విండోస్ 7, విండోస్ 8 మరియు విండోస్ 10 లలో పరీక్షించాను. ఇది పేర్కొన్న అన్ని ఆపరేటింగ్ సిస్టమ్‌లలో దోషపూరితంగా పనిచేస్తుంది. క్రెడిట్స్: nononsence @ MDL .
