XJPY8 - 4MCMR - WFFD9 - MKFXP - 9DJ2Q
FCKGW-RHQQ2-YXRKT-8TG6W-2B7Q8
QB2BW-8PF2D-9X7JK-BCCRT-D233Y
XJM6Q-BQ8HW-T6DFB-Y934T-YD4YT
BQJG2-2MJT7-H7F6K-XW98B-4HQRQ
BJXGH-4TG7P-F9PRP-K6FJD-JQMPM
BX6HT-MDJKW-H2J4X-BX67W-TVVFG
C873C-PKFQP-Q7RWQ-CM688-JM6JY
DTWB2-VX8WY-FG8R3-X696T-66Y46
KWT78-4D939-MRKK9-64W8C-CPF33
OTRA FORMA:
1.- Copia el siguiente codigo en el bloc de notas:
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
VOL_PROD_KEY = "P4XK3-TGQ3P-F9JB2-GC6XQ-VXTMW"
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","")
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}".InstancesOf ("win32_WindowsProductActivation" )
result = Obj.SetProductKey (VOL_PROD_KEY)
if err <> 0 then
WScript.Echo Err.Description, "0x" & Hex(Err.Number)
Err.Clear
WScript.Quit
end if
Wscript.echo "Serial Cambiado Con Exito"
Next
2.- Una vez copiado guardalo con el nombre cambiarserial.vbs
3.- Ahora ejecuta lo guardado y te saldra un letrero indicandote que el serial fue cambiado con exito.
