Log in
Register
What's new
Search
Search
Search titles only
By:
Menu
Log in
Register
What's new
Search
Search
Search titles only
By:
Forums
Tutorials
About
Rules
What's New
Driver Reference Table
Donate
Search titles only
By:
Latest activity
Register
Sysnative Tutorials
Windows 8 | Windows RT Tutorials
Find Windows Product Key Code (VBS Script) (Windows 10, 8.1, 8, 7, Vista)
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
.
Reply to thread
Message
<blockquote data-quote="jcgriff2" data-source="post: 148920" data-attributes="member: 1"><p><img src="https://www.sysnative.com/SysnativeTutorials/windows/Windows8LOGO_200x67.jpg" alt="" class="fr-fic fr-dii fr-draggable " style="" /></p><p></p><p style="text-align: center"><span style="color: #454545"><span style="font-family: 'segoe ui'"><u><span style="font-size: 18px">Find Windows Product Key Code (VBS Script)</span></u></span></span></p> <p style="text-align: center"></p><p></p><p>Run the following VBS script to find out your Windows key code. </p><p></p><p>Download the VBS file; save it to Desktop. Double-click on it.</p><p></p><p><a href="https://www.sysnative.com/apps/WindowsKeyCode.vbs" target="_blank">https<span style="font-size: 10px">:</span>//www.sysnative.com/apps/WindowsKeyCode.vbs</a></p><p></p><p><span style="font-family: 'segoe Ui'"><span style="color: #565656"><u>Contents of VBS file</u></span></span></p><p>[CODE]Set WshShell = CreateObject("WScript.Shell")</p><p>MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))</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[/CODE]</p></blockquote><p></p>
[QUOTE="jcgriff2, post: 148920, member: 1"] [IMG]https://www.sysnative.com/SysnativeTutorials/windows/Windows8LOGO_200x67.jpg[/IMG] [CENTER][COLOR=#454545][FONT=segoe ui][U][SIZE=5]Find Windows Product Key Code (VBS Script)[/SIZE][/U][/FONT][/COLOR] [/CENTER] Run the following VBS script to find out your Windows key code. Download the VBS file; save it to Desktop. Double-click on it. [URL="https://www.sysnative.com/apps/WindowsKeyCode.vbs"]https[size=2]:[/size]//www.sysnative.com/apps/WindowsKeyCode.vbs[/URL] [FONT=segoe Ui][COLOR=#565656][U]Contents of VBS file[/U][/COLOR][/FONT] [CODE]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[/CODE] [/QUOTE]
Insert quotes...
Verification
Post reply
Sysnative Tutorials
Windows 8 | Windows RT Tutorials
Find Windows Product Key Code (VBS Script) (Windows 10, 8.1, 8, 7, Vista)
Menu
Log in
Register
Top
