Pranay Pawar Bugaddr

## GetWindowsProductKey.vbs
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

## active.md

      
        
          
            
              
              1 file
            
          
          
            
              
              180 forks
            
          
          
            
              
              1428 stars
            
          
        
        
          
              
          
          
            
                paulmillr
                / active.md
            
            
              Last active
              December 5, 2025 05:52
            
              
                Most active GitHub users (by contributions). https://paulmillr.com
              
          
        
      
        
  
      
    Most active GitHub users (git.io/top)

The list would not be updated for now. Don't write comments.
The count of contributions (summary of Pull Requests, opened issues and commits) to public repos at GitHub.com from Wed, 21 Sep 2022 till Thu, 21 Sep 2023.
Because of GitHub search limitations, only 1000 first users according to amount of followers are included. If you are not in the list you don't have enough followers. See raw data and source code. Algorithm in pseudocode:
githubUsers
	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