¿Cómo modificar el número de serie de instalación de Windows XP?
Abre el Bloc de notas y pega el siguiente código:
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.countlt;1 luego
VOL_PROD_KEY=InputBox("Este programa puede ayudarlo a cambiar el número de serie de WindowsXP."amp; vbCramp; vbCramp; "El número de serie lo encuentra e ingresa usted mismo. Los que se enumeran a continuación no son necesariamente los actuales. El número de serie utilizado es solo para referencia de formato "amp; vbCramp; vbCramp; "Ingrese un nuevo número de serie:", "Cambiador de número de serie de Windows XP", "MRX3F-47B9T-2487J-KWKMF-RPWBY". )
si VOL_PROD_KEY="" entonces
Wscript.quit
finalizar si
else
VOL_PROD_KEY = Wscript.arguments .Item(0)
end if
VOL_PROD_KEY = Reemplazar(VOL_PROD_KEY, "-", "") 'eliminar guiones si los hay
para cada Obj en GetObject("winmgmts：{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
resultado = Obj.SetProductKey (VOL_PROD_KEY)
si err = 0 entonces
Wscript.echo "La modificación fue exitosa. El método para verificar si es genuino es: abra la ventana "Mi PC" y seleccione "¿Es legal este Windows" en el menú "Ayuda". ¡Buena suerte! "
end if
if err lt;gt; 0 then
Wscript.echo "¡Falló el reemplazo! El número de serie que ingresaste es incorrecto."
p>Err.Clear
end if
Siguiente
Guárdelo en el formato "Todos los archivos" con el nombre de archivo a.vbs, y luego ejecute el archivo VBS
p>