Ürün anahtarınızı Windows 10, Windows 8 ve Windows 7'de görüntüleme

1. Open Notepad.
2. Copy and paste the following text into the Notepad window

   Option Explicit  
    
   Dim objshell,path,DigitalID, Result  
   Set objshell = CreateObject("WScript.Shell") 
   'Set registry key path 
   Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 
   'Registry key value 
   DigitalID = objshell.RegRead(Path & "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 
   'Show messbox if save to a file  
   If vbYes = MsgBox(ProductData  & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information") then 
      Save ProductData  
   End If 
    
    
    
   'Convert binary to chars 
   Function ConvertToKey(Key) 
       Const KeyOffset = 52 
       Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert 
       'Check if OS is Windows 8 
       isWin8 = (Key(66) \ 6) And 1 
       Key(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 
              Key(j + KeyOffset) = (Current \ 24) 
              Current=Current Mod 24 
               j = j -1 
           Loop While j >= 0 
           i = i -1 
           KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput 
           Last = Current 
       Loop While i >= 0  
        
       If (isWin8 = 1) Then 
           keypart1 = Mid(KeyOutput, 2, Last) 
           insert = "N" 
           KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) 
           If Last = 0 Then KeyOutput = insert & KeyOutput 
       End If     
        
    
       ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5) 
       
        
   End Function 
   'Save data to a file 
   Function Save(Data) 
       Dim fso, fName, txt,objshell,UserName 
       Set objshell = CreateObject("wscript.shell") 
       'Get current user name  
       UserName = objshell.ExpandEnvironmentStrings("%UserName%")  
       'Create a text file on desktop  
       fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt" 
       Set fso = CreateObject("Scripting.FileSystemObject") 
       Set txt = fso.CreateTextFile(fName) 
       txt.Writeline Data 
       txt.Close 
   End Function 
   

3. Save the text above to a file with the ".vbs" extension on the Desktop.
   Bonus tip: To make sure that you saving the file correctly with the ".vbs" extension, you can type its name enclosed in double quotes, for example, "BackupWindowsKey.vbs".
   
4. Now open your BackupWindowsKey.vbs file
5. Voila, you product key is displayed on the screen!
   

Google Plus ile Paylas

About zafer

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.