Search
Search titles only
By:
Search titles only
By:
Log in
Register
Search
Search titles only
By:
Search titles only
By:
Menu
Install the app
Install
Forums
New posts
All threads
Latest threads
New posts
Trending threads
Trending
Search forums
What's new
New posts
New ads
New profile posts
Latest activity
Free Ads
Latest reviews
Search ads
Members
Current visitors
New profile posts
Search profile posts
Contact us
Latest ads
RHCSA, RHCE, AWS, Docker, Kubernetes Training
Sanjeewani95
Updated:
Tuesday at 10:28 AM
🛡️ Kaspersky Antivirus – 1 Year / 1 Device | Rs. 2,300 | Only 9 Left
KSPathirana
Updated:
Monday at 2:42 PM
Ad icon
Professional CCTV Installation Service
Techguy231
Updated:
Sunday at 10:50 AM
Ad icon
I'll research & write an article - Rs. 2000 onwards
Blogerwiki
Updated:
Sep 3, 2026
House Plan
lenura
Updated:
Sep 2, 2026
Electronics
Vehicles
Property
Search
Reply to thread
Forums
General
ElaKiri Talk!
[Discussion] Windows 10 ගැන
Get the App
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Message
<blockquote data-quote="gglks" data-source="post: 18744248" data-attributes="member: 117488"><p>Finding the Windows 10 Key Without Any Software</p><p></p><p>Assuming you can boot your computer without any problems, you can easily create a simple VBscript that will read the value out of the registry and then translate it into the format that you need for reinstalling. We’re not sure where this script came from, but reader raphoenix posted it on our forum a long time ago, so we’re sharing it here for you.</p><p></p><p>Copy and paste the following into a Notepad window:</p><p></p><p>Set WshShell = CreateObject("WScript.Shell")</p><p>MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))</p><p></p><p>Function ConvertToKey(Key)</p><p>Const KeyOffset = 52</p><p>i = 28</p><p>Chars = "BCDFGHJKMPQRTVWXY2346789"</p><p>Do</p><p>Cur = 0</p><p>x = 14</p><p>Do</p><p>Cur = Cur * 256</p><p>Cur = Key(x + KeyOffset) + Cur</p><p>Key(x + KeyOffset) = (Cur \ 24) And 255</p><p>Cur = Cur Mod 24</p><p>x = x -1</p><p>Loop While x >= 0</p><p>i = i -1</p><p>KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput</p><p>If (((29 - i) Mod 6) = 0) And (i <> -1) Then</p><p>i = i -1</p><p>KeyOutput = "-" & KeyOutput</p><p>End If</p><p>Loop While i >= 0</p><p>ConvertToKey = KeyOutput</p><p>End Function</p><p></p><p>You’ll need to use File -> Save As, change the “Save as type” to “All Files” and then name it productkey.vbs or something similar ending with the vbs extension. We’d recommend saving to the desktop for easy access.</p><p></p><p>Once you’ve saved it, you can just double-click and the popup window will show you your product key.</p><p></p><p>Protip: If you use CTRL + C when the popup window is active, it will copy the contents of the window to the clipboard, and then you can paste it into Notepad or somewhere else.</p></blockquote><p></p>
[QUOTE="gglks, post: 18744248, member: 117488"] Finding the Windows 10 Key Without Any Software Assuming you can boot your computer without any problems, you can easily create a simple VBscript that will read the value out of the registry and then translate it into the format that you need for reinstalling. We’re not sure where this script came from, but reader raphoenix posted it on our forum a long time ago, so we’re sharing it here for you. Copy and paste the following into a Notepad window: Set WshShell = CreateObject("WScript.Shell") MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) Function ConvertToKey(Key) Const KeyOffset = 52 i = 28 Chars = "BCDFGHJKMPQRTVWXY2346789" Do Cur = 0 x = 14 Do Cur = Cur * 256 Cur = Key(x + KeyOffset) + Cur Key(x + KeyOffset) = (Cur \ 24) And 255 Cur = Cur Mod 24 x = x -1 Loop While x >= 0 i = i -1 KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput If (((29 - i) Mod 6) = 0) And (i <> -1) Then i = i -1 KeyOutput = "-" & KeyOutput End If Loop While i >= 0 ConvertToKey = KeyOutput End Function You’ll need to use File -> Save As, change the “Save as type” to “All Files” and then name it productkey.vbs or something similar ending with the vbs extension. We’d recommend saving to the desktop for easy access. Once you’ve saved it, you can just double-click and the popup window will show you your product key. Protip: If you use CTRL + C when the popup window is active, it will copy the contents of the window to the clipboard, and then you can paste it into Notepad or somewhere else. [/QUOTE]
Insert quotes…
Verification
Dahaya deken beduwama keeyada?
Post reply
Top
Bottom