როგორ ნახოთ თქვენი პროდუქტის გასაღები Windows 10, Windows 8 და Windows 7

თუ დაკარგეთ ან დაგავიწყდათ სად შეინახეთ თქვენი Windows პროდუქტის გასაღები, მე მაქვს თქვენთვის გამოსავალი. დღეს ჩვენ დავინახავთ, თუ როგორ შეიძლება მარტივი VBS სკრიპტის გამოყენება Windows 10-ის, Windows 8-ის ან Windows 7-ის დაინსტალირებული ასლის პროდუქტის გასაღების საჩვენებლად. ეს არის მარტივი გამოსავალი თქვენი პროდუქტის გასაღების ამოსაღებად თქვენს კომპიუტერზე დაინსტალირებული ოპერაციული სისტემისგან მესამე მხარის პროგრამული უზრუნველყოფის გამოყენების გარეშე. Აქ ჩვენ მივდივართ.

სინამდვილეში, ადრე დავპოსტავ ა მსგავსი გამოსავალი რომელიც იყენებდა PowerShell-ს. მაგრამ ბევრი მომხმარებელი ჩიოდა, რომ ეს მათთვის ვერ ხერხდება. PowerShell-ს შეიძლება დასჭირდეს მომხმარებლის დამატებითი უნარები და დამატებითი შესწორებები ხელმოუწერელი cmdlet-ების გასაშვებად.

PowerShell-თან შედარებით, VBScript-ის ეს გადაწყვეტა თითქმის სრულყოფილია. ყველაფერი რაც თქვენ უნდა გააკეთოთ, უბრალოდ დააწკაპუნეთ ფაილზე. რომ ნახეთ თქვენი Windows 10 პროდუქტის გასაღები

1. გახსენით Notepad.
2. დააკოპირეთ და ჩასვით შემდეგი ტექსტი Notepad ფანჯარაში

   ვარიანტი აშკარა. Dim objshell, გზა, DigitalID, შედეგი. დააყენეთ objshell = CreateObject ("WScript. Shell") 'დააყენეთ რეესტრის გასაღების გზა Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'რეგისტრის გასაღების მნიშვნელობა DigitalID = objshell. RegRead (გზა და "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName = "პროდუქტის სახელი: " & objshell. RegRead (გზა & "პროდუქტის სახელი") ProductID = "Product ID: " & objshell. RegRead (Path & "ProductID") ProductKey = "დაინსტალირებული გასაღები: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'აჩვენე messbox, თუ ინახება ფაილში. თუ vbYes = MsgBox (ProductData & vblf & vblf & "ფაილში შენახვა?", vbYesNo + vbQuestion, "Windows-ის საკვანძო ინფორმაციის სარეზერვო ასლი") შემდეგ შეინახეთ ProductData. Დაასრულე თუ. ორობითი სიმბოლოებად გადაქცევა ფუნქცია ConvertToKey (გასაღები) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, ჩასვით „შეამოწმეთ არის თუ არა OS Windows 8 isWin8 = (გასაღები (66) \ 6) და 1 გასაღები (66) = (კლავიში (66) და &HF7) ან ((isWin8 And 2) * 4) i = 24 რუკები = "BCDFGHJKMPQRTVWXY2346789" Do Current= 0 j = 14 Do Current = მიმდინარე * 256 მიმდინარე = გასაღები (j + KeyOffset) + მიმდინარე გასაღები (j + KeyOffset) = (მიმდინარე \ 24) მიმდინარე = მიმდინარე მოდიფიკაცია 24 j = j -1 მარყუჟი ხოლო j >= 0 i = i -1 KeyOutput = Mid (Maps, Current+ 1, 1) & KeyOutput Last = მიმდინარე მარყუჟი მე >= 0. თუ (isWin8 = 1) მაშინ keypart1 = Mid (KeyOutput, 2, Last) ჩასმა = "N" KeyOutput = ჩანაცვლება (KeyOutput, keypart1, keypart1 & ჩასმა, 2, 1, 0) თუ Last = 0 მაშინ KeyOutput = ჩასმა & KeyOutput ბოლოს თუ. ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" და შუა (KeyOutput, 21, 5) დასრულება ფუნქცია 'მონაცემების შენახვა ფაილში ფუნქცია შენახვა (მონაცემები) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'მიიღეთ მიმდინარე მომხმარებლის სახელი. მომხმარებლის სახელი = objshell. ExpandEnvironmentStrings("%UserName%") 'შექმენით ტექსტური ფაილი დესკტოპზე. fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt" დააყენეთ fso = CreateObject("Scripting. FileSystemObject") დააყენეთ txt = fso. CreateTextFile (fName) txt. ჩაწერეთ მონაცემები txt. დასრულების ფუნქციის დახურვა 

3. შეინახეთ ზემოთ მოცემული ტექსტი ფაილში ".vbs" გაფართოებით სამუშაო მაგიდაზე.
   ბონუს რჩევა: იმისათვის, რომ დარწმუნდეთ, რომ ფაილს სწორად ინახავთ ".vbs" გაფართოებით, შეგიძლიათ ჩაწეროთ მისი სახელი ორმაგ ბრჭყალებში, მაგალითად, "BackupWindowsKey.vbs".
   
4. ახლა გახსენით თქვენი BackupWindowsKey.vbs ფაილი
5. Voila, თქვენი პროდუქტის გასაღები ნაჩვენებია ეკრანზე!
   

დააწკაპუნეთ აქ BackupWindowsKey.vbs ფაილის ჩამოსატვირთად

მე გამოვცადე ეს ხრიკი Windows 7, Windows 8 და Windows 10. ის მუშაობს უნაკლოდ ყველა აღნიშნულ ოპერაციულ სისტემაში. კრედიტები: უაზრობა @ MDL.