ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
VOL_PROD_KEY = "THMPV-77D6F-94376-8HGKG-VRDRQ"
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

result = Obj.SetProductKey (VOL_PROD_KEY)
WScript.Echo "Su windows ahora es 100% Original, Reinicie el sistema para aplicar los cambios.  Creado por COMBOMIX"
Next