Edson Tessaro edsonfast

vndmtrx / serialwin.vbs

Last active September 25, 2023 21:38

Função VBS para salvar a chave de ativação atualmente em uso no Windows 7, 8, 8.1 e 10.

	Option Explicit
	'Código VBS para salvar a chave do Sistema para Windows 10, 8 e 7.
	'Adaptado do site: http://winaero.com/blog/how-to-view-your-product-key-in-windows-10-windows-8-and-windows-7/

	Dim objshell, Caminho, ChaveDigitalProduto, Result
	Set objshell = CreateObject("WScript.Shell")

	'Registra o path do registro onde está a chave do sistema
	Caminho = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
	'Chave de registro do sistema